
      program tstlen
c
      character*16 str
c
      str = 'This is a string'
      len = lenstr(str)
      stop
      end
