*$ CREATE LWNPWI.ADD
*COPY LWNPWI
*
*=== Lwnpwi ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2017-2021     by  Alberto Fasso`, Alfredo Ferrari, *
*     All Rights Reserved.              Cristina Morone, Paola Sala    *
*                                                                      *
*     LoW energy Neutron Point-Wise xsec for (n,Inelastic) common:     *
*     (Extensively re-written Oct-17/Jun-20, starting from the old     *
*      work for the unfinished Pwxs code (Fasso`+Ferrari) of mid '90's *
*      by Cristina Morone, Paola Sala, further extended Sep-20/Apr-21  *
*      by Alfredo Ferrari, Paola Sala)                                 *
*                                                                      *
*     Current version:                                                 *
*     Created on 26 September 2020 by    Alfredo Ferrari, Paola Sala   *
*                                            Private     Infn - Milan  *
*                                                                      *
*    (Original version:                                                *
*     Created on    24 May 1997    by    Alfredo Ferrari, Paola Sala   *
*                                                Infn - Milan)         *
*                                                                      *
*     Last change on  07-Apr-21    by          Alfredo Ferrari         *
*                                                  Private             *
*                                                                      *
*          Kiapwx(j,i) = starting location in blank common (i*4, 0     *
*                        address) for the inelastic scattering angular *
*                        distribution data for the j_th level of the   *
*                        i_th pointwise cross section data set         *
*            Ninlcf(i) = number of Legendre coefficients for (n,n')    *
*                        neutron emission from discrete levels for the *
*                        i_th pointwise cross section data set         *
*            Ninlgx(i) = highest discrete level for which Legendre co- *
*                        efficients for (n,n') neutron emission are    *
*                        given for the i_th pointwise cross section    *
*                        data set                                      *
*            Knindf(i) = flag for lab (=1) or cms (=2) frame for discr-*
*                        ete level inelastic scattering for the i_th   *
*                        pointwise cross section data set              *
*          Ninlen(j,i) = number of energy points for j_th level (n,n') *
*                        neutron emission angular distributions for the*
*                        i_th pointwise cross section data set         *
*            Ninlev(i) = number of energy levels to be considered for  *
*                        inelastic scattering for the i_th pointwise   *
*                        cross section data set. The levels include    *
*                        the ground state (#1) and the continuum lower *
*                        boundary (#Ninlev)                            *
*            Kinpwx(i) = starting location in blank common (i*4, 0     *
*                        address) for the inelastic scattering data of *
*                        the i_th pointwise cross section data set     *
*                        The data consist of Ninlev(i) energy levels   *
*                        each jth one with j-1 branching ratios to the *
*                        underlying j-1 levels. The total number of    *
*                        points is Sum^Ninlev_1[j]                     *
*            Nincen(i) = number of energy points for inelastic scatt-  *
*                        ering into the continuum for the i_th point-  *
*                        wise cross section data set                   *
*            Ninces(i) = number of secondary neutron energies for inel-*
*                        astic scattering into the continuum for the   *
*                        i_th pointwise cross section data set         *
*            Ninxen(i) = number of data points per energy point for    *
*                        inelastic scattering into the continuum for   *
*                        the i_th pointwise cross section data set     *
*            Knincd(i) = kind of data description for inelastic scatt- *
*                        ering into the continuum for the i_th point-  *
*                        wise cross section data set                   *
*            Knincf(i) = k0 + 100 * k1                                 *
*                        for the i_th pointwise cross section data set:*
*                        k0: flag for lab (=1) or cms (=2) frame for   *
*                            inelastic scattering into the continuum   *
*                        k1: 1 means Legendre coefficient expansion,   *
*                            2 means Kalbach-Mann energy-angle distri- *
*                            bution                                    *
*            Kicpwx(i) = starting location in blank common (i*4, 0     *
*                        address) for the inelastic scattering into    *
*                        continuum data of the i_th pointwise cross    *
*                        section data set.    The data consist of      *
*                        Ninces(i) + Nincen(i) x Ninxen(i) real        *
*                        numbers. The first Ninces(i) are the energies *
*                        of the tabulations for secondary neutrons, the*
*                        meaning of the others is depending on         *
*                        Knincd(i)                                     *
*                                                                      *
*----------------------------------------------------------------------*
*
      COMMON / LWNPWI /               NINLEV (MXXMDF), KINPWX (MXXMDF),
     &               NINCEN (MXXMDF), NINCES (MXXMDF), NINXEN (MXXMDF),
     &               KNINCD (MXXMDF), KICPWX (MXXMDF), NINLCF (MXXMDF),
     &               NINLGX (MXXMDF), KNINDF (MXXMDF), KNINCF (MXXMDF),
     &               NINLEN (MXINLG,MXXMDF),    KIAPWX (MXINLG,MXXMDF)
*
      SAVE / LWNPWI /