DPMJET/flukapro/(GDRDCM)

   1 *$ CREATE GDRDCM.ADD
   2 *COPY GDRDCM
   3 *
   4 *=== gdrdcm ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *                                                                      *
   9 *     Created on 16 august 2000    by    Alfredo Ferrari & Paola Sala  *
  10 *                                                   Infn - Milan       *
  11 *                                                                      *
  12 *     Last change on 23-sep-00     by    Alfredo Ferrari               *
  13 *                                                                      *
  14 *     description of the common block(s) and variable(s)               *
  15 *                                                                      *
  16 *       Egdrbn  = energy bin width in data table                       *
  17 *    Egdrth(is) = threshold energy for isotope is                      *
  18 *    Ngdrpn(is) = number of table points for isotope is                *
  19 *    Igdrpn(is) = pointer to the first table point for isotope is      *
  20 *        Lgdrld = logical flag for using the old GDR routine           *
  21 *                                                                      *
  22 *----------------------------------------------------------------------*
  23 *
  24       LOGICAL LGDRLD
  25       PARAMETER ( EGDRBN = 0.2D+00 )
  26       COMMON / GDRDCM / EGDRTH (NSTBIS), NGDRPN (NSTBIS),
  27      &                  IGDRPN (NSTBIS), LGDRLD
  28