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

#ifndef __MATHCM__
#define __MATHCM__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== Mathcm ===========================================================*
//
//----------------------------------------------------------------------*
//                                                                      *
//     Copyright (C) 2003-2019:  CERN & INFN                            *
//     All Rights Reserved.                                             *
//                                                                      *
//     Created on 20 April 2002     by    Alfredo Ferrari & Paola Sala  *
//                                                   Infn - Milan       *
//                                                                      *
//               Fctnum(n) = n!                                         *
//                                                                      *
//                           /+1  n                                     *
//             Cfcmlg(l,n) = |dX X P(X)                                 *
//                           /-1    l                                   *
//                                                                      *
//----------------------------------------------------------------------*
//
const int    MXFCTN = 50;
//
const int    MXLGCM = 30;
extern struct {
	double	fctnum[MXFCTN+1];
	double	cfcmlg[MXLGCM+1][MXLGCM+1];
	logical	lilgcm;
} mathcm_;
const int mathcm_fctnum_base = 0;
const int mathcm_cfcmlg_base = 0;

#ifdef __cplusplus
}
#endif
#endif