Bug fix
[u/mrichter/AliRoot.git] / HERWIG / jimmy.inc
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