Geant4  9.6.p02
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
guout.F
Go to the documentation of this file.
1 
2  SUBROUTINE guout
3 *
4 * User routine called at the end of each event
5 *
6 #include "geant321/gcflag.inc"
7 *
8 * *** drawing
9 *
10 #ifndef batch
11  IF (iswit(1).NE.0) THEN
12  CALL gdhead(110110,'TestEm14',0.)
13  CALL gdshow(3)
14  CALL gdxyz(0)
15  END IF
16 #endif
17 *
18  END