IAP GITLAB

Commit 6f942536 authored by Tanguy Pierog's avatar Tanguy Pierog

update to Sibyll 2.3c04 (final ? version)


git-svn-id: https://devel-ik.fzk.de/svn/mc/crmc/trunk@7468 c7a5e08c-de06-0410-9364-b41cf42a0b17
parent 24d782a0
...@@ -7,7 +7,7 @@ C SSSSSS IIIIIII BBBBB YY LLLLLLL LLLLLLL ...@@ -7,7 +7,7 @@ C SSSSSS IIIIIII BBBBB YY LLLLLLL LLLLLLL
C======================================================================= C=======================================================================
C Code for SIBYLL: hadronic interaction Monte Carlo event generator C Code for SIBYLL: hadronic interaction Monte Carlo event generator
C======================================================================= C=======================================================================
C Version 2.3c03 (Jun-01-2017, modified Aug-22-2019) C Version 2.3c04 (Jun-01-2017, modified Apr-15-2020)
C C
C with CHARM production C with CHARM production
C C
...@@ -32,6 +32,7 @@ C friehn@lip.pt ...@@ -32,6 +32,7 @@ C friehn@lip.pt
C stanev@bartol.udel.edu C stanev@bartol.udel.edu
C C
C last changes relative to Sibyll 2.3c: C last changes relative to Sibyll 2.3c:
C * no pi0 suppression in minijets
C * added cross section tables for hadron-nitrogen and hadron-oxygen C * added cross section tables for hadron-nitrogen and hadron-oxygen
C (changed S_CCSIG common) C (changed S_CCSIG common)
C * no remnant in high mass diff. events (pi0-had scattering) C * no remnant in high mass diff. events (pi0-had scattering)
...@@ -463,15 +464,15 @@ C----------------------------------------------------------------------- ...@@ -463,15 +464,15 @@ C-----------------------------------------------------------------------
* /,' ','| HADRONIC INTERACTION MONTE CARLO |', * /,' ','| HADRONIC INTERACTION MONTE CARLO |',
* /,' ','| BY |', * /,' ','| BY |',
* /,' ','| Eun-Joo AHN, Felix RIEHN |', * /,' ','| Eun-Joo AHN, Felix RIEHN |',
* /,' ','| R. ENGEL, R.S. FLETCHER, T.K. GAISSER |', * /,' ','| R. ENGEL, A. FEDYNITCH, S. FLETCHER, |',
* /,' ','| P. LIPARI, T. STANEV |', * /,' ','| T.K. GAISSER, P. LIPARI, T. STANEV |',
* /,' ','| |', * /,' ','| |',
* /,' ','| Publication to be cited when using this program: |', * /,' ','| Publication to be cited when using this program: |',
* /,' ','| Eun-Joo AHN et al., Phys.Rev. D80 (2009) 094003 |', * /,' ','| Eun-Joo AHN et al., Phys.Rev. D80 (2009) 094003 |',
* /,' ','| F. RIEHN et al., Proc. 35th Int. Cosmic Ray Conf.|', * /,' ','| F. RIEHN et al., Proc. 35th Int. Cosmic Ray Conf.|',
* /,' ','| Bexco, Busan, Korea, cont. 301 (2017) |', * /,' ','| Bexco, Busan, Korea, cont. 301 (2017) |',
* /,' ','| |', * /,' ','| |',
* /,' ','| last modifications: F. Riehn (08/22/2019) |', * /,' ','| last modifications: F. Riehn (04/15/2020) |',
* /,' ','====================================================', * /,' ','====================================================',
* /) * /)
...@@ -851,7 +852,7 @@ c 23rc5.4frgB1 aka retune5 aka Sibyll 2.3.5 ...@@ -851,7 +852,7 @@ c 23rc5.4frgB1 aka retune5 aka Sibyll 2.3.5
IPAR(92) = 1 IPAR(92) = 1
IPAR(93) = 1 IPAR(93) = 1
IPAR(94) = 0 IPAR(94) = 0
IPAR(95) = 0 IPAR(95) = 1
IPAR(96) = 0 IPAR(96) = 0
IPAR(97) = 0 IPAR(97) = 0
IPAR(98) = 0 IPAR(98) = 0
...@@ -10313,7 +10314,7 @@ C f = 1/(1+exp((x-x0)/alpha)) ...@@ -10313,7 +10314,7 @@ C f = 1/(1+exp((x-x0)/alpha))
C----------------------------------------------------------------------- C-----------------------------------------------------------------------
IMPLICIT NONE IMPLICIT NONE
c externals c externals
DOUBLE PRECISION XARG,X0,XALPH DOUBLE PRECISION XARG,X0,XALPH,XE
c COMMONs c COMMONs
C-------------------------------------------------------------------- C--------------------------------------------------------------------
...@@ -10331,7 +10332,8 @@ C-------------------------------------------------------------------- ...@@ -10331,7 +10332,8 @@ C--------------------------------------------------------------------
SAVE SAVE
c internals c internals
fermi=1.D0+exp((xarg-x0)/xalph) xe = max((xarg-x0)/xalph,-10.D0)
fermi=1.D0+exp(xe)
fermi=1.D0/fermi fermi=1.D0/fermi
END END
C======================================================================= C=======================================================================
...@@ -10591,7 +10593,8 @@ C-------------------------------------------------------------------- ...@@ -10591,7 +10593,8 @@ C--------------------------------------------------------------------
& PAR1_def,PAR24_def,PAR3_def,PAR2_1_def,PAR2_2_def,PAR5_def, & PAR1_def,PAR24_def,PAR3_def,PAR2_1_def,PAR2_2_def,PAR5_def,
& PAR6_def,PAR24_2_def,XM,QMASS,DBETJ & PAR6_def,PAR24_2_def,XM,QMASS,DBETJ
DIMENSION PST(5),PBM(5),PTG(5) DIMENSION PST(5),PBM(5),PTG(5)
INTEGER IST,ITGST,IBMST,IPID,IFLB,IFLT,NOLD,IS,IFL1,IFBAD,IDM INTEGER IST,ITGST,IBMST,IPID,IFLB,IFLT,NOLD,IS,IFL1,IFBAD,IDM,
& ipar82_def
SAVE SAVE
DATA PGG /1.D0/ DATA PGG /1.D0/
...@@ -10674,7 +10677,15 @@ c change vector rate and kaon vector rate ...@@ -10674,7 +10677,15 @@ c change vector rate and kaon vector rate
PAR(6) = PAR(74) ! P_K* from K PAR(6) = PAR(74) ! P_K* from K
ENDIF ENDIF
C... switch off pi0 suppression
c should only be applied for remnant, diff and valence
c in case of meson projectile
ipar82_def = IPAR(82)
IF(IPAR(95).eq.1)THEN
IPAR(82) = 0
ENDIF
NOLD = NP NOLD = NP
IF ( (E0.LT.8.D0) .OR. (S_RNDM(0).GT.PGG)) THEN IF ( (E0.LT.8.D0) .OR. (S_RNDM(0).GT.PGG)) THEN
C... one string case, q - qbar C... one string case, q - qbar
...@@ -10725,7 +10736,8 @@ c leading charm fraction ...@@ -10725,7 +10736,8 @@ c leading charm fraction
PAR(2) = PAR2_1_def PAR(2) = PAR2_1_def
PAR(5) = PAR5_def PAR(5) = PAR5_def
PAR(6) = PAR6_def PAR(6) = PAR6_def
PAR(3) = PAR3_def PAR(3) = PAR3_def
IPAR(82) = ipar82_def
RETURN RETURN
ENDIF ENDIF
ELSE ELSE
...@@ -10744,7 +10756,8 @@ c DBETJ = (DX1J-DX2J)/(DX1J+DX2J) ...@@ -10744,7 +10756,8 @@ c DBETJ = (DX1J-DX2J)/(DX1J+DX2J)
PAR(2) = PAR2_1_def PAR(2) = PAR2_1_def
PAR(5) = PAR5_def PAR(5) = PAR5_def
PAR(6) = PAR6_def PAR(6) = PAR6_def
PAR(3) = PAR3_def PAR(3) = PAR3_def
IPAR(82) = ipar82_def
IBAD = 0 IBAD = 0
END END
C======================================================================= C=======================================================================
...@@ -14108,7 +14121,7 @@ C SIGela elastic cross section ...@@ -14108,7 +14121,7 @@ C SIGela elastic cross section
C----------------------------------------------------------------------- C-----------------------------------------------------------------------
Cf2py integer, intent(in) :: L,IAT Cf2py integer, intent(in) :: L,IAT
Cf2py double precision, intent(in) :: SQS Cf2py double precision, intent(in) :: SQS
Cf2py double precision, intent(out) :: SIGprod,SIGbdif Cf2py double precision, intent(out) :: SIGprod,SIGbdif,SIGela
IMPLICIT NONE IMPLICIT NONE
INTEGER NS_max, NH_max INTEGER NS_max, NH_max
......
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