source:
trunk/examples/extended/electromagnetic/TestEm11/geant3/src/guout.F@
1036
| Last change on this file since 1036 was 807, checked in by , 17 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.
