6 REAL*8 xl(10),xu(10),acc
7 common/bveg1/xl,xu,acc,ndim,ncall,itmx,nprn
21 common/himain2/
katt(130000,4),
patt(130000,4),
vatt(130000,4)
25 common/histrng/
nfp(300,15),
pp(300,15),
nft(300,15),
pt(300,15)
27 common/hijcrdn/
yp(3,300),
yt(3,300)
29 common/hijjet1/
npj(300),
kfpj(300,500),
pjpx(300,500),
39 common/hijdat/hidat0(10,10),hidat(10)
41 common/hipyint/mint4,mint5,atco(200,20),atxs(0:200)
43 DATA num1/30123984/,xl/10*0.d0/,xu/10*1.d0/
44 DATA ncall/1000/itmx/100/acc/0.01/nprn/0/
50 & 1.5, 0.35, 0.5, 0.9, 2.0, 0.1, 1.5, 2.0, -1.0, -2.25,
51 & 2.0, 0.5, 1.0, 2.0, 0.2, 2.0, 2.5, 0.3, 0.1, 1.4,
52 & 1.6, 1.0, 2.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.4, 57.0,
53 & 28.5, 3.9, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
55 & 0.0, 0.4, 0.1, 1.5, 0.1, 0.25, 0.0, 0.5, 0.0, 0.0,
59 & 1, 3, 0, 1, 1, 1, 1, 10, 0, 0,
60 & 1, 1, 1, 1, 0, 0, 1, 0, 0, 1,
75 DATA nfp/4500*0/
pp/4500*0.0/
nft/4500*0/
pt/4500*0.0/
77 DATA yp/900*0.0/
yt/900*0.0/
87 DATA mint4/0/mint5/0/atco/4000*0.0/atxs/201*0.0/
88 DATA (hidat0(1,
i),
i=1,10)/0.0,0.0,0.0,0.0,0.0,0.0,2.25,
90 DATA (hidat0(2,
i),
i=1,10)/2.0,3.0,5.0,6.0,7.0,8.0,8.0,10.0,
92 DATA (hidat0(3,
i),
i=1,10)/1.0,0.8,0.8,0.7,0.45,0.215,
93 & 0.21,0.19,0.19,0.19/
94 DATA (hidat0(4,
i),
i=1,10)/0.35,0.35,0.3,0.3,0.3,0.3,
96 DATA (hidat0(5,
i),
i=1,10)/23.8,24.0,26.0,26.2,27.0,28.5,28.5,
98 DATA ((hidat0(
j,
i),
i=1,10),
j=6,9)/40*0.0/
99 DATA (hidat0(10,
i),
i=1,10)/5.0,20.0,53.0,62.0,100.0,200.0,
100 & 546.0,900.0,1800.0,4000.0/