update Sibyll to version 2.3

git-svn-id: https://devel-ik.fzk.de/svn/mc/crmc/trunk@5268 c7a5e08c-de06-0410-9364-b41cf42a0b17

CMakeLists.txt

@@ -29,8 +29,8 @@ MESSAGE(STATUS "build ${CMAKE_BINARY_DIR}")
 
 ## The version number. Only nummeric PLEASE!
 SET (CRMC_VERSION_MAJOR 1)
-SET (CRMC_VERSION_MINOR 5)
-SET (CRMC_VERSION_PATCH 6)
+SET (CRMC_VERSION_MINOR 6)
+SET (CRMC_VERSION_PATCH 0)
 
 ##Compiler options
 # hotfix for lxbatch not sure why he selects wrong compiler

README

-CRMC v1.5.7 Last modifications 2016/03/23
+CRMC v1.6.0 Last modifications 2016/03/29
 
 **********************************************************
                      The Program "crmc"
@@ -57,7 +57,9 @@ QGSJET01 (-m2) : N.N. Kalmykov, S. Ostapchenko, and A.I. Pavlov,
 QGSJETII-03 (-m11) : S. Ostapchenko,
                      Nucl.Phys.Proc.Suppl. 151 (2006) 143
 
-SIBYLL2.1 (-m6) : R. Engel, T.K. Gaisser, P. Lipari, and T. Stanev,
+SIBYLL2.3 (-m6) : ???
+                 and
+                  R. Engel, T.K. Gaisser, P. Lipari, and T. Stanev,
                   Proc. 26th Int. Cosmic Ray Conf., Salt Lake City (USA), 1 (1999) 415
                  and
                   E.-J. Ahn, R. Engel, T.K. Gaisser, P. Lipari, and T. Stanev,

src/models.F

@@ -324,6 +324,10 @@
 
       double precision GTOT,GPROD,GABS,GDD,GQEL,GCOH
       double precision e0
+#ifdef __SIBYLL_
+      double precision engy_d,ssig,slope,rho,sigt_d,sige_d,sigqel_d,
+     &        sigsd_d,sigqsd_d
+#endif
       dimension dumdif(3)
       if(model.eq.2)then
 #ifndef __QGSJET01__
@@ -369,9 +373,15 @@
          elseif(iclpro.eq.3)then
             K=3
          endif
-         CALL SIB_SIGMA_HP(K,engy,SSIG,dum0,dum1,dumdif,SLOPE,RHO)
-         CALL GLAUBER(matarg,SSIG,SLOPE,RHO,sigt,sige,sigqel)
-         sigi=sigt-sigqel
+         engy_d = dble(engy)
+         CALL SIB_SIGMA_HP(K,engy_d,SSIG,dum0,dum1,dumdif,SLOPE,RHO)
+         CALL GLAUBER2
+     &        (matarg,SSIG,SLOPE,RHO,sigt_d,sige_d,sigqel_d,
+     &        sigsd_d,sigqsd_d)
+         sigt=sngl(sigt_d)
+         sige=sngl(sige_d)
+         sigqel=sngl(sigqel_d)
+         sigi=sngl(sigt_d-sigqel_d)
          sigc=sigi
 #endif
       elseif(model.eq.7.or.model.eq.11)then
@@ -436,7 +446,11 @@
       end
 
       subroutine m6SIGMA(icl,engy,stot,sela,sine,sdifr,slela,Rho)
-      dimension sdifr0(3)
+#ifdef __SIBYLL__
+      double precision engy_d,stot_d,sela_d,sine_d,slela_d,rho_d
+      double precision sdifr0_d(3)
+#endif
+
 #ifndef __SIBYLL__
       stop'please compile with requested model'
       print *, icl,engy,stot,sela,sine,sdifr,slela,Rho,sdifr0 !get rid of unused warning
@@ -448,8 +462,15 @@
       else
          L=3
       endif
-      call SIB_SIGMA_HP(L,engy,stot,sela,sine,sdifr0,slela,Rho)
-      sdifr=sdifr0(1)+sdifr0(2)+sdifr0(3)
+      engy_d = dble(engy)
+      CALL SIB_SIGMA_HP
+     &     (L,engy_d,stot_d,sela_d,sine_d,sdifr0_d,slela_d,Rho_d)
+      stot   =  sngl(  stot_d  )
+      sela   =  sngl(  sela_d  )
+      sine   =  sngl(  sine_d  )
+      slela  =  sngl(  slela_d )
+      Rho    =  sngl(  Rho_d   )
+      sdifr=sngl(sdifr0_d(1)+sdifr0_d(2)+sdifr0_d(3))
 #endif
       end
 

src/sibyll/particle_codes_21.txt

-
- -----------------------
- code particle     mass
- -----------------------
-   1  gam          0.0000
-   2  e+           0.0005
-   3  e-           0.0005
-   4  mu+          0.1057
-   5  mu-          0.1057
-   6  pi0          0.1350
-   7  pi+          0.1396
-   8  pi-          0.1396
-   9  k+           0.4937
-  10  k-           0.4937
-  11  k0l          0.4977
-  12  k0s          0.4977
-  13  p            0.9383
-  14  n            0.9396
-  15  nue          0.0000
-  16  nueb         0.0000
-  17  num          0.0000
-  18  numb         0.0000
-  19  empty
-  20  empty
-  21  k0           0.4977
-  22  k0b          0.4977
-  23  eta          0.5488
-  24  etap         0.9576
-  25  rho+         0.7714
-  26  rho-         0.7714
-  27  rho0         0.7717
-  28  k*+          0.8921
-  29  k*-          0.8921
-  30  k*0          0.8965
-  31  k*0b         0.8965
-  32  omeg         0.7826
-  33  phi          1.1020
-  34  SIG+         1.1894
-  35  SIG0         1.1925
-  36  SIG-         1.1973
-  37  XI0          1.3149
-  38  XI-          1.3213
-  39  LAM          1.1156
-  40  DELT++       1.2300
-  41  DELT+        1.2310
-  42  DELT0        1.2320
-  43  DELT-        1.2330
-  44  SIG*+        1.3828
-  45  SIG*0        1.3837
-  46  SIG*-        1.3872
-  47  XI*0         1.5318
-  48  XI*-         1.5350
-  49  OME*-        1.6724
-
-Antibaryons have negative codes (antineutrons = -14  for example)
-Other particles are unknown  in this version.
-
-A special  numbering  scheme  has  been  introduced  for nuclei. 
-A Helium nucleus  (A=4)  is  indicated  with the code L=1004
-an Iron nucleus   (A=56) has L=1056.
-
-When  a particle decays it is NOT deleted from the 
-event record, but it is kept there (in case one want to understand
-what happened). In this case   10000 is added to
-the code (or -10000 is subtracted if the code is negative)
-of the particle that has decayed.  The daughter particles are 
-added  starting at the end of the event record.
-