home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / SRC / MSFORT / FT_STRIN.FOR < prev    next >
Encoding:
Text File  |  2000-02-11  |  344 b   |  16 lines
  1.       character *128 function t_string(s)
  2.       character *(*) s
  3. c
  4. c  Truncates and NULL terminates a string
  5. c
  6.       t_string = s
  7.  
  8.       do 10 i = len(s), 1, -1
  9.           if (s(i:i) .ne. ' ') then
  10.           t_string(i+1 : i+1) = char(0)
  11.               return
  12.           end if
  13. 10    continue
  14.       t_string(1 : 1) = char(0)
  15.       end
  16.