INTEGER NCLMAX PARAMETER(NCLMAX=1000) REAL ECLMAT,ECLSCN,ECLMTOT,ECLSTOT INTEGER ICLTRAK,NUMBVCL,NCLMAT,NCLSCN COMMON /COILHITS/ECLMAT(4,NCLMAX),ECLSCN(4,NCLMAX),ICLTRAK(NCLMAX), & NUMBVCL(NCLMAX),NCLMAT,NCLSCN,ECLMTOT,ECLSTOT
where NCLHITS is the number of coil hits, ECLMAT(4,IHIT),ECLSCN(4,IHIT) are the energy deposits and ECLMAT(I,IHIT),ECLSCN(I,IHIT) I=1,3 are the x,y,z coordinates of the deposits in the MATerial and SCiNtillator respectively. ICLTRAK is the GEANT track which produced the hit. The total energies deposited in the coil material and scintillator are returned in the variables ECLMTOT,ECLSTOT respectively.