6 #include "geant321/gcflag.inc"
7 #include "geant321/gckine.inc"
8 #include "geant321/gcking.inc"
9 #include "geant321/gconst.inc"
10 #include "geant321/gctrak.inc"
11 #include "geant321/gctmed.inc"
12 #include "geant321/gcvolu.inc"
20 IF (idebug.NE.0) CALL gpcxyz
21 IF ((iswit(1).EQ.1).AND.(
charge.NE.0.)) CALL gsxyz
22 IF (iswit(1).EQ.2) CALL gsxyz
25 IF(ngkine.GT.0) CALL gsking(0)
28 IF (numed.LE.nbabsor)
THEN
29 if (destep.NE.0.) edepabs(numed) = edepabs(numed) + destep
30 if (
charge*step.NE.0.) trckabs(numed) = trckabs(numed) + step
32 layer = number(nlevel-1)
34 if (histo(ih)) call hfill(ih,0.+layer,0.,destep/(amev*
nevent))
38 IF ((numed.LE.nbabsor).and.(inwvol.eq.2))
THEN
39 idnow = nbabsor*(layer-1) + numed
41 if (
ipart.eq.2) eflow = gekin + 2*emass
43 if (
max(abs(
vect(2)),abs(
vect(3))).ge.(0.5*caloryz))
then
44 eleaklat(idnow) = eleaklat(idnow) + eflow
45 elseif (
vect(4).ge.0.)
then
46 enerflow(idnow+1) = enerflow(idnow+1) + eflow
48 enerflow(idnow) = enerflow(idnow) - eflow