Gabriele Cosmo
18 lines
459 B
FortranFixed
18 lines
459 B
FortranFixed
|
|
SUBROUTINE GUTREV
|
|
*
|
|
* User routine to control tracking of one event
|
|
* Called by GRUN
|
|
*
|
|
#include "calor.inc"
|
|
#include "celoss.inc"
|
|
*
|
|
do k=1,NbAbsor
|
|
EdepAbs(k) = 0.
|
|
TrckAbs(k) = 0.
|
|
enddo
|
|
*
|
|
CALL GTREVE
|
|
*
|
|
END
|