source:
trunk/examples/extended/electromagnetic/TestEm3/geant3/include/celoss.inc
@
1254
Last change on this file since 1254 was 807, checked in by , 16 years ago | |
---|---|
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.