TestEm11/geant3/src/gutrev.F File Reference

#include "celoss.inc"
#include "histo.inc"

Include dependency graph for TestEm11/geant3/src/gutrev.F:

Go to the source code of this file.

Functions/Subroutines
subroutine	gutrev

Function/Subroutine Documentation

gutrev()

subroutine gutrev

(

)

Definition at line 3 of file TestEm11/geant3/src/gutrev.F.

*                                                                               
*     User routine to control tracking of one event                 
*     Called by GRUN                                                            
*                                                                     
#include "celoss.inc"
#include "histo.inc"                                                                       
*
* *** par event initialisations                                                                          
      eevent  = 0.
*
* *** process the event                                                                               
      CALL gtreve
*
* *** returns if no energy deposition
      if (eevent.le.0.) return      
*
* *** histo: total energy deposited
      ih = 2
      if (histo(ih)) call hfill (ih,eevent/histunit(ih),0.,1.)
*
* *** cumul energy deposited
      etot  = etot  + eevent
      etot2 = etot2 + eevent*eevent
*