DPMJET/flukapro/(SGTBCM)

   1 *$ CREATE SGTBCM.ADD
   2 *COPY SGTBCM
   3 *
   4 *=== sgtbcm ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     Include file: sgtbcm                                             *
   9 *                                                                      *
  10 *     Created  on  26  august  1991   by        Alfredo Ferrari        *
  11 *                                                INFN - Milan          *
  12 *                                                                      *
  13 *     Last change on    15-mar-99     by        Alfredo Ferrari        *
  14 *                                                                      *
  15 *     Included in the following routines:                              *
  16 *                                                                      *
  17 *                BLKDT1                                                *
  18 *                KASKAD                                                *
  19 *                KASHEA                                                *
  20 *                PHNCVR                                                *
  21 *                SGTELS                                                *
  22 *                SGTINL                                                *
  23 *                SGTTOT                                                *
  24 *                SIGTAB                                                *
  25 *                                                                      *
  26 *----------------------------------------------------------------------*
  27 *
  28 *  Minimum energy ratio for which cross section are computed
  29 *  (that is the minimum energy down which the cross sections presently
  30 *   used are reliable)
  31       PARAMETER ( EKRTMN = 0.6000000000000000000D+00 )
  32 *  Sqr1p5 = sqrt ( 1 / ekrtmn )
  33       PARAMETER ( SQR1P5 = 1.2909944487358056284D+00 )
  34 *  Alg1p5 = log  ( 1 / ekrtmn )
  35       PARAMETER ( ALG1P5 = 0.5108256237659906832D+00 )
  36 *  Minimum energy ratio before computing again cross sections
  37 *  (roughly geometric mean between 1 and ekrtmn )
  38       PARAMETER ( EKRTEF = 0.7750000000000000000D+00 )
  39       PARAMETER ( EKSIG0 = 1.104746407608999714039030918809046D-03 )
  40 *     PARAMETER ( EKSIG0 = 6.14229867868362340504446476139873D-03 )
  41       PARAMETER ( EKSIG1 = 50.0000000000000000000000000000000D-03 )
  42       PARAMETER ( EKSIG2 = 641.959232274432000000000000000000D-03 )
  43       PARAMETER ( EKSIG3 = 11677.1704101562500000000000000000D-03 )
  44       PARAMETER ( ELKEG0 =-6.80813946572698539519330850737315D+00 )
  45 *     PARAMETER ( ELKEG0 =-5.09255622924913791440217028831937D+00 )
  46       PARAMETER ( ELKEG1 =-2.99573227355399099343522357614254D+00 )
  47       PARAMETER ( ELKEG2 =-4.43230478438626226471171223979336D-01 )
  48       PARAMETER ( ELKEG3 = 2.45763568864610059849066495004851D+00 )
  49       PARAMETER ( SIGRT0 = 1.1000000000000000000D+00 )
  50       PARAMETER ( SIGRT1 = 1.2000000000000000000D+00 )
  51       PARAMETER ( SIGRT2 = 1.2500000000000000000D+00 )
  52       PARAMETER ( SIGRT3 = 1.4000000000000000000D+00 )
  53       PARAMETER ( ASGRT0 = 9.531017980432486004395212328076517D-02 )
  54       PARAMETER ( ASGRT1 = 0.182321556793954626211718025154515D+00 )
  55       PARAMETER ( ASGRT2 = 0.223143551314209755766295090309834D+00 )
  56       PARAMETER ( ASGRT3 = 0.336472236621212930504593410216992D+00 )
  57       PARAMETER ( NPSIG0 = 40 )
  58 *     PARAMETER ( NPSIG0 = 22 )
  59       PARAMETER ( NPSIG1 = 14 )
  60       PARAMETER ( NPSIG2 = 13 )
  61       PARAMETER ( MPSIGT = 35 )
  62       PARAMETER ( MPSIGE = 33 )
  63       PARAMETER ( MPSIGI = 38 )
  64       PARAMETER ( MPSIGB = 13 )
  65       PARAMETER ( MPSIGH =  4 )
  66 *
  67       LOGICAL LKSHRT, LK0BAR, LKAON0, LKAOSL, LEXDCY
  68       COMMON / SGTBCM / EKSIG4, ELKE0, ELKE1, ESSGTB, DESGTB,
  69      &                  KTSIGT (MPSIGT,MXXMDF), KESIGT (MPSIGE,MXXMDF),
  70      &                  KISIGT (MPSIGI,MXXMDF), KBSIGT (MPSIGB,MXXMDF),
  71      &                  KPSIGT (MPSIGB,MXXMDF), IJSIGT (-6:NALLWP),
  72      &                  IJSIGE (-6:NALLWP), IJSIGI (-6:NALLWP),
  73      &                  IJSIGB (-6:NALLWP), NPSIG3, IESGTB, NPSGMN,
  74      &                  NPSGMX, LKSHRT, LK0BAR, LKAON0, LKAOSL, LEXDCY
  75