gutrev.F

Go to the documentation of this file.

      SUBROUTINE gutrev                                                         
*                                                                               
*     User routine to control tracking of one event                 
*     Called by GRUN                                                            
*                                                                     
#include "celoss.inc"                                                                       
*                                                                          
      etot = 0.                                                               
*                                                                               
      CALL gtreve                                                               
*                                                                               
      END