File: KMA.FT of Tape: Various/ETH/f4

(Source file text) 

---

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)
	EQUIVALENCE (A,AR),(B,Z)
	INTEGER RUN
	REAL K3
	LOGICAL ITEST,TASWI
C
400	FORMAT(1H1,T30,"$$$$$$$$$$ KUNGFU VERSION NUMBER ",A2,
     $  " $$$$$$$$$$"/)
500	FORMAT(8(F10.4/),6(I5/),L1/,I5/,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/" SERMIN"I5/)
C
	READ(6,500) FISTOP,AMARQI,UPMARQ,DNMARQ,VARI,
     $  UPVAR,DNVAR,VARMIN,MLOOP,LOOPLW,ISTART,ISTOP,
     $  KMAX,KBLOW,ITEST,IDEFIX,JIT
	IF (KMAX.GT.10) STOP 10
C TEST OUTPUT
	WRITE(0,600) FISTOP,AMARQI,UPMARQ,DNMARQ,VARI,
     $  UPVAR,DNVAR,VARMIN,MLOOP,LOOPLW,ISTART,ISTOP,
     $  KMAX,KBLOW,ITEST,IDEFIX,JIT
C
	IVERS=2H6F
1	IOK=0
2	WRITE(0,400) IVERS
	CALL INIFOU(IOK)
	NN=NP
	CALL SUBFOU(.T.)
	CALL RELFOU(.T.,NN)
	CALL SCOPE(.T.,.T.,0)
	CALL SERFOU(1)
	CALL FITFOU
	CALL SUBFOU(.T.)
	CALL RELFOU(.T.,NN)
	CALL SERFOU(-1)
	CALL FITFOU
	CALL OUTFOU(-1)
	CALL SUBFOU(.T.)
	CALL RELFOU(.T.,NN)
	CALL SERFOU(0)
	CALL SCOPE(.T.,.F.,0)
	IF (IOK.EQ.2) GO TO 1
	IF (IOK.EQ.1) REWIND 5
	GO TO 2
	END

---