Gabriele Cosmo
8 lines
263 B
PHP
8 lines
263 B
PHP
|
|
COMMON/CELOSS/ EdepAbs(MaxAbs),TrckAbs(MaxAbs),
|
|
& sumEdep(MaxAbs),sumTrck(MaxAbs),
|
|
& su2Edep(MaxAbs),su2Trck(MaxAbs)
|
|
|
|
PARAMETER (MaxPlanes = 500)
|
|
COMMON/EFLOW/ Eforw(MaxPlanes),Eback(MaxPlanes), Idold
|