SUBROUTINE CLROUT(OUTLIN)
C
C	ZERO OUT THE PRINT BUFFER
C
	CHARACTER*132 OUTLIN
C
	DO 10000 I=1,132
	OUTLIN(I:I)=' '
10000	CONTINUE
	RETURN
	END