C************************************************************** C* * C* H I T S . C D E * C* * C************************************************************** C--- C--- This file contains common blocks with the informations C--- concerning the hit distribution inside the detector. C--- There are three types of arrays : C--- a. arrays in which the element number is still C--- in the CAMAC system numeration C--- b. hit maps C--- c. shuffled arrays C--- C--- Maps of hits in the detectors. IHxxxRG is the register map C--- HxxxAD is the FERA Raw data signal map, HxxxADS is the FERA C--- signal map after pedestal subtraction, HxxxADN is the FERA C--- signal map after normalization. C--- C--- This file contains the common blocks having the hit list and content C--- reorganized in vectors, data being shuffled and a list of elements C--- provided C--- FERA read out: Signal Height -> SHxxxx where xxxx is the C--- detector mnemonic, SHHOD1,....SHCCAL etc...; C--- while the element list is shuffled into: NADxxxx C--- REGISTER (PU) : element list is shuffled in NRGxxxx C--- The number of hits in each detector (NHxxxAD and NHxxxRG) is contained C--- in the common /NHITC/ C--- C--- Registers : ROC and PCOS (equipments with a 0,1 readout) C--- ----------------------------------------------------- C--- NHITRG total # of ROC+PCOS hits C--- KHITRG(i,IDET) where IDET is the detector index (as defined in PARDEF.CDE) C--- i=1 # of hits C--- i=2 pointer to the IELRG array C--- IELRG(i,j) element list where C--- i=1 PU # or VSN for PCOS or slab # for ROC C--- i=2 bit # or channel # for PCOS or pad # for ROC C--- ( pad <0 inner layer pad >0 outer layer) C--- C--- ADC readout C--- -------------------------- C--- NHITAD total # of ADC hits C--- KHITAD(i,IDET) where IDET is the detector index (as defined in PARDEF.CDE) C--- i=1 # of hits C--- i=2 pointer to the IELAD and ADCNT arrays C--- IELAD(i,j) element list where C--- i=1 VSN C--- i=2 channel C--- ADCNT(j) ADC count for the element C--- ADCNTS(j) ADC count ped subtr for the element C--- ADCNTN(j) ADC count norm for the element C--- C--- TDC readout :STR1, STR2, TRIGG, CCAL, FCAL (summers), HODx, CRNK, VETO C--- --------------------------------- C--- NHITTDC # of hits C--- KHITTDC(1,idet) where IDET is the detector index (as defined in PARDEF.CDE) C--- i=1 # of hits C--- i=2 pointer to the IELTDC and TDCCNT arrays C--- IELTDC(i,j) element list C--- i=1 VSN C--- i=2 channel C--- TDCCNT(j) TDC counts for the element C--- > 0 Leading edge data C--- < 0 Trailing edge data C--- TDCCNTS(j) TDC counts (t0 subtr) for the element C--- TDCCNTC(j) TDC counts (t0 subtr) pulse height- corrected for the element C--- C--- Scaler readout C--- -------------- C--- NSCAL # of scalers C--- ISCNT(j) scaler counts C--- C ========================================================== Hit maps ==== C--- C--- Hodoscope H1 i(=1-8) element number C--- IHH1TD (i) # of H1 TDC hits in chan i C--- HH1TD (k,i) H1 TDC signal map ( k=1,IHH1TD(i) ) C--- HH1TDS(k,i) H1 t0 subtracted TDC signal map C--- HH1TDC(k,i) H1 t0 subtracted and corrected TDC signal map C--- HH1AD(i) H1 FERA signal map C--- HH1ADS(i) H1 Pedestal subtracted FERA signal map C--- HH1ADN(i) H1 normalized FERA signal map C--- C--- Straw 1 i(=1:inner,=2:outer) ring, C--- j(=1-64) wire number C--- IHST1TD (j,i) # of Straw1 TDC hits wire j; layer i C--- HST1TD (k,j,i) Straw1 TDC map ( k=1,IHST1TD(j,i) ) C--- HST1TDS(k,j,i) Straw1 TDC map after t0 subtraction C--- C--- Hodoscope HP i(=1-24) element number C--- IHHPTD (i) # of HP TDC hits in chan i C--- HHPTD (k,i) HP TDC signal map ( k=1,IHHPTD(i) ) C--- HHPTDS(k,i) HP t0 subtracted TDC signal map C--- HHPTDC(k,i) HP t0 subtracted and corrected TDC signal map C--- HHPAD(i) HP FERA signal map C--- HHPADS(i) HP Pedestal subtracted FERA signal map C--- HHPADN(i) HP normalized FERA signal map C--- C--- Silicon Barrel i(=1:1in,=2:1out,=3:2in,=4:2out) layer C--- j(=1,12) Slab number C--- k(=1,96) pad number C--- IHSIRG(k,j,i) Silicon barrel ROC hit map C--- C--- Straw 2 i(=1:inner,=2:outer) ring, C--- j(=1-64) wire number C--- IHST2TD (j,i) # of Straw2 TDC hits wire j; layer i C--- HST2TD (k,j,i) Straw2 TDC map ( k=1,IHST2TD(j,i) ) C--- HST2TDS(k,j,i) Straw2 TDC map after t0 subtraction C--- C--- Fibers i(=1:inner,=2:outer) ring, C--- j(=1-430) fiber number C--- IHFIRG(j,i) Fibers Hit map C--- HHFIAD(j,i) Fibers FERA map C--- HHFIADS(j,i) Pedestal subtracted fibers FERA map C--- HHFIADN(j,i) Normalized fibers FERA map C--- C--- Fiber sums i(=1-19) group number C--- IHFISTD (i) # of hits Fibers SUM TDC in chan. i C--- HFISTD (k,i) Fibers SUM TDC signal map ( k=1,IHFISTD(i) ) C--- HFISTDS(k,i) Fibers SUM t0 subtracted TDC signal map C--- C--- Hodoscope H2: i(=1-32) element number C--- IHH2TD (i) # of H2 TDC hit map in chan i C--- HH2TD (k,i) H2 TDC signal map ( k=1,IHH2TD(i) ) C--- HH2TDS(k,i) H2 t0 subtracted TDC signal map C--- HH2TDC(k,i) H2 t0 subtracted and corrected TDC signal map C--- HH2AD(i) H2 FERA signal map C--- HH2ADS(i) H2 Pedestal Subtracted FERA signal map C--- HH2ADN(i) H2 normalized FERA signal map C--- C--- Cherenkov i(=1:back,=2:forw) mirrors C--- j(=1-8) is the phi element number C--- IHCHTD (j,i) # of Cerenkov TDC hit in (j,i) element C--- HCHTD (k,j,i) Cerenkov TDC signal map ( k=1,IHCHTD(j,i) ) C--- HCHTDS(k,j,i) Cerenkov t0 subtracted TDC signal map C--- HCHTDC(k,i) Cerenkov t0 subtracted and corrected TDC signal map C--- HCHAD(j,i) Cherenkov FERA signal map; C--- HCHADS(j,i) Cherenkov Pedestal subracted FERA signal map; C--- HCHADN(j,i) Cherenkov normalized FERA signal map; C--- C--- C--- Veto counters i(=1-8) element number C--- IHVETTD (i) # of Veto TDC hit chan i C--- HVETTD (k,i) Veto TDC signal map ( k=1,IHVETTD(i) ) C--- HVETTDS(k,i) Veto t0 subtracted TDC signal map C--- HVETTDC(k,i) Veto t0 subtracted and corrected TDC signal map C--- HVETAD (i) Veto FERA signal map (i=1-32), C--- HVETADS(i) Veto Pedestal Subtracted FERA signal map C--- HVETADN(i) Veto normalized FERA signal map C--- C--- Central calorimeter: i(=1-20) ring number, C--- j(=1-64) wedge number (phi) C--- IHCCTD (i,j) # of CCal TDc hits in module (i,j) C--- HCCTD (k,i,j) Central Calorimeter TDC signal map ( k=1,IHCCTD(j,i) ) C--- HCCTDS(k,i,j) Central Calorimeter t0 Subtracted TDC signal map C--- HCCTDC(k,i) Central Calorimeter t0 sub. and corrected TDC signal map C--- HCCAL (i,j) Central Calorimeter FERA signal map C--- HCCALS(i,j) Central Calorimeter Pedestal Subtracted FERA signal map C--- HCCALN(i,j) Central Calorimeter normalized FERA signal map C--- C--- Forward Calorimeter i(=1,14) x block # (run number < 1500) C--- j(=1,14) y block # C--- IHFCTD (i,j) # of Fcal TDc hits in module (i,j) C--- HFCTD (k,i,j) Forward Calorimeter TDC signal map ( k=1,IHFCTD(j,i) ) C--- HFCTDS(k,i,j) Forward Calorimeter t0 Subtracted TDC signal map C--- HFCTDC(k,i) Forward Calorimeter t0 sub. and corrected TDC signal map C--- HFCAL (i,j) Forward Calorimeter FERA signal map C--- HFCALS(i,j) Forward Calorimeter Pedestal Subtracted FERA signal map C--- HFCALN(i,j) Forward Calorimeter normalized FERA signal map C---- C--- Forward Calorimeter i(=1,144) (run number > 1500) C--- IHFC2TD (i) # of Fcal TDc hits in module (i) C--- HFC2TD (k,i) Forward Calorimeter TDC signal map ( k=1,IHFCTD(i) ) C--- HFC2TDS(k,i) Forward Calorimeter t0 Subtracted TDC signal map C--- HFC2TDC(k,i) Forward Calorimeter t0 sub. and corrected TDC signal map C--- HFCAL2 (i) Forward Calorimeter FERA signal map C--- HFCAL2S(i) Forward Calorimeter Pedestal Subtracted FERA signal map C--- HFCAL2N(i) Forward Calorimeter normalized FERA signal map C---- C--- TRIGGER TDCs (i=1,16) C--- (k=1,IHxxMLU(i)) C--- Master MLU C--- C--- IHMAMLU(i) Hit Map C--- HMAMLU(k,i) TDC counts C--- HMAMLUS(k,i) T0 subtracted TDC counts C--- C--- Charged MLU C--- C--- IHCHMLU(i) Hit Map C--- HCHMLU(k,i) TDC counts C--- HCHMLUS(k,i) T0 subtracted TDC counts C--- C--- Phi Phi MLU C--- C--- IHFFMLU(i) Hit Map C--- HFFMLU(k,i) TDC counts C--- HFFMLUS(k,i) T0 subtracted TDC counts C--- C--- Neutral MLU C--- C--- IHNTMLU(i) Hit Map C--- HNTMLU(k,i) TDC counts C--- HNTMLUS(k,i) T0 subtracted TDC counts C--- C--- Gatemaster Inputs C--- C--- IHGTMS(i) Hit Map C--- HGTMS(k,i) TDC counts C--- HGTMSS(k,i) T0 subtracted TDC counts C--- C--- Central calorimeter sums C--- CCAS: j=1,8 "super-wedge" number (phi) C--- i=1,5 "super-ring" number (theta) C--- k=1,2 on time or delayed (just for Feras) C--- HCCAS (i,j,k) Central calorimeter sum FERA signal map C--- HCCASS(i,j,k) Central Calorimeter Ped subtr. Fera signal map C--- HCCASN(i,j,k) Central Calorimeter normalized Fera signal map C--- IHCCSTD (i,j) # of TDC hits C. calorimeter sums chan (i,j) C--- HCCSTD (n,i,j) C. Cal. sum TDC hit map ( n=1 IHCCSTD(i,j)) C--- HCCSTDS(n,i,j) C. Cal. sum t0 subtr TDC hit map C--- HCCSTDC(n,i,j) C. Cal. sum t0 subtr and corrected TDC hit map C--- C--- PBG minimum bias C--- j=1,8 "super-wedge" number (phi) C--- i=1,20 ring (theta) C--- C--- IHCCMTD (i,j) # of TDC hits C. calorimeter min bias chan (i,j) C--- HCCMTD (n,i,j) C. Cal. min bias TDC hit map ( n=1 IHCCMTD(i,j)) C--- HCCMTDS(n,i,j) C. Cal. min bias t0 subtr TDC hit map C--- HCCMTDC(n,i,j) C. Cal. min bias t0 subtr and corrected TDC hit map C--- C--- Ring sums C--- i=1,22 ( 1-20: Rings ; 21: Etot 80%; 22: Etot 70%) C--- HRINGS (i) Central calorimeter Ring Sum FERA signal map C--- HRINGSS(i) Central Calorimeter Ring Sum Ped subtr. Fera signal map C--- HRINGSN(i) Central Calorimeter Ring Sum normalized Fera signal map C--- C--- IHRSTD (i) # of TDC hits Ring sums chan i C--- HRSTD (k,i) Ring sum TDC hit map ( k=1 IHFCSTD(i,j)) C--- HRSTDS(k,i) Ring sum t0 subtr TDC hit map C--- HRSTDC(k,i) Ring sum t0 subtr and corrected TDC hit map C--- C--- Forward calorimeter sum i(=1-6) element # C--- C--- HFCAS (i) Forward calorimeter sum FERA signal map C--- HFCASS(i) Forward calorimeter sum P.Subtr. FERA signal map C--- HFCASN(i) Forward calorimeter sum Normalized FERA signal map C--- IHFCSTD (i) # of TDC hits Forward calorimeter sums chan i C--- HFCSTD (k,i) Forw. Cal. sum TDC hit map ( k=1 IHFCSTD(i,j)) C--- HFCSTDS(k,i) Forw. Cal. sum t0 subtr TDC hit map C--- HFCSTDC(k,i) Forw. Cal. sum t0 subtr and corrected TDC hit map C--- C--- ========================================= Shuffled hit arrays ======= C--- C--- Hodoscope H1 C--- NHH1AD # of H1 hits as ADC, C--- SHHOD1(i) normalized ADC counts for i=1 to NHH1AD C--- NADHOD1(i) list of element numbers (1-8) for i=1 to NHH1AD C--- NHH1TD # of H1 hits as TDC C--- TDHOD1(i) t0 subtracted TDC counts for i=1 to NHH1TD C--- NTDHOD1(i) list of element numbers (1-8) for i=1 to NHH1TD C--- C--- Straw1 i(=1 or 2) ring C--- NHST1TDT total # of straw1 hits C--- NHST1TD(i) Number of straw hits in each ring C--- TDSTR1(k,i) T0 subtracted TDC counts for k= 1 to NHST1TD(i) C--- NTDSTR1(k,i) list of hit wires C--- C--- Hodoscope HP C--- NHHPAD # of HP hits as ADC, C--- SHHODP(i) normalized ADC counts for i=1 to NHHPAD C--- NADHODP(i) list of element number 1-24 for i=1 to NHHPAD C--- NHHPTD # of HP hits as TDC C--- TDHODP(i) t0 subtracted TDC counts for i=1 to NHHPTD C--- NTDHODP(i) list of element number (1-24) for i=1 to NHHPTD C--- C--- Silicon barrel i(=1-4) layer C--- NHSIRGT Total # of hits in SILI C--- NHSIRG(i) Number of Hits in each layer C--- NRGSILI(k,j,i) List of hits : k=1 Pad number C--- k=2 Slab number for j=1 to NHSIRG(i) C--- C--- Fibers i(=1:inner,=2:outer) layer C--- NHFIADT Total # of hits in FIBE as ADC C--- NHFIAD (i) Number of Hits in each layer as ADC C--- SHFIBE (j,i) Normalized ADC counts for j=1 to NHFIAD(i) C--- NADFIBE(j,i) list of fiber numb. 1-430 for j=1 to NHFIAD(i) C--- NHFIRGT Total # of PCOS hits in FIBE C--- NHFIRG (i) Number of PCOS Hits in each layer C--- NRGFIBE(j,i) list of hit fibers (PCOS) C--- C--- Fiber sums C--- NHFISTD Number of hits in the fiber sums C--- TDFIBS (i) t0 subtracted TDC count C--- NTDFIBS(i) List of fiber sums element number for i=1,NHFISTD C--- C--- Straw2 i(=1:inner,=2:outer) ring C--- NHST2TDT total # of straw2 hits C--- NHST2TD (i) Number of straw hits in each ring C--- TDSTR2 (k,i) T0 subtracted TDC counts for k= 1 to NHST2TD(i) C--- NTDSTR2(k,i) list of hit wires (1-64) C--- C--- Hodoscope H2 C--- NHH2AD # of H2 hits as ADC, C--- SHHOD2 (i) normalized ADC counts for i=1 to NHH2AD C--- NADHOD2(i) list of element number 1-32 for i=1 to NHH2AD C--- NHH2TD # of H2 hits as TDC C--- TDHOD2 (i) t0 subtracted TDC counts for i=1 to NHH2TD C--- NTDHOD2(i) list of element number (1-32) for i=1 to NHH2TD C--- C--- Cherenkov i(=1:back,2:forw) ring C--- NHCHADT total # of Cherenkov hits as ADC C--- NHCHAD (i) Number of ADC hits in ring C--- SHCRNK (j,i) normalized ADC counts for j=1 to NHCHAD(i) (N.p.e.) C--- NADCRNK(j,i) list of hit nirrors C--- NHCHTDT total # of Cherenkov hits as TDC C--- NHCHTD (i) # of Cherenkov hits as TDC in ring C--- TDCRNK (j,i) t0 subtracted TDC counts for j=1 to NHCHTD(i) C--- NTDCRNK(j,i) list of hit mirrors C--- C--- Veto counters C--- NHVETAD # of Veto hits as ADC C--- SHVETO (i) Normalized ADC counts for i=1 to NHVETAD C--- NADVETO(i) list of element number C--- NHVETTD # of Veto hits as TDC C--- TDVETO (i) t0 subtracted TDC counts for i=1 to NHVETTD C--- NTDVETO(i) list of element number C--- C--- Central Calorimeter C--- NHCCALT total # of C.Cal. hits as ADC, C--- NHCCALR(i) # of C.Cal. hits as ADC for the i-th ring (1-20) C--- NHCCALP(i) # of C.Cal. hits as ADC for the i-th wedge (1-64) C--- SHCCAL (i) normalized ADC counts for i=1 to NHCCALT C--- NADCCAL(j,i) list of hit blocks j=1 ring number (1-20), C---- j=2 wedge number (1-64) C--- NHCCTDT total # of C.Cal. hits as TDC, C--- NHCCTDR(i) # of C.Cal. hits as TDC for the i-th ring (1-20) C--- NHCCTDP(i) # of C.Cal. hits as TDC for the i-th wedge (1-64) C--- TDCCAL (i) t0 subtracted TDC counts for i=1 to NHCCTDT C--- NTDCCAL(j,i) list of hit blocks j=1 ring number (1-20), C--- j=2 wedge number (1-64) C--- C--- Forward Calorimeter C--- NHFCALT total # of F.Cal. hits as ADC C--- NHFCALX(i) # of F.Cal. hits as ADC for the i-th X column C--- NHFCALY(i) # of F.Cal. hits as ADC fot the i-th Y row C--- SHFCAL (i) normalized ADC count for i=1 to NHFCALT C--- NADFCAL(j,i) List of hit blocks j=1 X number (1-14) (run < 1500) C--- j=2 Y number (1-14) C--- or C--- j=1 Module number run > 1500 C--- j=2 unused C--- NHFCTDT total # of F.Cal. hits as TDC C--- NHFCTDX(i) # of F.Cal. hits as TDC for the i-th X column C--- NHFCTDY(i) # of F.Cal. hits as TDC for the i-th Y row C--- TDFCAL (i) t0 subrtracted TDC count for i=1 to NHFCTDT C--- NTDFCAL(j,i) List of hit blocks j=1 X number (1-14),(run < 1500) C--- j=2 Y number (1-14) C--- or C--- j=1 Module number run > 1500 C--- j=2 unused C--- C--- Central Calorimeter sums C--- CCAS: C--- NHCSADT Total # of hits in C.Cal Sum2 as ADC C--- NHCSAD(k) Number of hits in C.Cal sum ontime (k=1) or del (k=2) C--- SHCCAS (i,k) ped subtracted ADC count in CCAS for i =1, NHCSAD(k) C--- NADCCAS(j,i,k) list of CCS2 hits j=1 super-ring#, C--- j=2 super-wedge# C--- NHCSTD Total # of hits in C.Cal Sum2 as TDC C--- TDCCAS (i) T0 subtracted ADC count in CCAS for i =1, NHCSTD C--- NTDCCAS(j,i) list of CCS2 hits j=1 super-ring#, C--- j=2 super-wedge# C--- C--- Forward Calorimeter Sums C--- NHFCSAD Number of ADC hits in F.Cal Sums C--- SHFCAS (i) normalized ADC count for i=1 to NHFCSAD C--- NADFCAS(i) List of element number for hits in SHFCAS C--- NHFCSTD Number of TDC hits in F.Cal Sums C--- TDFCAS (i) t0 subtr TDC count for i=1 to NHFCSTD C--- NTDFCAS(i) list of element number for hits in TDFCAS C--- C--- C =========================================================================== C--- C--- INTEGER NMXHRG, NMXHAD, NMXTDC, NMXSCA PARAMETER (NMXHRG=7000, NMXHAD=3000, NMXTDC=5000, NMXSCA=20) INTEGER NHITRG, KHITRG (2,NMXDET) &, NHITAD, KHITAD (2,NMXDET) &, NHITTDC,KHITTDC(2,NMXDET),NSCAL INTEGER IELRG (2,NMXHRG), IELAD (2,NMXHAD) &, IELTDC(2,NMXTDC), ISCNT(NMXSCA) REAL ADCNT (NMXHAD), TDCCNT (NMXTDC) REAL ADCNTS(NMXHAD), TDCCNTS(NMXTDC) REAL ADCNTN(NMXHAD), TDCCNTC(NMXTDC) COMMON/HITNUMS/NHITRG,KHITRG,NHITAD,KHITAD,NHITTDC,KHITTDC +, NSCAL COMMON/HITLIST/IELRG,IELAD,IELTDC COMMON/HITCOUN/ADCNT,TDCCNT,ISCNT,ADCNTS,ADCNTN,TDCCNTS,TDCCNTC C--- C--- ================================================ Hit Maps ======== C--- Maximum number of TDC hits for each channel INTEGER NMXMHT PARAMETER (NMXMHT =6) ! Changed by F.M> 22/9/96 13.20 INTEGER IHH1TD(8), IHST1TD(64,2), IHHPTD(24), IHST2TD(64,2) +, IHFISTD(19), IHH2TD(32), IHCHTD(8,2), IHVETTD(8) +, IHCCTD(20,64), IHFCTD(14,14) +, IHFCSTD(6),IHMAMLU(16),IHCHMLU(16),IHFFMLU(16) +, IHNTMLU(16),IHGTMS(16) +, IHCCSTD(5,8), IHCCMTD(20,8), IHRSTD(20), IHFC2TD(144) REAL HH1TD (NMXMHT,8), HST1TD (NMXMHT,64,2), HHPTD (NMXMHT,24) +, HST2TD (NMXMHT,64,2), HFISTD (NMXMHT,19) +, HH2TD (NMXMHT,32), HCHTD (NMXMHT,8,2), HVETTD (NMXMHT,8) +, HCCTD (NMXMHT,20,64), HFCTD (NMXMHT,14,14) +, HFCSTD (NMXMHT,6) +, HMAMLU (NMXMHT,16), HCHMLU (NMXMHT,16), HFFMLU (NMXMHT,16) +, HNTMLU (NMXMHT,16), HGTMS (NMXMHT,16) +, HCCSTD (NMXMHT,5,8), HCCMTD (NMXMHT,20,8), HRSTD (NMXMHT,20) +, HFC2TD (NMXMHT,144) REAL HH1TDS(NMXMHT,8), HST1TDS(NMXMHT,64,2), HHPTDS(NMXMHT,24) +, HST2TDS(NMXMHT,64,2), HFISTDS(NMXMHT,19) +, HH2TDS(NMXMHT,32), HCHTDS(NMXMHT,8,2), HVETTDS(NMXMHT,8) +, HCCTDS(NMXMHT,20,64), HFCTDS(NMXMHT,14,14) +, HFCSTDS(NMXMHT,6) +, HMAMLUS(NMXMHT,16), HCHMLUS(NMXMHT,16), HFFMLUS(NMXMHT,16) +, HNTMLUS(NMXMHT,16), HGTMSS(NMXMHT,16) +, HCCSTDS(NMXMHT,5,8), HCCMTDS(NMXMHT,20,8), HRSTDS(NMXMHT,20) +, HFC2TDS(NMXMHT,144) REAL HH1TDC(NMXMHT,8), HHPTDC(NMXMHT,24) +, HH2TDC(NMXMHT,32), HCHTDC(NMXMHT,8,2), HVETTDC(NMXMHT,8) +, HCCTDC(NMXMHT,20,64), HFCTDC(NMXMHT,14,14) +, HFCSTDC(NMXMHT,6) +, HCCSTDC(NMXMHT,5,8), HCCMTDC(NMXMHT,20,8), HRSTDC(NMXMHT,20) +, HFC2TDC(NMXMHT,144) REAL HH1AD (8), HHPAD (24), HHFIAD (430,2) +, HH2AD (32), HCHAD (8,2), HVETAD (8), HCCAL (20,64) +, HFCAL (14,14), HCCAS (5,8,2), HFCAS (6), HRINGS(20) +, HFCAL2(144) REAL HH1ADS(8), HHPADS(24), HHFIADS(430,2) +, HH2ADS(32), HCHADS(8,2), HVETADS(8), HCCALS(20,64) +, HFCALS(14,14), HCCASS(5,8,2), HFCASS(6), HRINGSS(20) +, HFCAL2S(144) REAL HH1ADN(8), HHPADN(24), HHFIADN(430,2) +, HH2ADN(32), HCHADN(8,2), HVETADN(8), HCCALN(20,64) +, HFCALN(14,14), HCCASN(5,8,2), HFCASN(6), HRINGSN(20) +, HFCAL2N(144) INTEGER IHSIRG(96,12,4), IHFIRG(430,2) C--- COMMON /DSELITI/ IHSIRG, IHFIRG +, IHH1TD, IHST1TD, IHHPTD, IHST2TD, IHFISTD, IHH2TD, IHCHTD +, IHVETTD, IHCCTD, IHFCTD, IHFCSTD, IHRSTD +, IHMAMLU,IHCHMLU,IHFFMLU,IHNTMLU,IHGTMS,IHCCSTD,IHCCMTD +, IHFC2TD COMMON /DSELITR/ HH1TD +, HST1TD, HHPTD, HST2TD, HFISTD, HH2TD, HCHTD +, HH1TDS, HST1TDS, HHPTDS, HST2TDS, HFISTDS, HH2TDS, HCHTDS +, HH1TDC, HHPTDC, HH2TDC, HCHTDC +, HVETTD, HCCTD, HFCTD, HFCSTD, HCCSTD, HCCMTD, HRSTD +, HVETTDS, HCCTDS, HFCTDS, HFCSTDS, HCCSTDS, HCCMTDS, HRSTDS +, HVETTDC, HCCTDC, HFCTDC, HFCSTDC, HCCSTDC, HCCMTDC, HRSTDC +, HCHMLU, HMAMLU, HFFMLU, HNTMLU, HGTMS +, HCHMLUS, HMAMLUS,HFFMLUS,HNTMLUS,HGTMSS +, HH1AD, HHPAD, HHFIAD, HH2AD, HCHAD, HVETAD +, HH1ADS, HHPADS, HHFIADS, HH2ADS, HCHADS, HVETADS +, HH1ADN, HHPADN, HHFIADN, HH2ADN, HCHADN, HVETADN +, HCCAL, HFCAL, HCCAS, HFCAS, HRINGS +, HCCALS, HFCALS, HCCASS, HFCASS, HRINGSS +, HCCALN, HFCALN, HCCASN, HFCASN, HRINGSN +, HFC2TD, HFC2TDS, HFC2TDC, HFCAL2, HFCAL2S, HFCAL2N C================================================ Shuffled hit arrays ====== INTEGER NHH1AD, NHH1TD, NHST1TDT, NHST1TD(2), NHHPAD, NHHPTD +, NHSIRGT, NHSIRG(4), NHFIADT, NHFIAD(2), NHFIRGT, NHFIRG(2) +, NHFISTD, NHST2TDT, NHST2TD(2), NHH2AD, NHH2TD +, NHCHADT, NHCHAD(2), NHCHTDT, NHCHTD(2), NHVETAD, NHVETTD +, NHCCALT, NHCCALR(20), NHCCALP(64), NHCCTDT, NHCCTDR(20) +, NHCCTDP(64), NHFCALT, NHFCALX(14), NHFCALY(14), NHFCTDT +, NHFCTDX(14), NHFCTDY(14), NHCSADT,NHCSAD(2) +, NHFCSAD, NHFCSTD, NHCSTD REAL SHHOD1(8), TDHOD1(16), TDSTR1(64,2), SHHODP(24), TDHODP(48) +, SHFIBE(430,2), TDFIBS (114), TDSTR2(64,2) +, SHHOD2(32), TDHOD2(64), SHCRNK(8,2), TDCRNK(16,2) +, SHVETO(8), TDVETO(16), SHCCAL(1280), TDCCAL(2560) +, SHFCAL(144), TDFCAL(288), SHCCAS(40,2) +, SHFCAS(6), TDFCAS (12), TDCCAS(80) INTEGER NADHOD1(8), NTDHOD1(16), NTDSTR1(64,2), NADHODP(24) +, NTDHODP(48), NRGSILI(2,1152,4), NADFIBE(430,2) +, NRGFIBE(430,2), NTDFIBS(114), NTDSTR2(64,2) +, NADHOD2(32), NTDHOD2(64), NADCRNK(8,2), NTDCRNK(16,2) +, NADVETO(8), NTDVETO(16), NADCCAL(2,1280), NTDCCAL(2,2560) +, NADFCAL(2,144), NTDFCAL(2,288), NADCCAS(2,40,2) +, NADFCAS(6), NTDFCAS(12), NTDCCAS(2,80) C--- C--- COMMON/NHITC/NHH1AD, NHH1TD, NHST1TDT, NHST1TD, NHHPAD, NHHPTD +, NHSIRGT, NHSIRG, NHFIADT, NHFIAD, NHFIRGT, NHFIRG +, NHFISTD, NHST2TDT, NHST2TD, NHH2AD, NHH2TD +, NHCHADT, NHCHAD, NHCHTDT, NHCHTD, NHVETAD, NHVETTD +, NHCCALT, NHCCALR, NHCCALP, NHCCTDT, NHCCTDR +, NHCCTDP, NHFCALT, NHFCALX, NHFCALY, NHFCTDT +, NHFCTDX, NHFCTDY, NHCSADT,NHCSAD, NHCSTD +, NHFCSAD, NHFCSTD C COMMON/HITELS/NADHOD1, NTDHOD1, NTDSTR1, NADHODP +, NTDHODP, NRGSILI, NADFIBE, NRGFIBE +, NTDFIBS, NTDSTR2, NADHOD2, NTDHOD2, NADCRNK +, NTDCRNK, NADVETO, NTDVETO, NADCCAL, NTDCCAL +, NADFCAL, NTDFCAL, NADCCAS, NADFCAS +, NTDFCAS, NTDCCAS C COMMON/HITSH/ SHHOD1, TDHOD1, TDSTR1, SHHODP, TDHODP +, SHFIBE, TDFIBS, TDSTR2, SHHOD2, TDHOD2 +, SHCRNK, TDCRNK, SHVETO, TDVETO, SHCCAL, TDCCAL +, SHFCAL, TDFCAL, SHCCAS, SHFCAS, TDFCAS, TDCCAS C C==========================================================================