SUBROUTINE CLRBUF(ARRAY,NWORDS,START,FINISH)
	INTEGER NWORDS,ARRAY(NWORDS),START,FINISH
5	DO 10 I=START,FINISH
	ARRAY(I)=0
10	CONTINUE
	RETURN
	END