c c last modified on: 19/02/09 by K.Lapidus c #include "hgeantmaxtrk.h" INTEGER NTRK INTEGER NSECT, NMAXCELL, EMCOPTBIN PARAMETER (EMCOPTBIN=9) PARAMETER (NSECT=6) PARAMETER (NMAXCELL=255) ! 15 rows * 17 columns INTEGER EMCTRK, EMCDET REAL EMCPE REAL EMCX, EMCY, EMCZ, EMCTOF, EMCMOM, EMCLEN REAL EMCXM, EMCYM, EMCZM REAL EMCPHOTLEN(EMCOPTBIN) ! cherenkov photon wavelength REAL EMCPHOTEFF(EMCOPTBIN) ! PMT photoefficiency COMMON /EMCTUPLE/ NTRK, EMCTRK(MAXTRKEMC), EMCDET(MAXTRKEMC), & EMCPE(MAXTRKEMC), EMCX(MAXTRKEMC), EMCY(MAXTRKEMC), & EMCZ(MAXTRKEMC), EMCTOF(MAXTRKEMC), EMCMOM(MAXTRKEMC), & EMCLEN(MAXTRKEMC), & EMCXM(MAXTRKEMC), EMCYM(MAXTRKEMC), EMCZM(MAXTRKEMC) INTEGER NUMED_LEADGLASS COMMON /EMCMED/ NUMED_LEADGLASS, & EMCPHOTLEN, EMCPHOTEFF INTEGER*8 POINT1, POINT2 COMMON /PROTR/ POINT1, POINT2