c
c $Id: lgr.f,v 1.1 1999/08/03 21:09:22 aai Exp $.
c
c{
      integer function lgr(s)
      character*(*) s
c
c     Lgr: Return the position of the last non-blank/control character
c          in a string.  This routine is specific to ASCII platforms.
c
c     Zero is returned if the string is entirely control characters or blank.
c
c     Phillip A. Cheeseman, Purdue University Computing Center.
c
      do lgr=len(s),1,-1
         if(ichar(s(lgr:lgr)).gt.32) return
      enddo
c
      return
c
      end
c}