SUBROUTINE DRUCKE
        COMMON RN,RN1,P,GN,GN1,A,IZ
        DIMENSION RN(7,10),GN(7),RN1(10),P(8),A(7)
	DO 10 I=1,10
	IZ=IZ+1
	IF(RN(1,I))40,10,40
40	DO 20 J=1,7
	DO 20 J=1,7
20	P(J)=RN(J,I)
	P(8)=RN1(I)
	DO 30 J=2,8
30	A(J-1)=GN(J)-P(J)
	WRITE(1,200)IZ,P
	WRITE(1,250)A
10	CONTINUE
200	FORMAT(I2,F6.0,7F7.2)
250	FORMAT(8X7F7.2/)
	RETURN
	END