c Length of character string, excluding trailing blanks
c Same thing as LEN_TRIM()

	integer function trmlen(t)

	implicit none

c	Parameter:
	character t*(*)

      do 1 trmlen=LEN(t),1,-1
    1    if(t(trmlen:trmlen).ne.' ')RETURN
      trmlen=1
      end ! of integer function trmlen