DPMJET/flukapro/(ABLTIS)

   1 *$ CREATE ABLTIS.ADD
   2 *COPY ABLTIS
   3 *
   4 *=== abltis ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     This is the old ABLTIS common of Hadrin, extracted and put       *
   9 *     into an include file                                             *
  10 *                                                                      *
  11 *     Created on    17 may 1995    by    Alfredo Ferrari & Paola Sala  *
  12 *                                                   Infn - Milan       *
  13 *                                                                      *
  14 *     Last change on  07-feb-97    by    Alfredo Ferrari               *
  15 *                                                                      *
  16 *     Included in the following routines:                              *
  17 *                                                                      *
  18 *               AMGA                                                   *
  19 *               CALUMO                                                 *
  20 *               CALUMV                                                 *
  21 *               DATESH                                                 *
  22 *               FERHAV                                                 *
  23 *               HADDEN                                                 *
  24 *               HADRIN                                                 *
  25 *               HADRIV                                                 *
  26 *               HYPERO                                                 *
  27 *               NUCRIV                                                 *
  28 *               RCHANV                                                 *
  29 *               SIGINT                                                 *
  30 *               TCHOIC                                                 *
  31 *               TWOPAR                                                 *
  32 *                                                                      *
  33 *----------------------------------------------------------------------*
  34 *
  35       COMMON / ABLTIS / AM   (-6:MXPABL), GA   (-6:MXPABL),
  36      &                  TAU  (-6:MXPABL), ICH  (-6:MXPABL),
  37      &                  IBAR (-6:MXPABL), K1   (-6:MXPABL),
  38      &                  K2   (-6:MXPABL)
  39