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

#ifndef __SPLTCM__
#define __SPLTCM__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== spltcm ===========================================================*
//
//----------------------------------------------------------------------*
//                                                                      *
//     Created on 10 December 1991  by    Alfredo Ferrari & Paola Sala  *
//                                                   Infn - Milan       *
//                                                                      *
//     Actual common name changed from SPLIT to SPLTCM on 22-jan-01     *
//     to get around a bug in the Linux compiler/linker                 *
//                                                                      *
//     This is the original common split of Hadrin                      *
//                                                                      *
//     Included in the following routines:                              *
//                                                                      *
//                CALUMV                                                *
//                DATESH                                                *
//                HADRIV                                                *
//                RCHANV                                                *
//                HADDEN                                                *
//                RCHANW                                                *
//                                                                      *
//----------------------------------------------------------------------*
//
//  There should be some safety in this dimension, it was originally
//  460 = K2 (94) + 153 = 307 + 153:
const int    IDMXSP = IDMXDC/2+170;
extern struct {
	double	wt[IDMXSP+6+1];
	int	nzk[3][IDMXSP+6+1];
} spltcm_;
const int spltcm_wt_base = -6;
const int spltcm_nzk_base = -6;

extern struct {
	char	aname[MXPABL+6+1][8];
	char	zkname[IDMXSP+6+1][8];
} namsdc_;
const int namsdc_aname_base = -6;
const int namsdc_zkname_base = -6;


#ifdef __cplusplus
}
#endif
#endif