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 *
9 * *** drawing
10 *
11 #ifndef batch
12  IF (iswit(1).NE.0) THEN
13  CALL gdhead(110110,'TestEm11',0.)
14  CALL gdshow(3)
15  CALL gdxyz(0)
16  END IF
17 #endif
18 *
19 *
20  END