]>
Commit | Line | Data |
---|---|---|
ce774e79 | 1 | |
2 | * Include file for JIMMY | |
3 | ||
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 | |
10 | LOGICAL ANOMOFF | |
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 | |
17 | PARAMETER(JMOUT = 6) | |
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 | |
25 | ||
26 | ||
27 | ||
28 | ||
29 |