22
22
c @FC_USE_CDEC@$ ENDIF
23
23
C ---------------------------------------------------------------
24
24
integer csiz,bsiz,isizt,psiz,nsiz,lsiz
25
parameter (csiz=63,bsiz=4096,isizt=2048,psiz=256,nsiz=6)
26
parameter (lsiz=16384)
25
parameter (csiz=63,bsiz=4096,isizt=10000,psiz=4096,nsiz=6)
26
parameter (lsiz=65536)
28
28
parameter (nlgh=nsiz*4,vsiz=2)
29
29
integer maxdb,maxbpt
30
parameter (maxdb=20,maxbpt=100)
30
parameter (maxdb=100,maxbpt=1000)
32
parameter (intersiz=60)
32
parameter (intersiz=1024)
34
34
double precision stk(vsiz)
42
42
character cstk*(4*vsiz)
43
43
equivalence (cstk,stk(1))
45
complex*16 zstk(vsiz/2)
46
equivalence (zstk(1),stk(1))
45
48
integer bot,top,idstk(nsiz,isizt),lstk(isizt),leps,bbot,bot0,isiz
46
49
integer gbot,gtop,infstk(isizt)
47
50
common /vstk/ bot,top,idstk,lstk,leps,bbot,bot0,infstk,
50
53
integer ids(nsiz,psiz),pstk(psiz),rstk(psiz),pt,niv,macr,paus
52
common /recu/ ids,pstk,rstk,pt,niv,macr,paus,icall
55
common /recu/ ids,pstk,rstk,pt,niv,macr,paus,icall,krec
54
57
integer ddt,err,lct(8),lin(lsiz),lpt(6),hio,rio,wio,rte,wte
55
58
common /iop/ ddt,err,lct,lin,lpt,hio,rio,wio,rte,wte