c
      function lenstr(str)
      character*(*) str
c
c Return index to last non-blank char in str
c
      length = len(str)
      write(6,"('lenstr: length=',i3)") length
c     write(6,"('lenstr: str=',a40)") str
      do i=length,1,-1
        write(6,"('lenstr: i=',i2,' str(i:i)=$',a,'$')") i,str(i:i)
        if (str(i:i).ne.' ') then
          write(6,"('lenstr found char at i=',i2,' str=$',a,'$')")
     +      i,str(i:i)
          lenstr = i
          return
        endif
      enddo
      lenstr = 1
      return
      end