Multiple scattering switched ON for A-p
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 8 Feb 2013 15:04:11 +0000 (15:04 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 8 Feb 2013 15:04:11 +0000 (15:04 +0000)
DPMJET/dpmjet3.0-5.f
DPMJET/dpmjet3.0-5F.f

index 3c0b6a9..303dc02 100644 (file)
@@ -2099,7 +2099,7 @@ C     IF (IDP.EQ.27) IDP = 6
       ENDIF
 
 * disallow Cronin's multiple scattering for nucleus-nucleus interactions
-      IF ((IP.GT.1).AND.(MKCRON.GT.0)) THEN
+      IF ((IP.GT.1).AND. (IT.GT.1) .AND. (MKCRON.GT.0)) THEN
          WRITE(LOUT,1005)
  1005    FORMAT(/,1X,'INIT:  multiple scattering disallowed',/)
          MKCRON = 0
index 5bbcd3d..388b0c7 100644 (file)
@@ -2258,7 +2258,7 @@ C     IF (IDP.EQ.27) IDP = 6
       ENDIF
 
 * disallow Cronin's multiple scattering for nucleus-nucleus interactions
-      IF ((IP.GT.1).AND.(MKCRON.GT.0)) THEN
+      IF ((IP.GT.1) .AND. (IT.GT.1) .AND. (MKCRON.GT.0)) THEN
          WRITE(LOUT,1005)
  1005    FORMAT(/,1X,'INIT:  multiple scattering disallowed',/)
          MKCRON = 0