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

index 853b4ea..7a3fb0e 100644 (file)
@@ -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