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

(Source file text) 

---

	BLOCK DATA BLKFOU
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
	DATA ADENT,GLOBAL,DITOMO,RUN,ICREAT /1HX,2HXX,1HX,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,DK,DL,HANG
     $  ,HUP,HDOWN,CAPMO,AMI,PS,PT,SOLLT,TEMP,TV,ES,AKL,AKV,EICH
     $  /0.,11*0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
     $  0.,0.,0.,0.,0./
	DATA FRE1,FRE2,PERKmTRm5RKmTRm5RKmTRm5RKmTRm5RKmTRm5RKmTRm5RKmTRm5RKmTRm5RKmTRm5RKmTRm5RKmTRm5RKmTRm5RKmTRm5RKmTRm5RKmTRm5RKmTRm5RKmTRm5RKmTRm5RKmTRm5RKmTRm5RKmTRm5RKUuUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU

---