<div id='wikitext'>
<pre><b> File: PRINT.FT of Tape: Various/ETH/f2</b></pre>
<pre><b>(Source file text) </b></pre>
<hr />
<pre>
        SUBROUTINE PRINT(IFUN,LOOP) 
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)
        COMMON /MOD/ AM(6,6),A0(6,6),A0M(6),DA0M(6),AF0(6,6)
     $  ,ANFM(6),ETA0(6,6)
        COMMON /LINE/ DY(6),A,B,DA,DB,SA,SB,SAB,RR,RMSD,CHISQ 
C 
500     FORMAT(1H1) 
505     FORMAT(1X,T50,&#039;VERSION  &#039;,I3) 
510     FORMAT(1X,T10,&#039;RUNS:&#039;,T20,A6,T30,&#039;TO&#039;,T40,A6,//)
520     FORMAT(1X,T20,&#039;ANGLE= &#039;,F6.1,T40,&#039;HI= &#039;,F7.3,&#039; T&#039;,T60 
     $  ,&#039;DK= &#039;,1PE10.2,&#039; 1/T&#039;,//)
530     FORMAT(1X,T20,&#039;FREQUENCY : &#039;,F8.3,&#039; T&#039;,//)
540     FORMAT(1X,T10,&#039;RUN&#039;,T22,&#039;T[K]&#039;,T32,&#039;FREQ[T]&#039;,T43, 
     $  &#039;AMP(AF)&#039;,T52,&#039;VAR.AMP.&#039;,T62,&#039;ETA[T]&#039;,T71,&#039;VAR.ETA.&#039;, 
     $  T80,&#039;/&#039;,T91,&#039;ETA0[T]&#039;,T105,&#039;A0&#039;,//) 
550     FORMAT(1X,T10,A6,T20,0PF6.3,T30,F9.2,T40,1PE10.2,T50,E10.2, 
     $  T60,0PF7.3,T70,F7.3,T80,&#039;/&#039;,T90,F7.3,T100,1PE10.2)
560     FORMAT(1X,//,T10,&#039;MEAN FREQUENCY= &#039;,T30,F9.4,&#039; T&#039;,T90,
     $  &#039;MEAN A0= &#039;,T100,1PE10.2,/,T10,&#039;PERIOD= &#039;,T30,1PE9.2, 
     $  &#039; 1/T&#039;,T90,&#039;VAR.A0= &#039;,T100,1PE10.2,////)
570     FORMAT(1X,T10,&#039;ETA0 FIT:&#039;,T20,&#039;X =&#039;,T30,F7.3,T40,&#039;K&#039;,T70,
     $  &#039;MU =&#039;,T80,F7.3,/,T10,&#039;********&#039;,/,T33,&#039;+/-&#039;,T38,F7.3,
     $  T83,&#039;+/-&#039;,T88,F7.3,&#039;  (LINE FIT)&#039;,/,T38,F7.3,T88,F7.3,
     $  &#039;  (VARIANCE)&#039;,,//)
580     FORMAT(1X,T20,&#039;MU*P =&#039;,T30,3PF7.3,T40,&#039;1E-3*1/T&#039;,T70,
     $  &#039;CHISQ=&#039;,T80,0PF7.3,/,T70,&#039;RMSD=&#039;,T80,F7.3,/,T70,
     $  &#039;RR=&#039;,T80,F7.3,//)
590     FORMAT(1X,T10,&#039;ETA FIT:&#039;,T20,&#039;X =&#039;,T30,F7.3,T40,&#039;K&#039;,T70,
     $  &#039;MU =&#039;,T80,F7.3,/,T10,&#039;........&#039;,/,T33,&#039;+/-&#039;,T38,F7.3,
     $  T83,&#039;+/-&#039;,T88,F7.3,&#039;  (LINE FIT)&#039;,/,T38,F7.3,T88,F7.3,
     $  &#039;  (VARIANCE)&#039;,,//)
C 
C       !!!!!!!!!!!!!!!!!!!!!!! 
        IVERS=4 
C       !!!!!!!!!!!!!!!!!!!!!!! 
        I=LOOP
        IF (IFUN.EQ.2) GO TO 2
        IF (IFUN.EQ.3) GO TO 3
        WRITE(4,500)
        WRITE(4,505) IVERS
        WRITE(4,510) ADENT(1),ADENT(MR) 
        WRITE(4,520) HANG,HI,DK 
        RETURN
2       WRITE(4,500)
	WRITE(4,530) FREQ(I)
        WRITE(4,540)
        WRITE(4,550) (ADENT(J),T(J),ANF(I,J),AF(I,J),DAF(I,J) 
     $  ,ETA(I,J),DETA(I,J),ETA0(I,J),A0(I,J),J=1,MR) 
        PER=1./ANFM(I)
        WRITE(4,560) ANFM(I),A0M(I),PER,DA0M(I) 
3       TD=B/A
        AMU=A/14.69 
        DTDL=ABS(TD)*SQRT((DA/A)**2+(DB/B)**2)
        TRY=SA/A**2+SB/B**2-2*SAB/A/B 
        IF (TRY.LE.0.) TRY=1000000. 
        DTDS=ABS(TD)*SQRT(TRY)
        DMUL=DA/14.69 
        DMUS=SQRT(SA)/14.69 
        IF (IFUN.EQ.2) WRITE(4,590) TD,AMU,DTDL,DMUL,DTDS,DMUS 
        IF (IFUN.EQ.3) WRITE(4,570) TD,AMU,DTDL,DMUL,DTDS,DMUS 
        AMUP=AMU*PER
        WRITE(4,580) AMUP,CHISQ,RMSD,RR 
	IF (IFUN.EQ.3) WRITE(4,500)
        RETURN
        END 
</pre>
<hr/>
</div>