source: trunk/examples/extended/electromagnetic/TestEm3/geant3/include/celoss.inc @ 807

Last change on this file since 807 was 807, checked in by garnier, 16 years ago

update
File size: 276 bytes
Line 
1
2      COMMON/CELOSS/ EdepAbs(MaxAbs),TrckAbs(MaxAbs),
3     &               sumEdep(MaxAbs),sumTrck(MaxAbs),
4     &               su2Edep(MaxAbs),su2Trck(MaxAbs)
5     
6      PARAMETER (MaxPlanes = MaxAbs*MaxLay + 1)
7      COMMON/EFLOW/ EnerFlow(MaxPlanes),EleakLat(MaxPlanes)
Note: See TracBrowser for help on using the repository browser.