SUBROUTINE PPP
	K=0
	DO 10 I=1,2047,1
	K=K+1
10      K=K-1
	RETURN
	END