TestEm4/geant3/src/gustep.F File Reference

#include "geant321/gcflag.inc"
#include "geant321/gckine.inc"
#include "geant321/gcking.inc"
#include "geant321/gctrak.inc"
#include "celoss.inc"

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

Go to the source code of this file.

Functions/Subroutines
subroutine	gustep

Function/Subroutine Documentation

gustep()

subroutine gustep

(

)

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

*                                                                               
*     User routine called at the end of each tracking step           
*                                                              
#include "geant321/gcflag.inc"
#include "geant321/gckine.inc"
#include "geant321/gcking.inc"
#include "geant321/gctrak.inc"    
#include "celoss.inc"                                                             
*                                                                               
*                                                                               
* *** Debug event and store tracks for drawing
      IF (idebug.NE.0)   CALL gpcxyz      
      IF ((iswit(1).EQ.1).AND.(charge.NE.0.)) CALL gsxyz
      IF  (iswit(1).EQ.2)                     CALL gsxyz                        
*                                                                               
* *** Something generated ?                                                     
      IF(ngkine.GT.0) CALL gsking(0)                                            
*                                                                               
* *** Energy deposited                                                          
      IF(destep.GT.0.) etot = etot + destep                                                     
*