lennob.f

Go to the documentation of this file.

      INTEGER*4 FUNCTION lennob(string)
      IMPLICIT INTEGER*4 (a-p,r-z),logical(q)
C**********************************************************************
C
C     INTEGER*4 FUNCTION LENNOB( STRING )
C                LENgth NOt counting trailing Blanks
C
C
C                              Function
C
C
C     Returns the length of STRING up to and including the last
C     non-blank character.
C
C
C                              Arguments
C
C
C     STRING --> String whose length not counting trailing blanks
C                is returned.
C
C**********************************************************************
      CHARACTER*(*) string
 
      end = len(string)
      DO 20,i = end,1,-1
          IF (.NOT. (string(i:i).NE.' ')) GO TO 10
          lennob = i
          RETURN
 
   10     CONTINUE
   20 CONTINUE
      lennob = 0
      RETURN
 
      END