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

	COMMON INPUT,IN,INBLK
	DIMENSION INPUT(256),NC(20,22),MCLAT(20,22),CLAT(22)
	DO 500 NS=1,20
	INBLK=8*NS+8
	IF (NS-4)60,50,50
 50	INBLK=INBLK+8
 60	CALL LTAPE(1,INPUT,INBLK)
	DO 70 J=1,22
	NC(NS,J)=0
 70	CLAT(J)=0.
	IN=0
	DO 200 I=1,50
	CALL INEXT(J)
	DO 100 NT=1,12
	CALL INEXT(J)
	CALL INEXT(K)
	IF (K)95,75,75
 75	NC(NS,J)=NC(NS,J)+1
	T=4096.0*FLOAT(K)
	CALL INEXT(K)
	IF (K)80,85,85
 80	T=T+2048.
S	CLA;TAD \K; AND (3777; DCA \K
 85	T=T+FLOAT(K)
	CLAT(J)=CLAT(J)+T
	GO TO 100
 95	CALL INEXT(K)
 100	CONTINUE
 200	CONTINUE
	DO 300 J=1,22
 300	MCLAT(NS,J)=CLAT(J)/FLOAT(NC(NS,J))
 500	CONTINUE
	CALL LTAPE(-2,MCLAT(1,1),5)
	CALL LTAPE(-2,MCLAT(17,13),6)
	WRITE(1,1)
 1	FORMAT(///' COND  N   MSECS')
	DO 600 J=1,22
	T=0.
	NCOR=0
	DO 550 NS=1,20
	T=T+FLOAT(MCLAT(NS,J))*FLOAT(NC(NS,J))
 550	NCOR=NCOR+NC(NS,J)
	K=T/FLOAT(NCOR)
 600	WRITE(1,2)J,NCOR,K
 2	FORMAT(2I5,I6)
	PAUSE
	END