Line data    Source code

       1          235 :         function length(t)
       2              : c
       3              : c  returns length of non-blank portion of string t
       4              : c
       5              :         character*(*) t
       6              : c
       7          235 :         l=len(t)
       8        63215 :         do 1 i=1,l
       9        63215 :         k = l-i+1
      10        63215 :         if (t(k:k).ne.' ') then 
      11          235 :           go to 2
      12              :         endif
      13            0 :     1   continue
      14            0 :         k = 0
      15          235 :     2   length = k
      16          235 :         return
      17          235 :         end