source: trunk/examples/extended/electromagnetic/TestEm3/geant3/src/gutrev.F @ 1309

Last change on this file since 1309 was 807, checked in by garnier, 16 years ago

update
File size: 459 bytes
Line 
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                                                                       
Note: See TracBrowser for help on using the repository browser.