*$ CREATE HNFSPA.ADD
*COPY HNFSPA
*
*=== Hnfspa ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2021-2021       by         Alfredo Ferrari         *
*     All Rights Reserved.                                             *
*                                                                      *
*     This a Fluka copy of the Hnfspa common of Dpmjet-3, required in  *
*     order to be able to use the fluka event genrators for            *
*     (relatively) low energy hN collision in place of the "old",      *
*     outdated and buggy Hadrin of Dpmjet-3                            *
*                                                                      *
*                                                                      *
*     Created on 15 September 2021  by         Alfredo Ferrari         *
*                                                  Private             *
*                                                                      *
*     Last change on  17-Sep-21     by         Alfredo Ferrari         *
*                                                  Private             *
*                                                                      *
*----------------------------------------------------------------------*
*
cc ------------ dpmjet3.4 - authors: S.Roesler, R.Engel, J.Ranft -------
cc ------- phojet1.12-35c - authors: S.Roesler, R.Engel, J.Ranft -------
cc                                                      - nov'o1 -------
cc ------------- pythia-6 - authors: Torbjorn Sjostrand, Lund'97 -------
cc --------- fluka89-202x - authors: A.Fasso`,A.Ferrari, J.Ranft -------
cc                                   P.R.Sala                    -------
cc ---------------------------------------------------------------------
cc                                  converted for use with FLUKA -------
cc                                                      - apr'o4 -------
cc                                  adapted for use in fluka202x -------
cc                              by  Alfredo Ferrari  - 17-Sep-21 -------

      PARAMETER ( MAXFIN = 100 )
      COMMON / HNFSPA / ELRH (MAXFIN), PLRH (MAXFIN), CXRH (MAXFIN),
     &                  CYRH (MAXFIN), CZRH (MAXFIN), ITRH (MAXFIN), IRH
      SAVE   / HNFSPA /