source:
trunk/examples/extended/electromagnetic/TestEm3/geant3/src/gutrev.F
@
1333
Last change on this file since 1333 was 807, checked in by , 16 years ago | |
---|---|
File size: 459 bytes |
Rev | Line | |
---|---|---|
[807] | 1 | |
2 | SUBROUTINE GUTREV | |
3 | * | |
4 | * User routine to control tracking of one event | |
5 | * Called by GRUN | |
6 | * | |
7 | #include "calor.inc" | |
8 | #include "celoss.inc" | |
9 | * | |
10 | do k=1,NbAbsor | |
11 | EdepAbs(k) = 0. | |
12 | TrckAbs(k) = 0. | |
13 | enddo | |
14 | * | |
15 | CALL GTREVE | |
16 | * | |
17 | END |
Note: See TracBrowser
for help on using the repository browser.