TestEm4/geant3/src/guout.F File Reference

#include "geant321/gcflag.inc"
#include "celoss.inc"

Include dependency graph for TestEm4/geant3/src/guout.F:

Go to the source code of this file.

Functions/Subroutines
subroutine	guout

Function/Subroutine Documentation

guout()

subroutine guout

(

)

Definition at line 3 of file TestEm4/geant3/src/guout.F.

*                                                                               
*     User routine called at the end of each event                              
*                                                                               
#include "geant321/gcflag.inc"    
#include "celoss.inc"                                                               
*                                                                               
* *** drawing
*
#ifndef batch                                                          
        IF (iswit(1).NE.0) THEN
         CALL gdhead (110110,'TestEm4',0.)
         CALL gdshow (3)
         CALL gdxyz  (0)
      END IF
#endif     
*
*     energy deposited
*                                                                                
      emev = 1000.*etot                                                 
      CALL hfill(1,emev,0.,1.)
      IF (iswit(1).NE.0) print 750,emev
*      
  750 FORMAT(1x,'Energy deposit: ',f6.3,' MeV')    
*                                                                                

Here is the call graph for this function: