DPMJET/flukapro/(CMKBSG)

   1 *$ CREATE CMKBSG.ADD
   2 *COPY CMKBSG
   3 *
   4 *=== cmkbsg ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *    CoMmon for Kaon-Bar-nucleon SiGmas:                               *
   9 *                                                                      *
  10 *    Created  on  07 december 1996  by  Alfredo Ferrari & Paola Sala   *
  11 *                                           INFN - MIlan               *
  12 *    Last change  on  30-sep-98     by  Alfredo Ferrari, INFN-Milan    *
  13 *                                                                      *
  14 *    List of variables:                                                *
  15 *                                                                      *
  16 * Knbout(io,ir,ip,it) = reaction products indeces, (io=1,2 for the two *
  17 *                       two products, ir=1,6 for the various reactions,*
  18 *                       ip=1,2 for K- or K0bar projectiles, it=1,2 for *
  19 *                       proton or neutron targets)                     *
  20 *    Ipkbar(ir,ip,it) = internal reaction identifier for the ir_th     *
  21 *                       reaction with ip (1,2 for K- or K0bar) projec- *
  22 *                       tile and it (1,2 for proton or neutron) target *
  23 *    Lcxkbr(ir,ip,it) = charge exchange flag                           *
  24 *                                                                      *
  25 *       Ir = 1 => elastic (K- N -> K- N or K0bar N -> K0bar N)         *
  26 *                 (variable Selas in Sgkbar)                           *
  27 *       Ir = 2 => ch.exc. (K- p -> K0bar n or K0bar n -> K- p)         *
  28 *                 (variable Scx in Sgkbar)                             *
  29 *       Ir = 3 => st.exc. (K- p -> pi- Sigma+ or K0bar n -> pi+ Sigma- *
  30 *                      or  K- n -> pi- Sigma0 or K0bar p -> pi0 Sigma+)*
  31 *                 (variable Ssigm in Sgkbar)                           *
  32 *       Ir = 4 => st.exc. (K- p -> pi+ Sigma- or K0bar n -> pi- Sigma+ *
  33 *                      or  K- n -> pi0 Sigma- or K0bar p -> pi+ Sigma0)*
  34 *                 (variable Ssigmc in Sgkbar)                          *
  35 *       Ir = 5 => st.exc. (K- p -> pi0 Lambda or K0bar n -> pi0 Lambda *
  36 *                      or  K- n -> pi- Lambda or K0bar p -> pi+ Lambda)*
  37 *       Ir = 6 => st.exc. (K- p -> pi0 Sigma0 or K0bar n -> pi0 Sigma0)*
  38 *                                                                      *
  39 *----------------------------------------------------------------------*
  40 *
  41 *  Thresholds for pion production
  42 *  ( Kinetic energy threshold for producing particle x in a collision
  43 *    between p and t giving rise to p,t,x:
  44 *    Ekth_ptx = m_x ( 2 m_p + 2 m_t + m_x ) / ( 2 m_t ) )
  45 *  ( Kinetic energy threshold for producing particle x in a collision
  46 *    between p and t giving rise to a,b,x:
  47 *    Ekth_pt_abx = ( ( m_a + m_a + m_x )^2 - ( m_p + m_t )^2 )
  48 *                / ( 2 m_t ) )
  49 *     K-+p-->Lamda+pi0+pi0
  50       PARAMETER ( TKMP00 = 0.0              D+00 )
  51 *
  52       PARAMETER ( MKBREA =   6 )
  53       PARAMETER ( MKBETB = 200 )
  54       PARAMETER ( MKBWAV =  11 )
  55 *
  56       LOGICAL LCXKBR
  57       COMMON / CMKBSG /
  58      &              RE0KBA (MKBETB,MKBWAV,3), RE1KBA (MKBETB,MKBWAV,3),
  59      &              AIM0KB (MKBETB,MKBWAV,3), AIM1KB (MKBETB,MKBWAV,3),
  60      &              EKBTAB (MKBETB), NEKBTB, KBNOUT (2,MKBREA,2,2),
  61      &              IPKBAR (MKBREA,2,2), LCXKBR (MKBREA,2,2)
  62