gutrev.F

Go to the documentation of this file.

      SUBROUTINE gutrev 
*
*     User routine to control tracking of one event
*     Called by GRUN
*
#include "calor.inc"
#include "celoss.inc"
*
      do k=1,nbabsor
        edepabs(k) = 0.
        trckabs(k) = 0.
      enddo                                                               
*
      CALL gtreve                                                               
* 
      END