/*
 * DO NOT MANUALLY UPDATE THIS FILE.
 * If needed: make cpp_headers
 *
 * fortran2c.py - automatic conversion
 *       abltis.inc -> abltis.h
 */

#ifndef __ABLTIS__
#define __ABLTIS__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== abltis ===========================================================*
//
//----------------------------------------------------------------------*
//                                                                      *
//     Modifications to the original are:                               *
//     Copyright (C) 2003-2019:  CERN & INFN                            *
//     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       *
//                                                                      *
//     Included in the following routines:                              *
//                                                                      *
//               AMGA                                                   *
//               CALUMV                                                 *
//               DATESH                                                 *
//               FERHAV                                                 *
//               HADDEN                                                 *
//               HADRIV                                                 *
//               HYPERO                                                 *
//               NUCRIV                                                 *
//               RCHANV                                                 *
//               SIGINT                                                 *
//               TCHOIC                                                 *
//               TWOPAR                                                 *
//                                                                      *
//----------------------------------------------------------------------*
//
extern struct {
	double	am[MXPABL+6+1];
	double	ga[MXPABL+6+1];
	double	tau[MXPABL+6+1];
	int	ich[MXPABL+6+1];
	int	ibar[MXPABL+6+1];
	int	k1[MXPABL+6+1];
	int	k2[MXPABL+6+1];
} abltis_;
const int abltis_am_base = -6;
const int abltis_ga_base = -6;
const int abltis_tau_base = -6;
const int abltis_ich_base = -6;
const int abltis_ibar_base = -6;
const int abltis_k1_base = -6;
const int abltis_k2_base = -6;


#ifdef __cplusplus
}
#endif
#endif