Directory of image this file is from
This file as a plain text file

	SUBROUTINE RECHNE
	COMMON RN,RN1,P,GN,GN1,A
	DIMENSION RN(7,10),GN(7),RN1(10),P(8),A(7)
	DO 10 I=1,10
10	RN1(I)=0.
	DO 20 I=1,10
	DO 20 J=2,7
20	RN1(I)=RN1(I)+FLOAT(J-1)*RN(J,I)
	DO 30 I=1,10
	IF(RN(1,I))30,30,40
40	RN(1,I)=0.
	DO 50 J=2,7
50	RN(1,I)=RN(1,I)+RN(J,I)
	IF(RN(1,I))30,30,60
60	RN1(I)=RN1(I)/RN(1,I)
	DO 30 J=2,7
	RN(J,I)=RN(J,I)/RN(1,I)*100.
30	CONTINUE
	RETURN
	END