#ifdef WIN32
#ifndef VISUAL_CPLUSPLUS
#define VISUAL_CPLUSPLUS
#endif
#endif


#include "cfortran.h"


PROTOCCALLSFSUB0(HLIMIT_C,hlimit_c)
#define HLIMIT_C() \
   CCALLSFSUB0(HLIMIT_C,hlimit_c)


PROTOCCALLSFSUB1(HLIMIT,hlimit,INT)
#define HLIMIT(A1) \
   CCALLSFSUB1(HLIMIT,hlimit,INT,A1)

PROTOCCALLSFSUB6(HROPEN,hropen,INT,STRING,STRING,STRING,PINT,PINT)
#define HROPEN(A1,A2,A3,A4,A5,A6) \
   CCALLSFSUB6(HROPEN,hropen,INT,STRING,STRING,STRING,PINT,PINT,A1,A2,A3,A4,A5,A6)


PROTOCCALLSFSUB6(HBOOKN,hbookn,INT,STRING,INT,STRING,INT,STRINGV)
#define HBOOKN(A1,A2,A3,A4,A5,A6) \
    CCALLSFSUB6(HBOOKN,hbookn,INT,STRING,INT,STRING,INT,STRINGV,A1,A2,A3,A4,A5,A6)

PROTOCCALLSFSUB2(HFN,hfn,INT,FLOATV)
#define HFN(A1,A2)  \
   CCALLSFSUB2(HFN,hfn,INT,FLOATV,A1,A2)


PROTOCCALLSFSUB6(HBOOK1,hbook1,INT,STRING,INT,FLOAT,FLOAT,FLOAT)
#define HBOOK1(A1,A2,A3,A4,A5,A6)  \
   CCALLSFSUB6(HBOOK1,hbook1,INT,STRING,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6)

PROTOCCALLSFSUB3(HF1,hf1,INT,FLOAT,FLOAT)
#define HF1(A1,A2,A3)  \
   CCALLSFSUB3(HF1,hf1,INT,FLOAT,FLOAT,A1,A2,A3)


PROTOCCALLSFSUB9(HBOOK2,hbook1,INT,STRING,INT,FLOAT,FLOAT,INT,FLOAT,FLOAT,FLOAT)
#define HBOOK2(A1,A2,A3,A4,A5,A6,A7,A8,A9)  \
   CCALLSFSUB9(HBOOK2,hbook2,INT,STRING,INT,FLOAT,FLOAT,INT,FLOAT,FLOAT,FLOAT,\
			A1,A2,A3,A4,A5,A6,A7,A8,A9)

PROTOCCALLSFSUB4(HFILL,hfill,INT,FLOAT,FLOAT,FLOAT)
#define HFILL(A1,A2,A3,A4)  \
   CCALLSFSUB4(HFILL,hfill,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)


PROTOCCALLSFSUB1(HREND,hrend,STRING)
#define HREND(A1)  \
   CCALLSFSUB1(HREND,hrend,STRING,A1)

PROTOCCALLSFSUB3(HROUT,hrout,INT,PINT,STRING)
#define HROUT(A1,A2,A3)  \
   CCALLSFSUB3(HROUT,hrout,INT,PINT,STRING,A1,A2,A3)



PROTOCCALLSFSUB7(FITERF,fiterf,FLOATV,FLOATV,FLOATV,INT,FLOATV,FLOATV,PFLOAT)
#define TEST(x,y,evt,n,par,e_par,chi)  \
   CCALLSFSUB0(FITERF,fiterf,FLOATV,FLOATV,FLOATV,INT,FLOATV,FLOATV,PFLOAT, \
				x,y,evt,n,par,e_par,chi)