TestEm1/geant3/src/guout.F

Go to the documentation of this file.

                                                     
      SUBROUTINE guout                                                          
*                                                                               
*     User routine called at the end of each event                              
*                                                                               
#include "geant321/gcflag.inc"
#include "celoss.inc"
*
      CHARACTER*4 unit                                                              
*                                                                               
* *** drawing
*
#ifndef batch                                                         
        IF (iswit(1).NE.0) THEN
         CALL gdhead (110110,'TestEm1',0.)
         CALL gdshow (3)
         CALL gdxyz  (0)
      END IF
#endif      
*
*     energy deposited
*                                                                                
      CALL gevkev (etot,etunit,unit)                                                 
      IF (iswit(1).NE.0) print 750,etunit,unit
*      
  750 FORMAT(1x,'Energy deposit: ',f8.3,a4)    
*                                                                                
      END