Geant4  10.02.p03
TestEm3/geant3/src/gutrev.F
Go to the documentation of this file.
1 
2  SUBROUTINE gutrev
3 *
4 * User routine to control tracking of one event
5 * Called by GRUN
6 *
7 #include "calor.inc"
8 #include "celoss.inc"
9 *
10  do k=1,nbabsor
11  edepabs(k) = 0.
12  trckabs(k) = 0.
13  enddo
14 *
15  CALL gtreve
16 *
17  END
gutrev
subroutine gutrev
Definition: TestEm1/geant3/src/gutrev.F:3