source: trunk/examples/extended/electromagnetic/TestEm11/geant3/src/guout.F @ 1292

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

update
File size: 953 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*                                                                               
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                                                                       
Note: See TracBrowser for help on using the repository browser.