*
*=== Rdpstk ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     FLUKA9x-200x RaDioactive Product STacK:                          *
*                                                                      *
*     /Rdpstk/ radioactive decay stack                                 *
*        T12rdp = T1/2 of the radioactive product (s)                  *
*        Exmrdp = (atomic) excess mass of the radioactive product      *
*        Wtrdpr = particle statistical weight                          *
*        Xrdprd = particle position  x-coordinate                      *
*        Yrdprd = particle position  y-coordinate                      *
*        Zrdprd = particle position  z-coordinate                      *
*        Dnrdpr = distance to the nearest boundary                     *
*        Agrdpr = age of the particle (seconds)                        *
*        Ekrdpr = originating particle kinetic energy                  *
*        Sprdpr = spare real variables available    for K.W.Burn       *
*        Isprdp = spare integer variables available for K.W.Burn       *
*        Iardpr = A of the radioactive product                         *
*        Izrdpr = Z of the radioactive product                         *
*        Imrdpr = Isomeric level of the radioactive product            *
*        Kgrdpr = possible originating particle (neutron) group number *
*        Iprdpr = originating particle Paprop id                       *
*        Lordpr = particle generation                                  *
*        Lourdp = user flag                                            *
*        Nrgrdp = particle region number                               *
*        Nltrdp = particle lattice cell number                         *
*        Nhsrdp = pointer to the history object (extra geometries)     *
*        Nevrdp = number of the event which created the particle       *
*        Numrdp = particle number                                      *
*        Indrdp = index in the ground state/isomer arrays              *
*        Nprdpr = Fluka stack pointer                                  *
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER ( MXRDPR = 1200 )
      INTEGER*8 NLTRDP, NHSRDP
*
      COMMON / RDPSTK /                T12RDP (MXRDPR), EXMRDP (MXRDPR),
     &                XRDPRD (MXRDPR), YRDPRD (MXRDPR), ZRDPRD (MXRDPR),
     &                WTRDPR (MXRDPR), DNRDPR (MXRDPR), AGRDPR (MXRDPR),
     &                SPRDPR (MKBMX1,MXRDPR),           EKRDPR (MXRDPR),
     &                ISPRDP (MKBMX2,MXRDPR),           IPRDPR (MXRDPR),
     &                IARDPR (MXRDPR), IZRDPR (MXRDPR), IMRDPR (MXRDPR),
     &                KGRDPR (MXRDPR), LORDPR (MXRDPR), LOURDP (MXRDPR),
     &                NRGRDP (MXRDPR), NLTRDP (MXRDPR), NHSRDP (MXRDPR),
     &                NEVRDP (MXRDPR), NUMRDP (MXRDPR), INDRDP (MXRDPR),
     &                NPRDPR
      SAVE / RDPSTK /