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

index d6b66ee..0d931cb 100644 (file)
       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