*$ CREATE LWNPWP.ADD
*COPY LWNPWP
*
*=== Lwnpwp ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2018-2021     by  Alberto Fasso`, Alfredo Ferrari, *
*     All Rights Reserved.            Cristina Morone, Paola Sala      *
*                                                                      *
*                                                                      *
*     LoW energy Neutron Point-Wise xsec for (n,Proton) common:        *
*     (Extensively re-written Jun-18/Jun-20, starting from the old     *
*      work for the unfinished Pwxs code (Fasso`+Ferrari) of mid '90's *
*      by Alberto Fasso`, Cristina Morone, and Paola Sala, further     *
*      extended Oct-20/Apr-21 by Alfredo Ferrari, Paola Sala)          *
*                                                                      *
*     Current version:                                                 *
*     Created on  02 October 2020  by    Alfredo Ferrari, Paola Sala   *
*                                           Private      Infn - Milan  *
*                                                                      *
*     Last change on  07-Apr-21    by           Alfredo Ferrari        *
*                                                   Private            *
*                                                                      *
*    (Original version:                                                *
*     Created on   24 May 1997     by  Alberto Fasso`, Alfredo Ferrari *
*                                         SLAC/USA      Infn - Milan)  *
*                                                                      *
*          Kpapwx(j,i) = starting location in blank common (i*4, 0     *
*                        address) for the (n,p_k) scattering angular   *
*                        distribution data for the j_th level of the   *
*                        i_th pointwise cross section data set         *
*            Npklcf(i) = number of Legendre coefficients for (n,p_k)   *
*                        neutron emission from discrete levels for the *
*                        i_th pointwise cross section data set         *
*            Npklgx(i) = highest discrete level for which Legendre co- *
*                        efficients for (n,p_k) neutron emission are   *
*                        given for the i_th pointwise cross section    *
*                        data set                                      *
*            Knpkdf(i) = flag for lab (=1) or cms (=2) frame for discr-*
*                        ete level (n,p_k) scattering for the i_th     *
*                        pointwise cross section data set              *
*          Npklen(j,i) = number of energy points for j_th level (n,p_k)*
*                        proton emission angular distributions for the *
*                        i_th pointwise cross section data set         *
*            Npklev(i) = number of energy levels to be considered for  *
*                        (n,p_k) scattering for the i_th pointwise     *
*                        cross section data set. The levels include    *
*                        the ground state (#1) and the continuum lower *
*                        boundary (#Npklev)                            *
*            Kpkpwx(i) = starting location in blank common (i*4, 0     *
*                        address) for the (n,p_k) scattering data of   *
*                        the i_th pointwise cross section data set     *
*                        The data consist of Npklev(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]                     *
*            Npkcen(i) = number of energy points for (n,p) scatter-    *
*                        ing into the continuum for the i_th point-    *
*                        wise cross section data set                   *
*            Npkces(i) = number of secondary proton energies for (n,p) *
*                        scattering into the continuum for the i_th    *
*                        pointwise cross section data set              *
*            Npkxen(i) = number of data points per energy point for    *
*                        (n,p) scattering into the continuum for the   *
*                        i_th pointwise cross section data set         *
*            Knpkcd(i) = kind of data description for (n,p) scattering *
*                        into the continuum for the i_th pointwise     *
*                        cross section data set                        *
*            Knpkcf(i) = k0 + 100 * k1                                 *
*                        for the i_th pointwise cross section data set:*
*                        k0: flag for lab (=1) or cms (=2) frame for   *
*                            (n,p) scattering into the continuum       *
*                        k1: 1 means Legendre coefficient expansion,   *
*                            2 means Kalbach-Mann energy-angle distri- *
*                            bution                                    *
*            Kpcpwx(i) = starting location in blank common (i*4, 0     *
*                        address) for the (n,p) scattering into        *
*                        continuum data of the i_th pointwise cross    *
*                        section data set.    The data consist of      *
*                        Npkces(i) + Npkcen(i) x Npkxen(i) real        *
*                        numbers. The first Npkces(i) are the energies *
*                        of the tabulations for secondary protons, the *
*                        meaning of the others is depending on         *
*                        Knpkcd(i)                                     *
*            Lpkpwx(i) = logical flag true if (some) partial cross     *
*                        sections for (n,p) exist for the i_th point-  *
*                        wise cross section data set                   *
*                                                                      *
*----------------------------------------------------------------------*
*
      LOGICAL LPKPWX
*
      COMMON / LWNPWP /               NPKLEV (MXXMDF), KPKPWX (MXXMDF),
     &               NPKCEN (MXXMDF), NPKCES (MXXMDF), NPKXEN (MXXMDF),
     &               KNPKCD (MXXMDF), KPCPWX (MXXMDF), NPKLCF (MXXMDF),
     &               NPKLGX (MXXMDF), KNPKDF (MXXMDF), KNPKCF (MXXMDF),
     &               NPKLEN (MXINLG,MXXMDF),    KPAPWX (MXINLG,MXXMDF),
     &               IPKPWX (MXXMDF), LPKPWX (MXXMDF)
*
      SAVE / LWNPWP /