1 real radgen_xmin, radgen_xmax, radgen_ymin, radgen_ymax
3 parameter (radgen_xmin=1.0
e-09)
4 parameter (radgen_xmax=0.99)
5 parameter (radgen_ymin=0.005)
6 parameter (radgen_ymax=0.95)
8 double precision sigrad,tine,tnuc,tpro,tbor,demin,phipoi
11 + ,taout,rrout,dsitkm,dcvtkm,ddetkm,dsigmr,drcurr,ddeler
13 integer ntk,nrr,itkcur,iphi,ndxtkm
15 real sigradu, sigradp, sig1gu, sig1gp
17 common /rgencom/sigrad,tine,tnuc,tpro,tbor,demin
18 + ,sig1g,sigcor,vac,vertex,small,redfac
21 + ,dsitkm(400,3),dcvtkm(400,3),ddetkm(400,3)
22 + ,dsigmr(200,400),drcurr(200,400),ddeler(200,400)
23 + ,ntk,nrr ,itkcur,iphi,ndxtkm(3)
24 + ,sigradu, sigradp, sig1gu, sig1gp