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
C=======================================================================
C Code for SIBYLL: hadronic interaction Monte Carlo event generator
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 with CHARM production
C
......@@ -32,6 +32,7 @@ C friehn@lip.pt
C stanev@bartol.udel.edu
C
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 (changed S_CCSIG common)
C * no remnant in high mass diff. events (pi0-had scattering)
......@@ -463,15 +464,15 @@ C-----------------------------------------------------------------------
* /,' ','| HADRONIC INTERACTION MONTE CARLO |',
* /,' ','| BY |',
* /,' ','| Eun-Joo AHN, Felix RIEHN |',
* /,' ','| R. ENGEL, R.S. FLETCHER, T.K. GAISSER |',
* /,' ','| P. LIPARI, T. STANEV |',
* /,' ','| R. ENGEL, A. FEDYNITCH, S. FLETCHER, |',
* /,' ','| T.K. GAISSER, P. LIPARI, T. STANEV |',
* /,' ','| |',
* /,' ','| Publication to be cited when using this program: |',
* /,' ','| Eun-Joo AHN et al., Phys.Rev. D80 (2009) 094003 |',
* /,' ','| F. RIEHN et al., Proc. 35th Int. Cosmic Ray Conf.|',
* /,' ','| 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
IPAR(92) = 1
IPAR(93) = 1
IPAR(94) = 0
IPAR(95) = 0
IPAR(95) = 1
IPAR(96) = 0
IPAR(97) = 0
IPAR(98) = 0
......@@ -10313,7 +10314,7 @@ C f = 1/(1+exp((x-x0)/alpha))
C-----------------------------------------------------------------------
IMPLICIT NONE
c externals
DOUBLE PRECISION XARG,X0,XALPH
DOUBLE PRECISION XARG,X0,XALPH,XE
c COMMONs
C--------------------------------------------------------------------
......@@ -10331,7 +10332,8 @@ C--------------------------------------------------------------------
SAVE
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
END
C=======================================================================
......@@ -10591,7 +10593,8 @@ C--------------------------------------------------------------------
& PAR1_def,PAR24_def,PAR3_def,PAR2_1_def,PAR2_2_def,PAR5_def,
& PAR6_def,PAR24_2_def,XM,QMASS,DBETJ
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
DATA PGG /1.D0/
......@@ -10675,6 +10678,14 @@ c change vector rate and kaon vector rate
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
IF ( (E0.LT.8.D0) .OR. (S_RNDM(0).GT.PGG)) THEN
C... one string case, q - qbar
......@@ -10726,6 +10737,7 @@ c leading charm fraction
PAR(5) = PAR5_def
PAR(6) = PAR6_def
PAR(3) = PAR3_def
IPAR(82) = ipar82_def
RETURN
ENDIF
ELSE
......@@ -10745,6 +10757,7 @@ c DBETJ = (DX1J-DX2J)/(DX1J+DX2J)
PAR(5) = PAR5_def
PAR(6) = PAR6_def
PAR(3) = PAR3_def
IPAR(82) = ipar82_def
IBAD = 0
END
C=======================================================================
......@@ -14108,7 +14121,7 @@ C SIGela elastic cross section
C-----------------------------------------------------------------------
Cf2py integer, intent(in) :: L,IAT
Cf2py double precision, intent(in) :: SQS
Cf2py double precision, intent(out) :: SIGprod,SIGbdif
Cf2py double precision, intent(out) :: SIGprod,SIGbdif,SIGela
IMPLICIT NONE
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