ZDC/zdc_common.inc

   1 *
   2 * Variables for beam divergency and crossing angle (important for ZDC !)
   3 *
   4       COMMON/BMDIV/BMDIV,BMCRA,IFLCR
   5       REAL BMDIV,BMCRA
   6       INTEGER IFLCR
   7 *
   8 *
   9 * Variables relative to size (and offset) of the beam
  10 *
  11       COMMON /BMTYPE/ BEAMTY,EPERN
  12       INTEGER BEAMTY
  13       COMMON /INBEAM/ FX,FY,SIGX,SIGY
  14 *
  15 *
  16 * Flags and arrays for the generation of Fermi momentum of the spectators
  17 *
  18       COMMON/CFERMI/IFERMI,
  19      +            PROBINTP(0:200),PROBINTN(0:200),PP(0:200),DDP(3)
  20 *
  21 *
  22 * Geometrical quantities relative to ZDC
  23 *
  24       COMMON /ZDC_CGEOM/
  25      + HDZN(3), HDZP(3), FIZN(3), FIZP(3), GRZN(3), GRZP(3),
  26      + NCEN(3), NCEP(3), ZNPOS(3), ZPPOS(3)
  27 *
  28 *
  29 * Steering flags and variables for HIJING/VENUS
  30 *
  31       COMMON/EVGN/IHIJ,IHIJF,IHIJSP,IVNU,IVNUF,IVNSP
  32       COMMON/EVVAR/BIMP,PARTI
  33 *
  34 *
  35 * Files for input/output
  36 *
  37       CHARACTER*60 FILEA,FILEV,FILEH
  38       COMMON/FIL/FILEA,FILEV,FILEH
  39       INTEGER FILEI(15),FILEJ(15),FILEK(15)
  40       EQUIVALENCE(FILEA,FILEI(1))
  41       EQUIVALENCE(FILEV,FILEJ(1))
  42       EQUIVALENCE(FILEH,FILEK(1))
  43 *
  44 *
  45 * Variables for hit storage
  46 *
  47 * Set ZDC
  48 *
  49       PARAMETER(NVZN=2)
  50       PARAMETER(NVZP=2)
  51       COMMON /ZDC_HITS/ ZSET,ZN1,ZP1,CHNMSZN(NVZN),CHNMSZP(NVZP),
  52      +                  NBITSZN(NVZN),NBITSZP(NVZP),IDTYPZN,IDTYPZP,
  53      +                  NWHI,NWDI,ITOLD
  54       CHARACTER*4 ZSET,ZN1,ZP1
  55       CHARACTER*4 CHNMSZN,CHNMSZP
  56       INTEGER NBITSZN,NBITSZP
  57       INTEGER IDTYPZN,IDTYPZP
  58 *
  59 * Detectors ZN1,ZP1
  60 *
  61       PARAMETER(NHZ=7)
  62       PARAMETER(NZPTX=2,NZPTY=2,NZNTX=2,NZNTY=2)
  63       COMMON /ZDC_DET/ CHNAMH(NHZ),NBITSH(NHZ),ORIG(NHZ),FACT(NHZ),
  64      +                 HITS(NHZ),HITSBUPP(NHZ),HITSBUPN(NHZ),
  65      +                 NHSUM
  66       CHARACTER*4 CHNAMH
  67       INTEGER NBITSH
  68       REAL ORIG,FACT
  69       REAL HITS
  70       REAL HITSBUPP,HITSBUPN
  71       INTEGER NHSUM
  72 *
  73 * Variables for CWN
  74 *
  75       COMMON/ZNTVAR/NPA,ENE,SFL,
  76      +XZP,YZP,
  77      +EZP(NZPTX,NZPTY),NPP(NZPTX,NZPTY),
  78      +XZN,YZN,
  79      +EZN(NZNTX,NZNTY),NPN(NZNTX,NZNTY)
  80 *
  81       INTEGER NPA,NPP,NPN,SFL
  82       REAL ENE,XZP,YZP,EZP,XZN,YZN,EZN
  83 *
  84 *
  85 * Flag for showering of primary particles
  86 *
  87       COMMON/SECFL/ISECF
  88 *
  89 *
  90 * Arrays for Cerenkov photons
  91 *
  92       PARAMETER (NBETA=4, NALFA=90, NBE=18)
  93       COMMON /TABL/ TABLE(NBETA,NALFA,NBE)
  94 *