c
c $Id: lnb.f,v 1.1 1999/08/03 04:24:40 aai Exp $.
c
c{
      integer function lnb(s)
      character*(*) s
c
c     Lnb: Return the position of the last non-blank character in a string.
c
c     Zero is returned if the string is entirely blank.
c
c     Phillip A. Cheeseman, Purdue University Computing Center.
c
      do lnb=len(s),1,-1
         if(s(lnb:lnb).ne.' ') return
      enddo
c
      return
c
      end
c}