Merge branch 'master' of https://git.cern.ch/reps/AliRoot

[u/mrichter/AliRoot.git] / DPMJET / dpmjet3.0-5F.f

diff --git a/DPMJET/dpmjet3.0-5F.f b/DPMJET/dpmjet3.0-5F.f
index 863d66b1cb5727cc72f4110cf021a7a5f1bab754..53ebe99b321697cea10575cac042e5e382a44292 100644 (file)
--- a/DPMJET/dpmjet3.0-5F.f
+++ b/DPMJET/dpmjet3.0-5F.f
@@ -5552,8 +5552,6 @@ C           ENDIF
       IREJ   = 0
       ICREQU = ICREQU+1
       NC     = 0
-      NCP    = 0
-      NCT    = 0
 
     1 CONTINUE
       ICSAMP = ICSAMP+1
@@ -5593,6 +5591,9 @@ C           ENDIF
          ITOLD  = IT
          JJPOLD = JJPROJ
          EPROLD = EPROJ
+         NCP    = 0
+         NCT    = 0
+
       DO 8 I=1, IP
         NCP = NCP+JSSH(I)
 *        WRITE(6,*)' PROJ.NUCL. ',I,' NCOLL = ',NCP