*$ CREATE RBIOCM.ADD
*COPY RBIOCM
*
*=== Rbiocm ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2016-2016     by  Alfredo Ferrari & Andrea Mairani *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     Created on    03 March 2016 by  Alfredo Ferrari & Andrea Maiarni *
*                                             CERN-EN / CNAO           *
*                                                                      *
*     Last change on  03-Mar-16   by       Alfredo Ferrari             *
*                                                                      *
*          Alxrbe(i) = alpha for X-rays for the i_th cellular line     *
*          Bexrbe(i) = beta  for X-rays for the i_th cellular line     *
*      Alprbe(k,j,i) = alpha for the k_th energy/LET, for the j_th Z,  *
*                      for the i_th cellular line                      *
*      Beprbe(k,j,i) = beta  for the k_th energy/LET, for the j_th Z,  *
*                      for the i_th cellular line                      *
*      Eionrb(k,j,i) = k_th energy/LET, for the j_th Z, for the i_th   *
*                      cellular line                                   *
*        Neirbe(j,i) = number of energies/LET values, for the j_th Z,  *
*                      for the i_th cellular line                      *
*          Flrbio(i) = file name for the i_th cellular line tabulations*
*          Lletrb(i) = False -> energy tabulation, True -> LET tabula- *
*                      tion, for the i_th cellular line                *
*          Nfrrbe(i) = number of Z's for the i_th cellular line        *
*             Mrbetb = number of cellular lines                        *
*                                                                      *
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER ( MXRBTB =   5 )
      PARAMETER ( MZRBTB =  10 )
      PARAMETER ( MPRBTB = 100 )
*
      COMMON / RBIOCM / ALXRBE (MXRBTB), BEXRBE (MXRBTB),
     &                  EIONRB (MPRBTB,MZRBTB,MXRBTB),
     &                  ALPRBE (MPRBTB,MZRBTB,MXRBTB),
     &                  BETRBE (MPRBTB,MZRBTB,MXRBTB),
     &                  NEIRBE (MZRBTB,MXRBTB), NFRRBE (MXRBTB),
     &                  LLETRB (MXRBTB), MRBETB
      LOGICAL LLETRB
      COMMON / RBIOCH / FLRBIO (MXRBTB)
      CHARACTER*10 FLRBIO
      SAVE / RBIOCM /, / RBIOCH /