guout.F

Go to the documentation of this file.

      SUBROUTINE guout
*
*     User routine called at the end of each event
*
#include "geant321/gcflag.inc"                                                     
*
* *** drawing
*
#ifndef batch
        IF (iswit(1).NE.0) THEN
         CALL gdhead(110110,'TestEm13',0.)
         CALL gdshow(3)
         CALL gdxyz(0)
      END IF
#endif      
*                                                                                
      END