home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / octave-1.1.1p1-src.tgz / tar.out / fsf / octave / libcruft / ranlib / lennob.f < prev    next >
Text File  |  1996-09-28  |  850b  |  37 lines
  1.       INTEGER FUNCTION lennob(string)
  2.       IMPLICIT INTEGER (a-p,r-z),LOGICAL (q)
  3. C**********************************************************************
  4. C
  5. C     INTEGER FUNCTION LENNOB( STRING )
  6. C                LENgth NOt counting trailing Blanks
  7. C
  8. C
  9. C                              Function
  10. C
  11. C
  12. C     Returns the length of STRING up to and including the last
  13. C     non-blank character.
  14. C
  15. C
  16. C                              Arguments
  17. C
  18. C
  19. C     STRING --> String whose length not counting trailing blanks
  20. C                is returned.
  21. C
  22. C**********************************************************************
  23.       CHARACTER*(*) string
  24.  
  25.       end = len(string)
  26.       DO 20,i = end,1,-1
  27.           IF (.NOT. (string(i:i).NE.' ')) GO TO 10
  28.           lennob = i
  29.           RETURN
  30.  
  31.    10     CONTINUE
  32.    20 CONTINUE
  33.       lennob = 0
  34.       RETURN
  35.  
  36.       END
  37.