source: trunk/examples/extended/electromagnetic/TestEm4/geant3/src/gutrev.F

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

update
File size: 954 bytes
Line 
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      ETOT = 0.                                                               
10*                                                                               
11      CALL GTREVE                                                               
12*                                                                               
13      END                                                                       
Note: See TracBrowser for help on using the repository browser.