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

C POOLS NC(20,22) INTO NCP(20,12) AND MCLAT(20,22) INTO LATP(20,12)
C AND WRITES THE NEW ARRAYS OUT ONTO BLOCKS 8 & 9.
C
	COMMON NC,MCLAT,IDUMY
	DIMENSION NC(20,22),MCLAT(20,22),IDUMY(184),NCP(20,12),LATP(20,12)
	CALL LTAPE(1,NC(1,1),1)
	CALL LTAPE(1,NC(17,13),2)
	CALL LTAPE(1,MCLAT(1,1),5)
	CALL LTAPE(1,MCLAT(17,13),6)
	DO 100 I=1,20
	DO 50 J=1,6
	NCP(I,J)=NC(I,J)
 50	LATP(I,J)=MCLAT(I,J)
	NCP(I,7)=NC(I,7)+NC(I,9)+NC(I,11)
	T=FLOAT(MCLAT(I,7))*FLOAT(NC(I,7))+FLOAT(MCLAT(I,9))*
	1 FLOAT(NC(I,9))+FLOAT(MCLAT(I,11))*FLOAT(NC(I,11))
	LATP(I,7)=T/FLOAT(NCP(I,7))
	NCP(I,8)=NC(I,8)+NC(I,10)+NC(I,12)
	T=FLOAT(MCLAT(I,8))*FLOAT(NC(I,8))+FLOAT(MCLAT(I,10))*
	1 FLOAT(NC(I,10))+FLOAT(MCLAT(I,12))*FLOAT(NC(I,12))
	LATP(I,8)=T/FLOAT(NCP(I,8))
	NCP(I,9)=NC(I,13)+NC(I,15)+NC(I,17)+NC(I,19)
	T=FLOAT(MCLAT(I,13))*FLOAT(NC(I,13))+FLOAT(MCLAT(I,15))*
	1 FLOAT(NC(I,15))+FLOAT(MCLAT(I,17))*FLOAT(NC(I,17))+
	2 FLOAT(MCLAT(I,19))*FLOAT(NC(I,19))
	LATP(I,9)=T/FLOAT(NCP(I,9))
	NCP(I,10)=NC(I,14)+NC(I,16)+NC(I,18)+NC(I,20)
	T=FLOAT(MCLAT(I,14))*FLOAT(NC(I,14))+FLOAT(MCLAT(I,16))*
	1 FLOAT(NC(I,16))+FLOAT(MCLAT(I,18))*FLOAT(NC(I,18))+
	2 FLOAT(MCLAT(I,20))*FLOAT(NC(I,20))
	LATP(I,10)=T/FLOAT(NCP(I,10))
	NCP(I,11)=NC(I,21)
	LATP(I,11)=MCLAT(I,21)
	NCP(I,12)=NC(I,22)
	LATP(I,12)=MCLAT(I,22)
 100	CONTINUE
	CALL LTAPE(-2,NCP(1,1),8)
	CALL LTAPE(-2,LATP(1,1),9)
	WRITE(1,1)
 1	FORMAT(//'COND #ERR/50 AVG COR LAT'//)
	DO 200 J=1,12
	T=0.
	TL=0.
	DO 150 I=1,20
	T=T+FLOAT(NC(I,J))
	TL=TL+FLOAT(50-NC(I,J))*FLOAT(LATP(I,J))
 150	CONTINUE
	TL=TL/(1000.-T)
	T=T/20.
 200	WRITE(1,2)J,T,TL
 2	FORMAT(I4,2F8.2)
	END