lnstrg.f

Go to the documentation of this file.

      integer function lnstrg(STRING)
C**********************************************************************
C
C     This function returns with its value equal to the position in
C     STRING of the last non-blank and non-null character.  If STRING
C     is all blanks or null, LNSTRG will equal zero.
C
C     Created by Michael Darzi, GSC, 10/86.
C               To UNIX: BD Schieber, SAIC/GSC, 93
C**********************************************************************
      implicit none
      character string*(*), blnk*(*), null
      byte bnull, btmp
      parameter(blnk=' ', bnull='0'o)
      data btmp/bnull/
      equivalence(null,btmp)
 
      lnstrg = len(string)
   10 continue
      if (lnstrg .lt. 1) return
      if ((string(lnstrg:lnstrg) .ne. blnk) .and.
     .    (string(lnstrg:lnstrg) .ne. null)) return
      lnstrg = lnstrg - 1
      go to 10
      end