*$ CREATE DTPART.ADD
*COPY DTPART
*
*=== Dtpart ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2021-2021       by   Alfredo Ferrari & DPMJET-3    *
*     All Rights Reserved.                       Authors               *
*                                                                      *
*     This a Fluka copy of the Dtpart common of Dpmjet-3, required in  *
*     order to synchronize particle masses etc among Fluka, Dpmjet,    *
*     and Pythia                                                       *
*                                                                      *
*                                                                      *
*     Created on 15 September 2021  by         Alfredo Ferrari         *
*                                                  Private             *
*                                                                      *
*     Last change on  15-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 -------
      CHARACTER*8  ANAME
      COMMON / DTPART / ANAME (210), AAM   (210), GA (210), TAU (210),
     &                  IICH  (210), IIBAR (210), K1 (210), K2  (210)
      SAVE   / DTPART /