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"                                                                     
*                                                                          
      CALL vzero(dedl,2*nbin)                                                                                                         
      strch = 0. 
      strne = 0.                                                              
*                                                                               
      CALL gtreve                                                               
*                                                                               
      END