*$ CREATE LWNPWT.ADD
*COPY LWNPWT
*
*=== Lwnpwt ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2018-2021     by  Alberto Fasso`, Alfredo Ferrari, *
*     All Rights Reserved.            Cristina Morone, Paola Sala      *
*                                                                      *
*                                                                      *
*     LoW energy Neutron Point-Wise xsec for (n,Triton) 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            *
*                                                                      *
*          Ktapwx(j,i) = starting location in blank common (i*4, 0     *
*                        address) for the (n,t_k) scattering angular   *
*                        distribution data for the j_th level of the   *
*                        i_th pointwise cross section data set         *
*            Ntklcf(i) = number of Legendre coefficients for (n,t_k)   *
*                        neutron emission from discrete levels for the *
*                        i_th pointwise cross section data set         *
*            Ntklgx(i) = highest discrete level for which Legendre co- *
*                        efficients for (n,t_k) neutron emission are   *
*                        given for the i_th pointwise cross section    *
*                        data set                                      *
*            Kntkdf(i) = flag for lab (=1) or cms (=2) frame for discr-*
*                        ete level (n,t_k) scattering for the i_th     *
*                        pointwise cross section data set              *
*          Ntklen(j,i) = number of energy points for j_th level (n,t_k)*
*                        triton emission angular distributions for the *
*                        i_th pointwise cross section data set         *
*            Ntklev(i) = number of energy levels to be considered for  *
*                        (n,t_k) scattering for the i_th pointwise     *
*                        cross section data set. The levels include    *
*                        the ground state (#1) and the continuum lower *
*                        boundary (#Ntklev)                            *
*            Ktkpwx(i) = starting location in blank common (i*4, 0     *
*                        address) for the (n,t_k) scattering data of   *
*                        the i_th pointwise cross section data set     *
*                        The data consist of Ntklev(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]                     *
*            Ntkcen(i) = number of energy points for (n,t) scatter-    *
*                        ing into the continuum for the i_th point-    *
*                        wise cross section data set                   *
*            Ntkces(i) = number of secondary triton energies for (n,t) *
*                        scattering into the continuum for the i_th    *
*                        pointwise cross section data set              *
*            Ntkxen(i) = number of data points per energy point for    *
*                        (n,t) scattering into the continuum for the   *
*                        i_th pointwise cross section data set         *
*            Kntkcd(i) = kind of data description for (n,t) scattering *
*                        into the continuum for the i_th pointwise     *
*                        cross section data set                        *
*            Kntkcf(i) = k0 + 100 * k1                                 *
*                        for the i_th pointwise cross section data set:*
*                        k0: flag for lab (=1) or cms (=2) frame for   *
*                            (n,t) scattering into the continuum       *
*                        k1: 1 means Legendre coefficient expansion,   *
*                            2 means Kalbach-Mann energy-angle distri- *
*                            bution                                    *
*            Ktcpwx(i) = starting location in blank common (i*4, 0     *
*                        address) for the (n,t) scattering into        *
*                        continuum data of the i_th pointwise cross    *
*                        section data set.    The data consist of      *
*                        Ntkces(i) + Ntkcen(i) x Ntkxen(i) real        *
*                        numbers. The first Ntkces(i) are the energies *
*                        of the tabulations for secondary tritons, the *
*                        meaning of the others is depending on         *
*                        Kntkcd(i)                                     *
*            Ltkpwx(i) = logical flag true if (some) partial cross     *
*                        sections for (n,t) exist for the i_th point-  *
*                        wise cross section data set                   *
*                                                                      *
*----------------------------------------------------------------------*
*
      LOGICAL LTKPWX
*
      COMMON / LWNPWT /               NTKLEV (MXXMDF), KTKPWX (MXXMDF),
     &               NTKCEN (MXXMDF), NTKCES (MXXMDF), NTKXEN (MXXMDF),
     &               KNTKCD (MXXMDF), KTCPWX (MXXMDF), NTKLCF (MXXMDF),
     &               NTKLGX (MXXMDF), KNTKDF (MXXMDF), KNTKCF (MXXMDF),
     &               NTKLEN (MXINLG,MXXMDF),    KTAPWX (MXINLG,MXXMDF),
     &               ITKPWX (MXXMDF), LTKPWX (MXXMDF)
*
      SAVE / LWNPWT /