source: trunk/examples/extended/electromagnetic/TestEm2/geant3/src/gutrev.F @ 807

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

update
File size: 1.1 KB
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      CALL VZERO(DEDL,2*NBIN)                                                                                                         
10      STRCH = 0.
11      STRNE = 0.                                                             
12*                                                                               
13      CALL GTREVE                                                               
14*                                                                               
15      END                                                                       
Note: See TracBrowser for help on using the repository browser.