Line | |
---|
1 | |
---|
2 | |
---|
3 | SUBROUTINE GUTRAK |
---|
4 | * |
---|
5 | * User routine to control tracking of one track |
---|
6 | * Called by GTREVE |
---|
7 | * |
---|
8 | #include "geant321/gckine.inc" |
---|
9 | #include "geant321/gctrak.inc" |
---|
10 | #include "celoss.inc" |
---|
11 | |
---|
12 | * |
---|
13 | * |
---|
14 | * *** initialisation track per track |
---|
15 | NSTRK0 = 0 |
---|
16 | NSTRK1 = 0 |
---|
17 | * |
---|
18 | CALL GTRACK |
---|
19 | * |
---|
20 | * *** count nb of tracks |
---|
21 | IF (CHARGE.NE.0.) THEN |
---|
22 | NTRAK1 = NTRAK1 + 1 |
---|
23 | ELSE |
---|
24 | NTRAK0 = NTRAK0 + 1 |
---|
25 | ENDIF |
---|
26 | * |
---|
27 | * *** track length of primary particle |
---|
28 | IF ((ITRA.EQ.1).AND.(ISTAK.EQ.0)) THEN |
---|
29 | CALL HFILL (1,SLENG*10,0.,1.) |
---|
30 | nstrk = NSTRK0 |
---|
31 | if (CHARGE.NE.0.) nstrk = NSTRK1 |
---|
32 | CALL HFILL (2,REAL(nstrk),0.,1.) |
---|
33 | ENDIF |
---|
34 | * |
---|
35 | END |
---|
Note: See
TracBrowser
for help on using the repository browser.