*$ CREATE LWNP2N.ADD
*COPY LWNP2N
*
*=== Lwnp2n ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*                                                                      *
*     Copyright (C) 2017-2021     by     Alfredo Ferrari, Paola Sala   *
*     All Rights Reserved.                                             *
*                                                                      *
*     LoW energy Neutron Point-wise xsec for (n,2N) 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 Paola Sala, further extended Sep-20/Apr-21 by Alfredo        *
*      Ferrari, Paola Sala)                                            *
*                                                                      *
*     Current version:                                                 *
*     Created on 29 September 2020 by    Alfredo Ferrari, Paola Sala   *
*                                            Private     Infn - Milan  *
*                                                                      *
*    (Original version:                                                *
*     Created on    23 May 1997    by    Alfredo Ferrari, Paola Sala   *
*                                                Infn - Milan)         *
*                                                                      *
*     Last change on  07-Apr-21    by          Alfredo Ferrari         *
*                                                  Private             *
*                                                                      *
*                                                                      *
*          K2apwx(j,i) = starting location in blank common (i*4, 0     *
*                        address) for the (n,2n_k) scattering angular  *
*                        distribution data for the j_th level of the   *
*                        i_th pointwise cross section data set         *
*            N2klcf(i) = number of Legendre coefficients for (n,2n_k)  *
*                        neutron emission from discrete levels for the *
*                        i_th pointwise cross section data set         *
*            N2klgx(i) = highest discrete level for which Legendre co- *
*                        efficients for (n,2n_k) neutron emission are  *
*                        given for the i_th pointwise cross section    *
*                        data set                                      *
*            Kn2kdf(i) = flag for lab (=1) or cms (=2) frame for discr-*
*                        ete level (n,2n_k) scattering for the i_th    *
*                        th pointwise cross section data set           *
*          N2klen(j,i) = number of energy points for j_th level        *
*                        (n,2n_k) neutron emission angular distribu-   *
*                        tions for the i_th pointwise cross section    *
*                        data set                                      *
*            N2klev(i) = number of energy levels to be considered for  *
*                        (n,2n_k) scattering for the i_th pointwise    *
*                        cross section data set. The levels include    *
*                        the ground state (#1) and the continuum lower *
*                        boundary (#N2klev)                            *
*            K2kpwx(i) = starting location in blank common (i*4, 0     *
*                        address) for the (n,2n_k) scattering data of  *
*                        the i_th pointwise cross section data set     *
*                        The data consist of N2klev(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]                     *
*            N2kcen(i) = number of energy points for (n,2n) scatter-   *
*                        ing into the continuum for the i_th point-    *
*                        wise cross section data set                   *
*            N2kces(i) = number of secondary neutron energies for      *
*                        (n,2n) scattering into the continuum for the  *
*                        i_th pointwise cross section data set         *
*            N2kxen(i) = number of data points per energy point for    *
*                        (n,2n) scattering into the continuum for the  *
*                        i_th pointwise cross section data set         *
*            Kn2kcd(i) = kind of data description for (n,2n) scatt-    *
*                        ering into the continuum for the i_th point-  *
*                        wise cross section data set                   *
*            Kn2kcf(i) = flag for lab (=1) or cms (=2) frame for (n,2n)*
*                        scattering into the continuum for the i_th    *
*                        pointwise cross section data set              *
*            K2cpwx(i) = starting location in blank common (i*4, 0     *
*                        address) for the (n,2n) scattering into       *
*                        continuum data of the i_th pointwise cross    *
*                        section data set.    The data consist of      *
*                        N2kces(i) + N2kcen(i) x N2kxen(i) real        *
*                        numbers. The first N2kces(i) are the energies *
*                        of the tabulations for secondary neutrons, the*
*                        meaning of the others is depending on         *
*                        Kn2kcd(i)                                     *
*            N2kcex(i) = number of extra data beyond angular coeffici- *
*                        ents for each energy point (N2kcen(i)) for    *
*                        the (n,2n) scattering into continuum of the   *
*                        i_th pointwise cross section data set.        *
*            L2kpwx(i) = logical flag true if (some) partial cross     *
*                        sections for (n,2n) exist for the i_th point- *
*                        wise cross section data set                   *
*                                                                      *
*----------------------------------------------------------------------*
*
      LOGICAL L2KPWX
*
      COMMON / LWNP2N /               N2KLEV (MXXMDF), K2KPWX (MXXMDF),
     &               N2KCEN (MXXMDF), N2KCES (MXXMDF), N2KXEN (MXXMDF),
     &               KN2KCD (MXXMDF), K2CPWX (MXXMDF), N2KLCF (MXXMDF),
     &               N2KLGX (MXXMDF), KN2KDF (MXXMDF), KN2KCF (MXXMDF),
     &               N2KLEN (MXINLG,MXXMDF),    K2APWX (MXINLG,MXXMDF),
     &               N2KCEX (MXXMDF), L2KPWX (MXXMDF)
*
      SAVE / LWNP2N /