File: IOTFOU.FT of Tape: Various/ETH/f2
(Source file text)
CDCKUNGFU,9621,CM60000,CT31.
CDCPERMF,LGO.
CDCFTN(BL,OPT,R).
CDCCATALOG,LGO,FITBIN.
CDC.EOR.
CDC PROGRAM KUNGFU(OUTPUT=240B,TAPE3=OUTPUT,TAPE5=240B,
CDC $ TAPE6=240B,TAPE7=240B)
C
COMMON /TITLE/ ADENT,GLOBAL,RUN,ICREAT
COMMON /FITPAR/ JIT,FISTOP,AMARQI,UPMARQ,DNMARQ,VARI,
$ UPVAR,DNVAR,VARMIN,MLOOP,LOOPLW,ISTART,ISTOP,ITEST,IDEFIX
COMMON /PARAM/ DKHI,SHFACT,CHISQ,ITORQ,IDILA,DK,DL,HANG
$ ,HUP,HDOWN,AMI,PS,PT,SOLLT,TEMP,TV,ES,AKL,AKV,CAP,EICH
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)
EQUIVALENCE (A,AR),(B,Z)
INTEGER RUN
REAL K3
LOGICAL ITORQ,IDILA,ITEST,TASWI
C
400 FORMAT(1H1,T30,'$$$$$$$$$$ KUNGFU VERSION NUMBER ',A2,
$ ' $$$$$$$$$$'/)
500 FORMAT(8(F10.4/),6(I5/),L1/,I5)
600 FORMAT(' FISTOP'0PF10.4/' AMARQI'F10.4/' UPMARQ'F10.4/
$ ' DNMARQ'F10.4/' VARI 'F10.4/' UPVAR 'F10.4/' DNVAR '
$ F10.4/' VARMIN'F10.4/' MLOOP 'I5/' LOOPLW'I5/' ISTART'
$ I5/' ISTOP 'I5/' KMAX 'I5/' KBLOW 'I5/
$ ' ITEST 'L1/' FILTER'I5/)
C
READ(6,500) FISTOP,AMARQI,UPMARQ,DNMARQ,VARI,
$ UPVAR,DNVAR,VARMIN,MLOOP,LOOPLW,ISTART,ISTOP,
$ KMAX,KBLOW,ITEST,IDEFIX
IF (KMAX.GT.10) STOP 10
C TEST OUTPUT
WRITE(3,600) FISTOP,AMARQI,UPMARQ,DNMARQ,VARI,
$ UPVAR,DNVAR,VARMIN,MLOOP,LOOPLW,ISTART,ISTOP,
$ KMAX,KBLOW,ITEST,IDEFIX
C
CDC REMOVE 4
CALL CLRPLT(400,PLTBUF)
DO 110 I=1,256
CALL PLOT(1,1.25*I/256.,0.)
110 CONTINUE
IVERS=2H4F
1 IOK=0
2 WRITE(3,400) IVERS
CALL INIFOU(IOK)
NN=NP
CALL SUBFOU(.T.)
CDC REMOVE
CALL SCOPE(.F.,.T.,0)
CALL RELFOU(.T.,NN)
CALL SCOPE(.T.,.T.,0)
CALL SERFOU(1)
CALL FITFOU
CALL SUBFOU(.T.)
CDC REMOVE
CALL SCOPE(.F.,.T.,0)
CALL RELFOU(.T.,NN)
CALL SERFOU(-1)
CALL FITFOU
CALL OUTFOU(-1)
CALL SUBFOU(.T.)
CALL RELFOU(.T.,NN)
CALL SERFOU(0)
CDC SECOND ARG=.F.
CALL SCOPE(.T.,.T.,0)
IF (IOK.EQ.2) GO TO 1
IF (IOK.EQ.1) REWIND 5
GO TO 2
END