File: BLKFOU.FT of Tape: Various/ETH/f2
(Source file text)
BLOCK DATA BLKFOU 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 DATA ADENT,GLOBAL,RUN,ICREAT /'X','XX',0,0/ DATA JIT,FISTOP,AMARQI,UPMARQ,DNMARQ,VARI,UPVAR, $ DNVAR,VARMIN,MLOOP,LOOPLW,ISTART,ISTOP,ITEST,IDEFIX $ /0,.01,.001,10.0,.2,1.,1.4142,.25,.05,20,1,1,99,.F.,0/ DATA DKHI,SHFACT,CHISQ,ITORQ,IDILA,DK,DL,HANG $ ,HUP,HDOWN,AMI,PS,PT,SOLLT,TEMP,TV,ES,AKL,AKV,CAP,EICH $ /0.,0.,0.,.F.,.F.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0., $ 0.,0.,0.,0.,0./ DATA TASWI,KBLOW,KBLOW1,KMAX,K1,K3,CHI,Q,HIGHT,INDEX $ /.F.,100,8,10,1,1.,1.,44*0.,21*0.,21*0./ DATA C,D1,DIAGEL,D,E /44*0.,44*0.,44*0.,44*0.,44*0./ DATA F,NP /512*0.,512/ DATA PI,TWOPI /3.141592654,6.283185308/ DATA PLTBUF/400*0./ DATA A,B,N /2049*0.,2049*0.,4096/ END