SUBROUTINE STRLEN(INPUT,LEN)
	BYTE INPUT(1)
C..
C..	RETURNS STRING LENGTH (UP TO 132) TO ZERO
C..
	LEN=0
	DO 1 I=1,132
	IF(INPUT(I).EQ.0) RETURN
	LEN=LEN+1
1	CONTINUE
	LEN=0
	RETURN
	END