*$ CREATE LWNPWD.ADD
*COPY LWNPWD
*
*=== Lwnpwd ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2018-2021     by  Alberto Fasso`, Alfredo Ferrari, *
*     All Rights Reserved.            Cristina Morone, Paola Sala      *
*                                                                      *
*                                                                      *
*     LoW energy Neutron Point-Wise xsec for (n,Deuteron) 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)  *
*                                                                      *
*          Kdapwx(j,i) = starting location in blank common (i*4, 0     *
*                        address) for the (n,d_k) scattering angular   *
*                        distribution data for the j_th level of the   *
*                        i_th pointwise cross section data set         *
*            Ndklcf(i) = number of Legendre coefficients for (n,d_k)   *
*                        neutron emission from discrete levels for the *
*                        i_th pointwise cross section data set         *
*            Ndklgx(i) = highest discrete level for which Legendre co- *
*                        efficients for (n,d_k) neutron emission are   *
*                        given for the i_th pointwise cross section    *
*                        data set                                      *
*            Kndkdf(i) = flag for lab (=1) or cms (=2) frame for discr-*
*                        ete level (n,d_k) scattering for the i_th     *
*                        th pointwise cross section data set           *
*          Ndklen(j,i) = number of energy points for j_th level (n,d_k)*
*                        deuteron emission angular distributions for   *
*                        the i_th pointwise cross section data set     *
*            Ndklev(i) = number of energy levels to be considered for  *
*                        (n,d_k) scattering for the i_th pointwise     *
*                        cross section data set. The levels include    *
*                        the ground state (#1) and the continuum lower *
*                        boundary (#Ndklev)                            *
*            Kdkpwx(i) = starting location in blank common (i*4, 0     *
*                        address) for the (n,d_k) scattering data of   *
*                        the i_th pointwise cross section data set     *
*                        The data consist of Ndklev(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]                     *
*            Ndkcen(i) = number of energy points for (n,d) scatter-    *
*                        ing into the continuum for the i_th point-    *
*                        wise cross section data set                   *
*            Ndkces(i) = number of secondary deuteron energies for     *
*                        (n,d) scattering into the continuum for the   *
*                        i_th pointwise cross section data set         *
*            Ndkxen(i) = number of data points per energy point for    *
*                        (n,d) scattering into the continuum for the   *
*                        i_th pointwise cross section data set         *
*            Kndkcd(i) = kind of data description for (n,d) scattering *
*                        into the continuum for the i_th pointwise     *
*                        cross section data set                        *
*            Kndkcf(i) = k0 + 100 * k1                                 *
*                        for the i_th pointwise cross section data set:*
*                        k0: flag for lab (=1) or cms (=2) frame for   *
*                            (n,d) scattering into the continuum       *
*                        k1: 1 means Legendre coefficient expansion,   *
*                            2 means Kalbach-Mann energy-angle distri- *
*                            bution                                    *
*            Kdcpwx(i) = starting location in blank common (i*4, 0     *
*                        address) for the (n,d) scattering into        *
*                        continuum data of the i_th pointwise cross    *
*                        section data set.    The data consist of      *
*                        Ndkces(i) + Ndkcen(i) x Ndkxen(i) real        *
*                        numbers. The first Ndkces(i) are the energies *
*                        of the tabulations for secondary deuterons,   *
*                        the meaning of the others is depending on     *
*                        Kndkcd(i)                                     *
*            Ldkpwx(i) = logical flag true if (some) partial cross     *
*                        sections for (n,d) exist for the i_th point-  *
*                        wise cross section data set                   *
*                                                                      *
*----------------------------------------------------------------------*
*
      LOGICAL LDKPWX
*
      COMMON / LWNPWD /               NDKLEV (MXXMDF), KDKPWX (MXXMDF),
     &               NDKCEN (MXXMDF), NDKCES (MXXMDF), NDKXEN (MXXMDF),
     &               KNDKCD (MXXMDF), KDCPWX (MXXMDF), NDKLCF (MXXMDF),
     &               NDKLGX (MXXMDF), KNDKDF (MXXMDF), KNDKCF (MXXMDF),
     &               NDKLEN (MXINLG,MXXMDF),    KDAPWX (MXINLG,MXXMDF),
     &               IDKPWX (MXXMDF), LDKPWX (MXXMDF)
*
      SAVE / LWNPWD /