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.