Back to home page

EIC code displayed by LXR

 
 

    


Warning, /geant4/examples/extended/electromagnetic/TestEm3/geant3/include/celoss.inc is written in an unsupported language. File is not indexed.

0001 
0002       COMMON/CELOSS/ EdepAbs(MaxAbs),TrckAbs(MaxAbs),
0003      &               sumEdep(MaxAbs),sumTrck(MaxAbs),
0004      &               su2Edep(MaxAbs),su2Trck(MaxAbs)
0005      
0006       PARAMETER (MaxPlanes = MaxAbs*MaxLay + 1)
0007       COMMON/EFLOW/ EnerFlow(MaxPlanes),EleakLat(MaxPlanes)