Geant4  9.6.p02
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
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