From: morsch Date: Fri, 8 Feb 2013 15:04:11 +0000 (+0000) Subject: Multiple scattering switched ON for A-p X-Git-Url: http://git.uio.no/git/?a=commitdiff_plain;h=6cf1df4c8f122828b1e99cc6c768504cd3548dde;p=u%2Fmrichter%2FAliRoot.git Multiple scattering switched ON for A-p --- diff --git a/DPMJET/dpmjet3.0-5.f b/DPMJET/dpmjet3.0-5.f index 3c0b6a9b528..303dc02cf32 100644 --- 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 5bbcd3d7142..388b0c79b24 100644 --- 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