source:
trunk/examples/extended/electromagnetic/TestEm3/geant3/include/celoss.inc@
1036
| Last change on this file since 1036 was 807, checked in by , 17 years ago | |
|---|---|
| File size: 276 bytes | |
| Rev | Line | |
|---|---|---|
| [807] | 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.
