SUBROUTINE LESEN
	COMMON RN,RN1,P,GN,GN1,A
	DIMENSION RN(7,10),GN(7),RN1(10),P(8),A(7)
	READ(4,100)RN
100	FORMAT(7F4.0)
	RETURN
	END