source: trunk/examples/extended/electromagnetic/TestEm13/geant3/src/guout.F @ 807

Last change on this file since 807 was 807, checked in by garnier, 16 years ago

update
File size: 510 bytes
Line 
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,'TestEm13',0.)
13         CALL GDSHOW (3)
14         CALL GDXYZ  (0)
15      END IF
16#endif     
17*                                                                               
18      END                                                                       
Note: See TracBrowser for help on using the repository browser.