*$ CREATE ABLTIS.ADD
*COPY ABLTIS
*
*=== abltis ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Modifications to the original are:                               *
*     Copyright (C) 1990-2005    by  Alfredo Ferrari & Johannes Ranft  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     This is the old ABLTIS common of Hadrin, extracted and put       *
*     into an include file and adapted to the new Hadriv               *
*                                                                      *
*     Created on    17 may 1995    by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on  07-feb-97    by    Alfredo Ferrari               *
*                                                                      *
*     Included in the following routines:                              *
*                                                                      *
*               AMGA                                                   *
*               CALUMV                                                 *
*               DATESH                                                 *
*               FERHAV                                                 *
*               HADDEN                                                 *
*               HADRIV                                                 *
*               HYPERO                                                 *
*               NUCRIV                                                 *
*               RCHANV                                                 *
*               SIGINT                                                 *
*               TCHOIC                                                 *
*               TWOPAR                                                 *
*                                                                      *
*----------------------------------------------------------------------*
*
      COMMON / ABLTIS / AM   (-6:MXPABL), GA   (-6:MXPABL),
     &                  TAU  (-6:MXPABL), ICH  (-6:MXPABL),
     &                  IBAR (-6:MXPABL), K1   (-6:MXPABL),
     &                  K2   (-6:MXPABL)
      SAVE / ABLTIS /