*
*=== Rddgxb ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     Radioactive Decay DauGhters X Beam weights:                      *
*                                                                      *
*     Created on 15-September-2005 by   Alfredo Ferrari & Paola Sala   *
*                                              INFN - MIlan            *
*                                                                      *
*          Wactxb(i) = Number of times the i_th matrix has been used   *
*          Kactxb(i) = Starting address (real*4, 0th element) of the   *
*                      i_th decay x intensity weight matrix. The matrix*
*                      occupies Kalgnm x (Ntrdcy x Mxidau) real*4 ele- *
*                      ments, followed by Mxidau i*4 elements correspo-*
*                      nding to A + 1000 x Z + 1000000 x m of the chain*
*                      daughters                                       *
*          Ndactx(i) = Ndaugh (n. of chain daughters) for the i_th     *
*                      matrix                                          *
*          Iiactx(i) = A + 1000 x Z + 1000000 x m (isomer level) of    *
*                      the ancestor for the i_th matrix                *
*          Nactxb    = number of matrices currently in use             *
*          Mactxb    = number of matrices actually allocated (<=Mxactx)*
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER ( MXACTX =   50 )
      COMMON / RDDGXB / WACTXB (MXACTX), WACTMN,
     &                  KACTXB (MXACTX), NDACTX (MXACTX),
     &                  IIACTX (MXACTX), NACTXB, MACTXB, IACTMN
      SAVE / RDDGXB /