<div id='wikitext'>
<pre><b> File: INPUT.FT of Tape: Various/ETH/f2</b></pre>
<pre><b>(Source file text) </b></pre>
<hr />
<pre>
        SUBROUTINE INPUT
C 
        COMMON /IN/  ANF(6,6),AF(6,6),ETA(6,6),DAF(6,6),DETA(6,6) 
     $  ,DK,HANG,HI,NP,T(6),DT(6),MR,ADENT(6),MF,FREQ(6)
C 
610     FORMAT(A2)
620     FORMAT(A6)
630     FORMAT(I2)
640     FORMAT(8(G10.3))
C 
        ICHAN=6 
        DO 10 I=1,MR
1       REWIND ICHAN
2       READ(ICHAN,610) AMIST 
        IF (AMIST.NE.2H$$) GO TO 2
        READ(ICHAN,630) IMIST 
        IF (IMIST.NE.1) GO TO 2 
        READ(ICHAN,620) ANAME 
        IF (ANAME.NE.ADENT(I)) GO TO 2
        READ(ICHAN,630) IMIST 
        READ(ICHAN,640) DK,HANG,HI,AMIST,T(I),DT(I),AMIST,FNP 
        NP=IFIX(FNP)
        DK=DK*1.E-3 
        READ(ICHAN,610) AMIST 
        READ(ICHAN,630) IMIST 
        READ(ICHAN,630) NFREQ 
        DO 20 J=1,NFREQ 
        READ(ICHAN,640) Q1,Q2,Q3,Q4,DQ1,DQ2,DQ3,DQ4 
        DO 30 K=1,MF
        IF (ABS(Q1-FREQ(K)).GT.1./(DK*NP)) GO TO 30 
        ANF(K,I)=Q1 
        AF(K,I)=Q3
        ETA(K,I)=Q4 
        DAF(K,I)=DQ3
        DETA(K,I)=DQ4 
30      CONTINUE
20      CONTINUE
10      CONTINUE
        RETURN
        END 
</pre>
<hr/>
</div>