C     @(#)len_trim.f	1.1     02/19/98
C
      integer*4 function len_trim (string)
c
c  return the trimmed length of a character string
c
      character*(*) string
c
      do len_trim = len(string), 1, -1
        if (string(len_trim:len_trim) .ne. ' ') return
      end do
      len_trim = 0
      return
      end