home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / chap01 / adventur / lchar.for < prev    next >
Text File  |  1990-11-18  |  388b  |  18 lines
  1.       INTEGER*4 FUNCTION LCHAR(LINE)
  2. C
  3. C  FINDS THE POSITION OF THE LAST NON-BLANK CHARACTER IN A CHARACTER STRING.
  4. C  IF THE STRING IS BLANK, A VALUE OF 1 IS RETURNED.
  5. C
  6.       CHARACTER LINE * (*)
  7.       
  8.       LCHAR=1
  9.       DO 1 I=LEN(LINE),1,-1
  10.       IF(LINE(I:I).NE.' ') THEN
  11.          LCHAR=I
  12.          GOTO 100
  13.       ENDIF
  14.     1 CONTINUE
  15.   100 RETURN
  16.       END
  17.       
  18.