File: DATMOD.FT of Tape: Various/ETH/f2

(Source file text) 

---

	REAL  ANF(10,10),PH(10,10),AF(10,10),ETA(10,10)
	REAL DANF(10,10),DPH(10,10),DAF(10,10),DETA(10,10) 
	REAL DK(10),HANG(10),HI(10),PS(10),T(10),DT(10),EICH(10)
	REAL ADENT(10)
	INTEGER MFS(10)
C 
610     FORMAT(A2)
620     FORMAT(A6)
630     FORMAT(I2)
640     FORMAT(8(G10.3))
710	FORMAT(G10.3)
720	FORMAT(1X,"//// ",A6,5X,I2,"-1 FREQ.GROUPS")
750	FORMAT(1X,"DANF(",I2,")=",1PE10.3,$)
760	FORMAT(1X,"DPH (",I2,")=",1PE10.3,$)
770	FORMAT(1X,"DAF (",I2,")=",1PE10.3,$)
780	FORMAT(1X,"DETA(",I2,")=",1PE10.3,$)
810     FORMAT('$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
     $$$$$$$$$$$$$$$$$$$$$$$$$$')
820	FORMAT(A6)
830	FORMAT(I2)
840	FORMAT(8(1PE10.3))
C
	I=0
        ICHAN=6 
1       REWIND ICHAN
2       CALL CHKEOF(EOF)
	READ(ICHAN,610) AMIST 
	IF (EOF.GT.0) GO TO 100
        IF (AMIST.NE.2H$$) GO TO 2
        READ(ICHAN,630) IMIST 
        IF (IMIST.NE.1) GO TO 2 
        READ(ICHAN,620) ANAME 
	I=I+1
	ADENT(I)=ANAME
        READ(ICHAN,630) IMIST 
	READ(ICHAN,640) DK(I),HANG(I),HI(I),PS(I),T(I),DT(I),EICH(I)
C       CAREFUL WITH ASSUMED NP= 256
        NP=256
        READ(ICHAN,610) AMIST 
        READ(ICHAN,630) IMIST 
        READ(ICHAN,630) MF
	MFS(I)=MF
        DO 20 K=1,MF 
        READ(ICHAN,640) Q1,Q2,Q3,Q4,DQ1,DQ2,DQ3,DQ4 
        ANF(K,I)=Q1 
	PH(K,I)=Q2
        AF(K,I)=Q3
        ETA(K,I)=Q4 
	DANF(K,I)=DQ1
	DPH(K,I)=DQ2
        DAF(K,I)=DQ3
        DETA(K,I)=DQ4 
20      CONTINUE
	GO TO 2
100	MR=I
	DO 200 I=1,MR
	WRITE(0,720) ADENT(I),MFS(I)
	MF=MFS(I)
	DO 190 K=2,MF
	WRITE(0,750) K,DANF(K,I)
	READ(0,710) AMIST
	IF (AMIST.NE.0.) DANF(K,I)=AMIST
	WRITE(0,760) K,DPH(K,I)
	READ(0,710) AMIST
	IF (AMIST.NE.0.) DPH(K,I)=AMIST
	WRITE(0,770) K,DAF(K,I)
	READ(0,710) AMIST
	IF (AMIST.NE.0.) DAF(K,I)=AMIST
	WRITE(0,780) K,DETA(K,I)
	READ(0,710) AMIST
	IF (AMIST.NE.0.) DETA(K,I)=AMIST
190	CONTINUE
200	CONTINUE
	ICHAN=7
	DO 300 I=1,MR
	WRITE(ICHAN,810)
	IMIST=1
	WRITE(ICHAN,830) IMIST
	WRITE(ICHAN,820) ADENT(I)
	IMIST=7
	WRITE(ICHAN,830) IMIST
	WRITE(ICHAN,840) DK(I),HANG(I),HI(I),PS(I),T(I),DT(I),EICH(I)
	WRITE(ICHAN,810)
	IMIST=2
	WRITE(ICHAN,830) IMIST
	MF=MFS(I)
	WRITE(ICHAN,830) MF
	DO 290 K=1,MF
	WRITE(ICHAN,840) ANF(K,I),PH(K,I),AF(K,I),ETA(K,I),
     $  DANF(K,I),DPH(K,I),DAF(K,I),DETA(K,I)
290	CONTINUE
300	CONTINUE
        END 

---