*$ CREATE DTFLKA.ADD
*COPY DTFLKA
*
*=== Dtflka ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2021-2021       by         Alfredo Ferrari         *
*     All Rights Reserved.                                             *
*                                                                      *
*     This a Fluka copy of the Dtflka common of Dpmjet-3, revisited    *
*     and adapted to the requirements of Fluka202x                     *
*                                                                      *
*                                                                      *
*     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 -------
      COMMON / DTFLKA / EHFLLO, EHFLHI, IAPFLK, IZPFLK, IATFLK, IZTFLK,
     &                  NPHFLK, NTHFLK, LHADCL, LINP  , LOUT  , LDAT  ,
     &                  LPRI  , IFLEVG
      LOGICAL LHADCL
      SAVE   / DTFLKA /