2 * Include file for JIMMY
4 DOUBLE PRECISION YGAMMA, JMZMIN, JMRAD, PTJIM
5 DOUBLE PRECISION PHAD, JMU2, JMV2, SMALL, JMARRY
6 c JMARRY is the array storing gamma-p xsec at various z, &
7 c max weight for each z
8 DOUBLE PRECISION TOTSCAT, NLOST
9 INTEGER MAXMS, NPSIMP, MSFLAG, JMPTYP, JCMVAR, NPROC
11 PARAMETER( NPROC = 117 )
12 PARAMETER( MAXMS = 100 ) ! Maximum multiple scatters
13 PARAMETER( NPSIMP = 16 ) ! No. of Simpson rule (YBJ)
14 C intervals (must be even)
15 PARAMETER( SMALL = 1.0D-20 )
16 INTEGER JMOUT, JMBUG, FN_TYPE, NSCAT, JMUEO, MAXMSTRY
18 COMMON / JMPARM / PTJIM, YGAMMA, JMZMIN, JMRAD(264)
19 & ,PHAD, JMU2, JMV2, JMARRY( 6+MAXMS,0:NPSIMP )
20 & ,NLOST, TOTSCAT, ANOMOFF, JCMVAR, JMUEO
21 & ,JMPTYP(NPROC), JMBUG, FN_TYPE, MSFLAG, MAXMSTRY
22 DOUBLE PRECISION JMPROC, JMVETO
23 COMMON / JMEVNT/ JMPROC(NPROC)
24 &, JMVETO(2,13), NSCAT