]> git.uio.no Git - u/mrichter/AliRoot.git/commitdiff
git://git.uio.no / u / mrichter / AliRoot.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 37f78e6)
Stepping called at each production point.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 14 Mar 2005 12:20:41 +0000 (12:20 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 14 Mar 2005 12:20:41 +0000 (12:20 +0000)
TFluka/crnkvp.f patch | blob | blame | history

diff --git a/TFluka/crnkvp.f b/TFluka/crnkvp.f
index 853b4ea36e57e319554c8ccda7781a7806f484f4..7a3fb0eff5e1812c4d6fb1d5b06915650f3d9908 100644 (file)
--- a/TFluka/crnkvp.f
+++ b/TFluka/crnkvp.f
@@ -424,6 +424,7 @@ D    &              SCADOT
          CALL PushCerenkovPhoton(PXCR, PYCR, PZCR, EPHSMP, XTRKCR, 
      &        YTRKCR , ZTRKCR, ATRKCR, POX, POY, POZ, WTRACK, ITFL)
          NPROD = NPROD + 1
+         CALL UserSteppingCKV(NPROD, MREG, XTRKCR, YTRKCR, ZTRKCR)
 *
 *
 *
@@ -460,7 +461,6 @@ D    &              SCADOT
 *  |
 *  +-------------------------------------------------------------------*
  7000 CONTINUE
-      CALL UserSteppingCKV(NPROD, MREG, XTRKCR, YTRKCR, ZTRKCR)
       RETURN
 *=== End of subroutine Crnkvp =========================================*
       END