source:
trunk/examples/extended/electromagnetic/TestEm2/geant3/src/gutrev.F
@
1339
Last change on this file since 1339 was 807, checked in by , 16 years ago | |
---|---|
File size: 1.1 KB |
Line | |
---|---|
1 | |
2 | SUBROUTINE GUTREV |
3 | * |
4 | * User routine to control tracking of one event |
5 | * Called by GRUN |
6 | * |
7 | #include "celoss.inc" |
8 | * |
9 | CALL VZERO(DEDL,2*NBIN) |
10 | STRCH = 0. |
11 | STRNE = 0. |
12 | * |
13 | CALL GTREVE |
14 | * |
15 | END |
Note: See TracBrowser
for help on using the repository browser.