]> 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: d53bba2)
Protection against NTRACK=0 added.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 25 Oct 2006 14:58:50 +0000 (14:58 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 25 Oct 2006 14:58:50 +0000 (14:58 +0000)
TFluka/cmpips.f patch | blob | blame | history

diff --git a/TFluka/cmpips.f b/TFluka/cmpips.f
index d6b66ee8a5b0de51d5c89bda98b872ac2bd9d609..0d931cbfa3ee83b83d88e45f35f1c3abc6dfc9f7 100644 (file)
--- a/TFluka/cmpips.f
+++ b/TFluka/cmpips.f
@@ -36,6 +36,10 @@
       SAVE NSTART, CUMTTR
 *
       LBGSTP = STEPTT .LT. AZRZRZ
+      if (ntrack .eq. 0) THEN
+*         WRITE(6,*) "Warning ntrack = 0", NALLD0, STEPID, STEPTT, STEP
+         RETURN
+      ENDIF
 *  +-------------------------------------------------------------------*
 *  |  Beginning of a step:
       IF ( LBGSTP ) THEN