	LOGICAL *1 LCOM1,LCOM2
	VIRTUAL LCOM1(32767),LCOM2(32767)
	DO 10,I=1,1000
10	LCOM1(I)=0
	END
