File: KOU.FT of Tape: Various/ETH/f4
(Source file text)
SUBROUTINE OUTFOU(LOGOUT)
C
COMMON /TITLE/ ADENT,GLOBAL,DITOMO,RUN,ICREAT
COMMON /FITPAR/ JIT,FISTOP,AMARQI,UPMARQ,DNMARQ,VARI,
$ UPVAR,DNVAR,VARMIN,MLOOP,LOOPLW,ISTART,ISTOP,ITEST,IDEFIX
COMMON /PARAM/ DKHI,SHFACT(11),CHISQ,DK,DL,HANG
$ ,HUP,HDOWN,CAPMO,AMI,PS,PT,SOLLT,TEMP,TV,ES,AKL,AKV,EICH
COMMON /EFFMU/ FRE1(11),FRE2(11),PERMAS(11)
COMMON /PEAKS/ TASWI,KBLOW,KBLOW1,KMAX,K1,K3,CHI,
$ Q(11,4),HIGHT(21),INDEX(21)
COMMON /VECT/ C(44),D1(11,4),DIAGEL(44),D(44),E(44)
COMMON /DATIN/ F(512),NP
COMMON /CONST/ PI,TWOPI
COMMON /PLOTC/ PLTBUF(400)
COMMON /FAF/ A(2049),B(2049),N
DIMENSION AR(44,44),Z(44,44),PM(11)
EQUIVALENCE (A,AR),(B,Z)
INTEGER RUN
REAL K3
LOGICAL ITEST,TASWI
C
C LOOKOUT WITH DIM!!
DIMENSION QN(11,4),DN(11,4)
EQUIVALENCE (QN,D),(DN,E)
C
599 FORMAT(1H1,T10,"ADENT =",A2," DITOMO =",A1," RUN =",
$ I2," ANGLE =",F6.1)
600 FORMAT(//T10,"P0",T30,"P1",T50,"P2",T70,"P3"/)
601 FORMAT(T11,F8.3,T30,F8.3,T50,F8.3,T70,F8.3)
602 FORMAT(/T10,"NF",T30,"PH",T50,"AF",T70,"TF"/)
603 FORMAT(T10,F9.3,T30,F8.3,T50,1PE12.3,T70,0PF8.3)
604 FORMAT(//T10,"STANDARD DEVIATIONS"/)
605 FORMAT(1H0,"X",T10,"Q(X+1)",T30,"Q(X+2)",T50,"Q(X+3)",
$ T70,"Q(X+4)")
606 FORMAT(1H ,I2,T10,F8.3,T30,F8.3,T50,F8.3,T70,F8.3)
607 FORMAT(/T10,"NF",T30,"PH",T50,"AF",T70,"TF",T90,"MU"/)
608 FORMAT(T10,F9.3,T30,F8.3,T50,1PE12.3,T70,0PF8.3,T90,F8.3)
610 FORMAT("$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$")
620 FORMAT(A1,A2,A1,I2)
630 FORMAT(I2)
640 FORMAT(8(1PE10.3))
C
ICHAN=0
IF (LOGOUT.NE.0) GO TO 90
WRITE(ICHAN,605)
DO 50 K=1,K1
KX=(K-1)*4
50 WRITE(ICHAN,606) KX,(Q(K,J),J=1,4)
RETURN
90 DO 120 J=1,4
QN(1,J)=Q(1,J)
120 DN(1,J)=SQRT(AR(J,J))
DO 100 K=2,K1
KK=4*(K-1)
QN(K,1)=Q(K,1)*NP/(DL*TWOPI)
QN(K,2)=Q(K,2)*180./PI
QN(K,3)=Q(K,3)*EICH
QN(K,4)=Q(K,4)/DL
PM(K)=SHFACT(K)*HUP*Q(K,1)/(2.*14.69*TEMP)
DN(K,1)=SQRT(AR(KK+1,KK+1))*NP/(DL*TWOPI)
DN(K,2)=SQRT(AR(KK+2,KK+2))*180./PI
DN(K,3)=SQRT(AR(KK+3,KK+3))*EICH
100 DN(K,4)=SQRT(AR(KK+4,KK+4))/DL
IF (LOGOUT.EQ.-1) GO TO 200
WRITE(ICHAN,599) ITORQ,IDILA,RUN,HANG
WRITE(ICHAN,600)
WRITE(ICHAN,601) (QN(1,J),J=1,4)
WRITE(ICHAN,607)
WRITE(ICHAN,608) ((QN(I,J),J=1,4),PM(I),I=2,K1)
WRITE(ICHAN,602)
WRITE(ICHAN,603) ((QN(I,J),J=1,4),I=2,K1)
WRITE(ICHAN,604)
WRITE(ICHAN,600)
WRITE(ICHAN,601) (DN(1,J),J=1,4)
WRITE(ICHAN,602)
WRITE(ICHAN,603) ((DN(I,J),J=1,4),I=2,K1)
130 CONTINUE
RETURN
200 ICHAN=7
WRITE(ICHAN,610)
IMIST=1
WRITE(ICHAN,630) IMIST
WRITE(ICHAN,620) ADENT,GLOBAL,DITOMO,RUN
IMIST=8+K1-1
WRITE(ICHAN,630) IMIST
FNP=FLOAT(NP)
WRITE(ICHAN,640) DK,HANG,HUP,PS,TEMP,TV,EICH,FNP
DO 201 K=2,K1
201 PM(K)=PM(K)*1.E3/QN(K,1)
WRITE(ICHAN,640) (PM(K),K=2,K1)
WRITE(ICHAN,610)
IMIST=2
WRITE(ICHAN,630) IMIST
WRITE(ICHAN,630) K1
WRITE(ICHAN,640) ((QN(I,J),J=1,4),(DN(I,J),J=1,4),I=1,K1)
RETURN
END