IAP GITLAB

Commit 9a0b4f9b authored by Tanguy Pierog's avatar Tanguy Pierog

correction by Anatoli to solve the impact parameter problem (correction in...

correction by Anatoli to solve the impact parameter problem (correction in DPMJET instead of interface).


git-svn-id: https://devel-ik.fzk.de/svn/mc/crmc/trunk@5169 c7a5e08c-de06-0410-9364-b41cf42a0b17
parent 5afb9d34
......@@ -50,7 +50,7 @@ c fresh common block
* properties of interacting particles
COMMON /DTPRTA/ IT,ITZ,IP,IPZ,IJPROJ,IBPROJ,IJTARG,IBTARG
dimension WHAT(6)
c dimension WHAT(6)
integer istatus
real taugm
......@@ -76,8 +76,8 @@ c will be treated as nucleus in DT_INIT and NPMASS,... will be used
* pre-initialization of profile function for nuclear collisions*
ECM=dble(ecms)
CALL DT_XSGLAU(NPMASS,NTMASS,IJPROJ,0D0,0D0,ECM,1,1,-1)
c ECM=dble(ecms)
c CALL DT_XSGLAU(NPMASS,NTMASS,IJPROJ,0D0,0D0,ECM,1,1,-1)
c set decay flag in Pythia for DPMJET (after DT_INIT otherwise default is used)
call IniDkyJetset
......
......@@ -2116,13 +2116,13 @@ C IF (IDP.EQ.27) IDP = 6
ENDIF
* initialization of Glauber-formalism (moved to xAEVT, sr 26.3.96)
C IF (NCOMPO.LE.0) THEN
C CALL DT_SHMAKI(IP,IPZ,IT,ITZ,IDP,PPN,IGLAU)
C ELSE
C DO 493 I=1,NCOMPO
C CALL DT_SHMAKI(IP,IPZ,IEMUMA(I),IEMUCH(I),IDP,PPN,0)
C 493 CONTINUE
C ENDIF
IF (NCOMPO.LE.0) THEN
CALL DT_SHMAKI(IP,IPZ,IT,ITZ,IDP,PPN,IGLAU)
ELSE
DO 493 I=1,NCOMPO
CALL DT_SHMAKI(IP,IPZ,IEMUMA(I),IEMUCH(I),IDP,PPN,0)
493 CONTINUE
ENDIF
* pre-tabulation of elastic cross-sections
CALL DT_SIGTBL(JDUM,JDUM,DUM,DUM,-1)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment