*$ CREATE KAXSCM.ADD
*COPY KASXCM
*
*=== Kaxscm ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2000-2005      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     Created on  12 january 2000  by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on 16-sep-00     by    Alfredo Ferrari               *
*                                                                      *
*       Xskpnc (i,k,n) = xsec for K+ N (mb), i is the momentum index,  *
*                        k the reaction index (1=el.,2=ine.), n the    *
*                        nucleon index (1=p,2=n)                       *
*       Xskmnc (i,k,n) = xsec for K- N (mb), i is the momentum index,  *
*                        k the reaction index (1=el.,2=ine.), n the    *
*                        nucleon index (1=p,2=n)                       *
*       Xsklnc (j,k,n) = xsec for KlongN (mb), j is the momentum index,*
*                        k the reaction index (1=el.,2=ine.,3=reg.),   *
*                        n the nucleon index (1=p,2=n)                 *
*           Pkpmnc (i) = momenta (GeV/c) for K+/-  N xsecs             *
*           Pklonc (j) = momenta (GeV/c) for Klong N xsecs             *
*           Pkpmax (l) = momenta (GeV/c) for K+/-  A xsecs             *
*           Pkloax (l) = momenta (GeV/c) for Klong A xsecs             *
*           Akaxsc (m) = atomic weights  for K's A xsecs               *
*           A23kxs (m) = (atomic weights)^2/3 for K's A xsecs          *
*       Xskpla (l,k,m) = xsec for K+ A (mb), l is the momentum index,  *
*                        k the reaction index (1=el.,2=ine.), m the    *
*                        target nucleus index                          *
*       Xskmia (l,k,m) = xsec for K- A (mb), l is the momentum index,  *
*                        k the reaction index (1=el.,2=ine.), m the    *
*                        target nucleus index                          *
*       Xskloa (l,k,m) = xsec for KlongA (mb), l is the momentum index,*
*                        k the reaction index (1=el.,2=ine.,3=reg.),   *
*                        m the target nucleus index                    *
*                                                                      *
*                                                                      *
*                                                                      *
*                                                                      *
*----------------------------------------------------------------------*
*
      COMMON / KAXSCM / XSKPNC (6,2,2), XSKMNC (6,2,2), XSKLNC (7,3,2),
     &                  PKPMNC  (6), PKLONC  (7), PKPMAX (10),
     &                  PKLOAX (11), AKAXSC  (7), A23KXS  (7),
     &                  XSKPLA (10,2,7), XSKMIA (10,2,7),
     &                  XSKLOA (11,3,7)
      SAVE / KAXSCM /