*$ CREATE LWNP3N.ADD
*COPY LWNP3N
*
*=== Lwnp3n ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*                                                                      *
*     Copyright (C) 2017-2021     by  Alfredo Ferrari, Cristina Morone,*
*                                               Paola Sala             *
*     All Rights Reserved.                                             *
*                                                                      *
*     LoW energy Neutron Point-wise xsec for (n,3N) 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 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             *
*                                                                      *
*                                                                      *
*            N3kcen(i) = number of energy points for (n,3n) scatter-   *
*                        ing into the continuum for the i_th point-    *
*                        wise cross section data set                   *
*            N3kces(i) = number of secondary neutron energies for      *
*                        (n,3n) scattering into the continuum for the  *
*                        i_th pointwise cross section data set         *
*            N3kxen(i) = number of data points per energy point for    *
*                        (n,3n) scattering into the continuum for the  *
*                        i_th pointwise cross section data set         *
*            Kn3kcd(i) = kind of data description for (n,3n) scatt-    *
*                        ering into the continuum for the i_th point-  *
*                        wise cross section data set                   *
*            Kn3kcf(i) = flag for lab (=1) or cms (=2) frame for (n,3n)*
*                        scattering into the continuum for the i_th    *
*                        pointwise cross section data set              *
*            K3cpwx(i) = starting location in blank common (i*4, 0     *
*                        address) for the (n,3n) scattering into       *
*                        continuum data of the i_th pointwise cross    *
*                        section data set.    The data consist of      *
*                        N3kces(i) + N3kcen(i) x N3kxen(i) real        *
*                        numbers. The first N3kces(i) are the energies *
*                        of the tabulations for secondary neutrons, the*
*                        meaning of the others is depending on         *
*                        Kn3kcd(i)                                     *
*            N3kcex(i) = number of extra data beyond angular coeffici- *
*                        ents for each energy point (N3kcen(i)) for    *
*                        the (n,3n) scattering into continuum of the   *
*                        i_th pointwise cross section data set.        *
*                                                                      *
*----------------------------------------------------------------------*
*
      COMMON / LWNP3N /               N3KCEN (MXXMDF), N3KCES (MXXMDF),
     &               N3KXEN (MXXMDF), KN3KCD (MXXMDF), K3CPWX (MXXMDF),
     &               KN3KCF (MXXMDF), N3KCEX (MXXMDF)
*
      SAVE / LWNP3N /