*$ CREATE LWNPWH.ADD
*COPY LWNPWH
*
*=== Lwnpwh ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2018-2021     by  Alberto Fasso`, Alfredo Ferrari, *
*     All Rights Reserved.            Cristina Morone, Paola Sala      *
*                                                                      *
*                                                                      *
*     LoW energy Neutron Point-Wise xsec for (n,3-He) 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            *
*                                                                      *
*          Khapwx(j,i) = starting location in blank common (i*4, 0     *
*                        address) for the (n,h_k) scattering angular   *
*                        distribution data for the j_th level of the   *
*                        i_th pointwise cross section data set         *
*            Nhklcf(i) = number of Legendre coefficients for (n,h_k)   *
*                        neutron emission from discrete levels for the *
*                        i_th pointwise cross section data set         *
*            Nhklgx(i) = highest discrete level for which Legendre co- *
*                        efficients for (n,h_k) neutron emission are   *
*                        given for the i_th pointwise cross section    *
*                        data set                                      *
*            Knhkdf(i) = flag for lab (=1) or cms (=2) frame for discr-*
*                        ete level (n,h_k) scattering for the i_th     *
*                        pointwise cross section data set              *
*          Nhklen(j,i) = number of energy points for j_th level (n,h_k)*
*                        helion emission angular distributions for the *
*                        i_th pointwise cross section data set         *
*            Nhklev(i) = number of energy levels to be considered for  *
*                        (n,h_k) scattering for the i_th pointwise     *
*                        cross section data set. The levels include    *
*                        the ground state (#1) and the continuum lower *
*                        boundary (#Nhklev)                            *
*            Khkpwx(i) = starting location in blank common (i*4, 0     *
*                        address) for the (n,h_k) scattering data of   *
*                        the i_th pointwise cross section data set     *
*                        The data consist of Nhklev(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]                     *
*            Nhkcen(i) = number of energy points for (n,h) scatter-    *
*                        ing into the continuum for the i_th point-    *
*                        wise cross section data set                   *
*            Nhkces(i) = number of secondary helion energies for (n,h) *
*                        scattering into the continuum for the i_th    *
*                        pointwise cross section data set              *
*            Nhkxen(i) = number of data points per energy point for    *
*                        (n,h) scattering into the continuum for the   *
*                        i_th pointwise cross section data set         *
*            Knhkcd(i) = kind of data description for (n,h) scattering *
*                        into the continuum for the i_th pointwise     *
*                        cross section data set                        *
*            Knhkcf(i) = k0 + 100 * k1                                 *
*                        for the i_th pointwise cross section data set:*
*                        k0: flag for lab (=1) or cms (=2) frame for   *
*                            (n,h) scattering into the continuum       *
*                        k1: 1 means Legendre coefficient expansion,   *
*                            2 means Kalbach-Mann energy-angle distri- *
*                            bution                                    *
*                        pointwise cross section data set              *
*            Khcpwx(i) = starting location in blank common (i*4, 0     *
*                        address) for the (n,h) scattering into        *
*                        continuum data of the i_th pointwise cross    *
*                        section data set.    The data consist of      *
*                        Nhkces(i) + Nhkcen(i) x Nhkxen(i) real        *
*                        numbers. The first Nhkces(i) are the energies *
*                        of the tabulations for secondary helions, the *
*                        meaning of the others is depending on         *
*                        Knhkcd(i)                                     *
*            Lhkpwx(i) = logical flag true if (some) partial cross     *
*                        sections for (n,h) exist for the i_th point-  *
*                        wise cross section data set                   *
*                                                                      *
*----------------------------------------------------------------------*
*
      LOGICAL LHKPWX
*
      COMMON / LWNPWH /               NHKLEV (MXXMDF), KHKPWX (MXXMDF),
     &               NHKCEN (MXXMDF), NHKCES (MXXMDF), NHKXEN (MXXMDF),
     &               KNHKCD (MXXMDF), KHCPWX (MXXMDF), NHKLCF (MXXMDF),
     &               NHKLGX (MXXMDF), KNHKDF (MXXMDF), KNHKCF (MXXMDF),
     &               NHKLEN (MXINLG,MXXMDF),    KHAPWX (MXINLG,MXXMDF),
     &               IHKPWX (MXXMDF), LHKPWX (MXXMDF)
*
      SAVE / LWNPWH /