DPMJET/flukapro/(REAC)

   1 *$ CREATE REAC.ADD
   2 *COPY REAC
   3 *
   4 *=== reac =============================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     Created on 10 december 1991  by    Alfredo Ferrari & Paola Sala  *
   9 *                                                   Infn - Milan       *
  10 *                                                                      *
  11 *     Last change on 10-dec-91     by    Alfredo Ferrari               *
  12 *                                                                      *
  13 *     This is the original common reac of Hadrin                       *
  14 *                                                                      *
  15 *     Included in the following routines:                              *
  16 *                                                                      *
  17 *                CALUMV                                                *
  18 *                DATESH                                                *
  19 *                HADRIV                                                *
  20 *                RCHANV                                                *
  21 *                BLKDT3                                                *
  22 *                HADRIN                                                *
  23 *                IEFUN                                                 *
  24 *                SIGINT                                                *
  25 *                CALUMO                                                *
  26 *                RCHANW                                                *
  27 *                                                                      *
  28 *----------------------------------------------------------------------*
  29 *
  30       COMMON /REAC/ UMO   ( 296), PLABF ( 296), SIIN  ( 296),
  31      +              WK    (5184), NRK  (2,268), NURE  (30,2)
  32