]> 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 (from parent 1: 849a30f)
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 patch | blob | blame | history
DPMJET/dpmjet3.0-5F.f patch | blob | blame | history

diff --git a/DPMJET/dpmjet3.0-5.f b/DPMJET/dpmjet3.0-5.f
index 3c0b6a9b5289c138aba6d1db43830735d8a2b2b6..303dc02cf329548de072064215e3c2d16c27707d 100644 (file)
--- a/DPMJET/dpmjet3.0-5.f
+++ b/DPMJET/dpmjet3.0-5.f
@@ -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
diff --git a/DPMJET/dpmjet3.0-5F.f b/DPMJET/dpmjet3.0-5F.f
index 5bbcd3d714217b63f24c9e1d7de3d23b53af84a6..388b0c79b24132678074b2fa31de7df4d041b2ce 100644 (file)
--- a/DPMJET/dpmjet3.0-5F.f
+++ b/DPMJET/dpmjet3.0-5F.f
@@ -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