[u/mrichter/AliRoot.git] / ZDC / zdc_common.inc

*
* Variables for beam divergency and crossing angle (important for ZDC !)
*
      COMMON/BMDIV/BMDIV,BMCRA,IFLCR
      REAL BMDIV,BMCRA
      INTEGER IFLCR
*
*
* Variables relative to size (and offset) of the beam
*
      COMMON /BMTYPE/ BEAMTY,EPERN
      INTEGER BEAMTY
      COMMON /INBEAM/ FX,FY,SIGX,SIGY
*
*
* Flags and arrays for the generation of Fermi momentum of the spectators
*
      COMMON/CFERMI/IFERMI,
     +            PROBINTP(0:200),PROBINTN(0:200),PP(0:200),DDP(3)
*
*
* Geometrical quantities relative to ZDC
*
      COMMON /ZDC_CGEOM/
     + HDZN(3), HDZP(3), FIZN(3), FIZP(3), GRZN(3), GRZP(3),
     + NCEN(3), NCEP(3), ZNPOS(3), ZPPOS(3)
*
*
* Steering flags and variables for HIJING/VENUS
*
      COMMON/EVGN/IHIJ,IHIJF,IHIJSP,IVNU,IVNUF,IVNSP
      COMMON/EVVAR/BIMP,PARTI
*
*
* Files for input/output
*
      CHARACTER*60 FILEA,FILEV,FILEH
      COMMON/FIL/FILEA,FILEV,FILEH
      INTEGER FILEI(15),FILEJ(15),FILEK(15)
      EQUIVALENCE(FILEA,FILEI(1))
      EQUIVALENCE(FILEV,FILEJ(1))
      EQUIVALENCE(FILEH,FILEK(1))
*
*
* Variables for hit storage
*
* Set ZDC
*
      PARAMETER(NVZN=2)
      PARAMETER(NVZP=2)
      COMMON /ZDC_HITS/ ZSET,ZN1,ZP1,CHNMSZN(NVZN),CHNMSZP(NVZP),
     +                  NBITSZN(NVZN),NBITSZP(NVZP),IDTYPZN,IDTYPZP,
     +                  NWHI,NWDI,ITOLD
      CHARACTER*4 ZSET,ZN1,ZP1
      CHARACTER*4 CHNMSZN,CHNMSZP
      INTEGER NBITSZN,NBITSZP
      INTEGER IDTYPZN,IDTYPZP
*
* Detectors ZN1,ZP1
*
      PARAMETER(NHZ=7)
      PARAMETER(NZPTX=2,NZPTY=2,NZNTX=2,NZNTY=2)
      COMMON /ZDC_DET/ CHNAMH(NHZ),NBITSH(NHZ),ORIG(NHZ),FACT(NHZ),
     +                 HITS(NHZ),HITSBUPP(NHZ),HITSBUPN(NHZ),
     +                 NHSUM
      CHARACTER*4 CHNAMH
      INTEGER NBITSH
      REAL ORIG,FACT
      REAL HITS
      REAL HITSBUPP,HITSBUPN
      INTEGER NHSUM
*
* Variables for CWN
*
      COMMON/ZNTVAR/NPA,ENE,SFL,
     +XZP,YZP,
     +EZP(NZPTX,NZPTY),NPP(NZPTX,NZPTY),
     +XZN,YZN,
     +EZN(NZNTX,NZNTY),NPN(NZNTX,NZNTY)
*
      INTEGER NPA,NPP,NPN,SFL
      REAL ENE,XZP,YZP,EZP,XZN,YZN,EZN
*
*
* Flag for showering of primary particles
*
      COMMON/SECFL/ISECF
*
*
* Arrays for Cerenkov photons
*
      PARAMETER (NBETA=4, NALFA=90, NBE=18)
      COMMON /TABL/ TABLE(NBETA,NALFA,NBE)
*
Commit	Line	Data
	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	*