source:
trunk/examples/extended/electromagnetic/TestEm14/geant3/src/guout.F
@
982
Last change on this file since 982 was 807, checked in by , 16 years ago | |
---|---|
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,'TestEm14',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.