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 "celoss.inc"
8 *
9  CALL vzero(dedl,2*nbin)
10  strch = 0.
11  strne = 0.
12 *
13  CALL gtreve
14 *
15  END