Geant4  9.6.p02
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
gutrak.F
Go to the documentation of this file.
1  SUBROUTINE gutrak
2 *
3 * User routine to control tracking of one track
4 * Called by GTREVE
5 *
6 #include "geant321/gckine.inc"
7 #include "geant321/gconst.inc"
8 #include "geant321/gctrak.inc"
9 #include "geant321/gctmed.inc"
10 #include "geant321/gcvolu.inc"
11 #include "calor.inc"
12 #include "celoss.inc"
13 *
14 * *** initialisation of Eflow for primary track
15 *
16  if ((itra.eq.1).and.(istak.eq.0)) then
17 * unique Id for absorber+layer
18  idnow = 1
19  if (numed.le.nbabsor) then
20  layer = number(nlevel-1)
21  idnow = nbabsor*(layer-1) + numed
22  endif
23 *
24  eflow = gekin
25  if (ipart.eq.2) eflow = gekin + 2*emass
26 *
27  do k=1,idnow
28  enerflow(idnow) = enerflow(idnow) + eflow
29  enddo
30  endif
31 
32  CALL gtrack
33 *
34  END