INTEGER*2 FUNCTION LENGTH(STRING,MAXLEN)
	LOGICAL*1 STRING(1)
	DO 1 I=MAXLEN,1,-1
1	IF(STRING(I).GT.' ')GOTO2
	I=0
2	LENGTH=I
	RETURN
	END