source:
trunk/examples/extended/electromagnetic/TestEm11/geant3/src/guout.F
@
1292
Last change on this file since 1292 was 807, checked in by , 16 years ago | |
---|---|
File size: 953 bytes |
Rev | Line | |
---|---|---|
[807] | 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.