JYMMY includes.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 2 Oct 2006 11:02:27 +0000 (11:02 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 2 Oct 2006 11:02:27 +0000 (11:02 +0000)
HERWIG/jimmy.inc [new file with mode: 0644]

diff --git a/HERWIG/jimmy.inc b/HERWIG/jimmy.inc
new file mode 100644 (file)
index 0000000..044d84c
--- /dev/null
@@ -0,0 +1,29 @@
+
+*     Include file for JIMMY
+
+      DOUBLE PRECISION YGAMMA, JMZMIN, JMRAD, PTJIM
+      DOUBLE PRECISION PHAD, JMU2, JMV2, SMALL, JMARRY
+c     JMARRY is the array storing gamma-p xsec at various z, & 
+c      max weight for each z
+      DOUBLE PRECISION TOTSCAT, NLOST
+      INTEGER MAXMS, NPSIMP, MSFLAG, JMPTYP, JCMVAR, NPROC
+      LOGICAL ANOMOFF
+      PARAMETER( NPROC = 117 )
+      PARAMETER( MAXMS  = 100  )  ! Maximum multiple scatters
+      PARAMETER( NPSIMP = 16 )  ! No. of Simpson rule (YBJ)
+C                                 intervals (must be even)
+      PARAMETER( SMALL  = 1.0D-20  )
+      INTEGER JMOUT, JMBUG, FN_TYPE, NSCAT, JMUEO, MAXMSTRY
+      PARAMETER(JMOUT = 6)
+      COMMON / JMPARM /  PTJIM, YGAMMA, JMZMIN, JMRAD(264)
+     &     ,PHAD, JMU2, JMV2, JMARRY( 6+MAXMS,0:NPSIMP )
+     &     ,NLOST, TOTSCAT, ANOMOFF, JCMVAR, JMUEO
+     &     ,JMPTYP(NPROC), JMBUG, FN_TYPE, MSFLAG, MAXMSTRY
+      DOUBLE PRECISION JMPROC, JMVETO
+      COMMON / JMEVNT/ JMPROC(NPROC)
+     &,        JMVETO(2,13), NSCAT
+
+
+
+
+