*$ CREATE LWNPWC.ADD
*COPY LWNPWC
*
*=== Lwnpwc ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2017-2021     by  Alberto Fasso`, Alfredo Ferrari, *
*     All Rights Reserved.              Cristina Morone, Paola Sala    *
*                                                                      *
*     LoW energy Neutron Point-Wise xsec for radiative Capture 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 Cristina Morone, Paola Sala, further extended Sep-20/Apr-21  *
*      by Alfredo Ferrari, Paola Sala)                                 *
*                                                                      *
*     Current version:                                                 *
*     Created on 26 September 2020 by Alfredo Ferrari, Cristina Morone *
*                                         Private        Tor Vergata   *
*                                                                      *
*    (Original version:                                                *
*     Created on    24 May 1997    by    Alfredo Ferrari, Paola Sala   *
*                                                Infn - Milan)         *
*                                                                      *
*     Last change on  07-Apr-21    by          Alfredo Ferrari         *
*                                                  Private             *
*                                                                      *
*            Nngpwx(i) = number of energies at which radiative capture *
*                        data are given for the i_th pointwise cross   *
*                        section data set                              *
*          Ingpwx(l,i) = capture level parity for the l_th radiative   *
*                        capture level data set for the i_th pointwise *
*                        cross section data set                        *
*          Jngpwx(l,i) = capture level 2 x spin for the l_th radiative *
*                        capture level data set for the i_th pointwise *
*                        cross section data set                        *
*          Engpwx(l,i) = nominal energy for l_th radiative capture data*
*                        set for the i_th pointwise cross section      *
*                        data set                                      *
*          Gngpwx(l,i) = nominal width  for l_th radiative capture data*
*                        set for the i_th pointwise cross section      *
*                        data set (xsec barn for l=1, thermal)         *
*          Nnglev(l,i) = number of energy levels (ground state is tak- *
*                        en as level #1, the virtual capture level is  *
*                        #Nnglev) to be considered for the l_th radia- *
*                        tive capture data set for the i_th pointwise  *
*                        cross section data set                        *
*          Kngpwx(l,i) = starting location in blank common (i*4, 0     *
*                        address) for the l_th radiative capture data  *
*                        set of the i_th pointwise cross section data  *
*                        set                                           *
*                        For Lngxpw(l,i)=False, the data consist of    *
*                        Nnglev(i) energy levels each jth one with j-1 *
*                        branching ratios to the underlying j-1 levels.*
*                        The total number of points is Sum^Nnglev_1[j] *
*                        For Lngxpw(l,i)=True, the data consist of     *
*                        Nnglev(i) energy levels each jth one with j-1 *
*                        branching ratios to the underlying j-1 levels,*
*                        plus Nnglev(i) values, the first one being    *
*                        again the capture level, and the following    *
*                        ones being the indirect branching ratios      *
*                        through unknown level(s) x to the underlying  *
*                        Nnglev(i)-1 levels. The total number of points*
*                        is Sum^Nnglev_1[j] + Nnglev(i)                *
*          Lngxpw(l,i) = logical flag for the extra transition proba-  *
*                        bilities from the capture level to a given    *
*                        level through unknown level(s) x for the l_th *
*                        radiative capture data set of the i_th point- *
*                        wise cross section data set                   *
*                                                                      *
*----------------------------------------------------------------------*
*
      LOGICAL LNGXPW
*
      COMMON / LWNPWC / ENGPWX (MXNGRS,MXXMDF), GNGPWX (MXNGRS,MXXMDF),
     &                  INGPWX (MXNGRS,MXXMDF), JNGPWX (MXNGRS,MXXMDF),
     &                  NNGLEV (MXNGRS,MXXMDF), KNGPWX (MXNGRS,MXXMDF),
     &                  NNGPWX (MXXMDF)       , LNGXPW (MXNGRS,MXXMDF)
*
      SAVE / LWNPWC /