source/include/minuit.h

0001 #ifndef _MINUIT_H
0002 #define _MINUIT_H
0003 #include <cfortran/cfortran.h>
0004
0005 #ifdef __cplusplus
0006 extern "C" {
0007 #endif
0008 /*
0009  *  Interface to minuit using cfortran.h
0010  *
0011  *  Edit history:
0012  *  G.Folger  12-Dec-94  change some to use ROUTINE for passing fcn/futil
0013  */
0014
0015 PROTOCCALLSFFUN1(LOGICAL,MNUNPT,mnunpt,BYTE)
0016 #define MNUNPT(A2)  CCALLSFFUN1(MNUNPT,mnunpt,BYTE,A2)
0017
0018 PROTOCCALLSFSUB2(MINUIT,minuit,ROUTINE,ROUTINE)
0019 #define MINUIT(A1,A2)  CCALLSFSUB2(MINUIT,minuit,ROUTINE,ROUTINE,A1,A2)
0020
0021 PROTOCCALLSFSUB2(MNAMIN,mnamin,DOUBLE,DOUBLE)
0022 #define MNAMIN(A1,A2)  CCALLSFSUB2(MNAMIN,mnamin,DOUBLE,DOUBLE,A1,A2)
0023
0024 PROTOCCALLSFSUB7(MNBINS,mnbins,DOUBLE,DOUBLE,INT,PDOUBLE,PDOUBLE,PINT,PDOUBLE)
0025 #define MNBINS(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(MNBINS,mnbins,DOUBLE,DOUBLE,INT,PDOUBLE,PDOUBLE,PINT,PDOUBLE,A1,A2,A3,A4,A5,A6,A7)
0026
0027 PROTOCCALLSFSUB4(MNCALF,mncalf,DOUBLE,DOUBLEV,PDOUBLE,DOUBLE)
0028 #define MNCALF(A1,A2,A3,A4)  CCALLSFSUB4(MNCALF,mncalf,DOUBLE,DOUBLEV,PDOUBLE,DOUBLE,A1,A2,A3,A4)
0029
0030 PROTOCCALLSFSUB0(MNCLER,mncler)
0031 #define MNCLER() CCALLSFSUB0(MNCLER,mncler)
0032
0033 PROTOCCALLSFSUB5(MNCNTR,mncntr,DOUBLE,INT,INT,PINT,DOUBLE)
0034 #define MNCNTR(A1,A2,A3,A4,A5)  CCALLSFSUB5(MNCNTR,mncntr,DOUBLE,INT,INT,PINT,DOUBLE,A1,A2,A3,A4,A5)
0035
0036 PROTOCCALLSFSUB4(MNCOMD,mncomd,ROUTINE,STRING,PINT,ROUTINE)
0037 #define MNCOMD(A1,A2,A3,A4)  CCALLSFSUB4(MNCOMD,mncomd,ROUTINE,STRING,PINT,ROUTINE,A1,A2,A3,A4)
0038
0039 PROTOCCALLSFSUB8(MNCONT,mncont,ROUTINE,INT,INT,INT,PDOUBLE,PDOUBLE,PINT,ROUTINE)
0040 #define MNCONT(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(MNCONT,mncont,ROUTINE,INT,INT,INT,PDOUBLE,PDOUBLE,PINT,ROUTINE,A1,A2,A3,A4,A5,A6,A7,A8)
0041
0042 PROTOCCALLSFSUB9(MNCRCK,mncrck,STRING,INT,PSTRING,PINT,INT,PDOUBLE,PINT,PINT,INT)
0043 #define MNCRCK(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(MNCRCK,mncrck,STRING,INT,PSTRING,PINT,INT,PDOUBLE,PINT,PINT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0044
0045 PROTOCCALLSFSUB4(MNCROS,mncros,DOUBLE,PDOUBLE,PINT,DOUBLE)
0046 #define MNCROS(A1,A2,A3,A4)  CCALLSFSUB4(MNCROS,mncros,DOUBLE,PDOUBLE,PINT,DOUBLE,A1,A2,A3,A4)
0047
0048 PROTOCCALLSFSUB2(MNCUVE,mncuve,DOUBLE,DOUBLE)
0049 #define MNCUVE(A1,A2)  CCALLSFSUB2(MNCUVE,mncuve,DOUBLE,DOUBLE,A1,A2)
0050
0051 PROTOCCALLSFSUB2(MNDERI,mnderi,DOUBLE,DOUBLE)
0052 #define MNDERI(A1,A2)  CCALLSFSUB2(MNDERI,mnderi,DOUBLE,DOUBLE,A1,A2)
0053
0054 PROTOCCALLSFSUB3(MNDXDI,mndxdi,DOUBLE,INT,PDOUBLE)
0055 #define MNDXDI(A1,A2,A3)  CCALLSFSUB3(MNDXDI,mndxdi,DOUBLE,INT,PDOUBLE,A1,A2,A3)
0056
0057 PROTOCCALLSFSUB7(MNEIG,mneig,PDOUBLE,INT,INT,INT,PDOUBLE,DOUBLE,PINT)
0058 #define MNEIG(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(MNEIG,mneig,PDOUBLE,INT,INT,INT,PDOUBLE,DOUBLE,PINT,A1,A2,A3,A4,A5,A6,A7)
0059
0060 PROTOCCALLSFSUB2(MNEMAT,mnemat,PDOUBLE,INT)
0061 #define MNEMAT(A1,A2)  CCALLSFSUB2(MNEMAT,mnemat,PDOUBLE,INT,A1,A2)
0062
0063 PROTOCCALLSFSUB5(MNERRS,mnerrs,INT,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE)
0064 #define MNERRS(A1,A2,A3,A4,A5)  CCALLSFSUB5(MNERRS,mnerrs,INT,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5)
0065
0066 PROTOCCALLSFSUB5(MNEVAL,mneval,DOUBLE,DOUBLE,PDOUBLE,PINT,DOUBLE)
0067 #define MNEVAL(A1,A2,A3,A4,A5)  CCALLSFSUB5(MNEVAL,mneval,DOUBLE,DOUBLE,PDOUBLE,PINT,DOUBLE,A1,A2,A3,A4,A5)
0068
0069 PROTOCCALLSFSUB6(MNEXCM,mnexcm,ROUTINE,STRING,DOUBLEV,INT,PINT,ROUTINE)
0070 #define MNEXCM(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(MNEXCM,mnexcm,ROUTINE,STRING,DOUBLEV,INT,PINT,ROUTINE,A1,A2,A3,A4,A5,A6)
0071
0072 PROTOCCALLSFSUB1(MNEXIN,mnexin,PDOUBLE)
0073 #define MNEXIN(A1)  CCALLSFSUB1(MNEXIN,mnexin,PDOUBLE,A1)
0074
0075 PROTOCCALLSFSUB2(MNFIXP,mnfixp,INT,PINT)
0076 #define MNFIXP(A1,A2)  CCALLSFSUB2(MNFIXP,mnfixp,INT,PINT,A1,A2)
0077
0078 PROTOCCALLSFSUB1(MNFREE,mnfree,INT)
0079 #define MNFREE(A1)  CCALLSFSUB1(MNFREE,mnfree,INT,A1)
0080
0081 PROTOCCALLSFSUB2(MNGRAD,mngrad,DOUBLE,DOUBLE)
0082 #define MNGRAD(A1,A2)  CCALLSFSUB2(MNGRAD,mngrad,DOUBLE,DOUBLE,A1,A2)
0083
0084 PROTOCCALLSFSUB2(MNHELP,mnhelp,STRING,INT)
0085 #define MNHELP(A1,A2)  CCALLSFSUB2(MNHELP,mnhelp,STRING,INT,A1,A2)
0086
0087 PROTOCCALLSFSUB2(MNHES1,mnhes1,DOUBLE,DOUBLE)
0088 #define MNHES1(A1,A2)  CCALLSFSUB2(MNHES1,mnhes1,DOUBLE,DOUBLE,A1,A2)
0089
0090 PROTOCCALLSFSUB2(MNHESS,mnhess,DOUBLE,DOUBLE)
0091 #define MNHESS(A1,A2)  CCALLSFSUB2(MNHESS,mnhess,DOUBLE,DOUBLE,A1,A2)
0092
0093 PROTOCCALLSFSUB2(MNIMPR,mnimpr,DOUBLE,DOUBLE)
0094 #define MNIMPR(A1,A2)  CCALLSFSUB2(MNIMPR,mnimpr,DOUBLE,DOUBLE,A1,A2)
0095
0096 PROTOCCALLSFSUB1(MNINEX,mninex,DOUBLEV)
0097 #define MNINEX(A1)  CCALLSFSUB1(MNINEX,mninex,DOUBLEV,A1)
0098
0099 PROTOCCALLSFSUB3(MNINIT,mninit,INT,INT,INT)
0100 #define MNINIT(A1,A2,A3)  CCALLSFSUB3(MNINIT,mninit,INT,INT,INT,A1,A2,A3)
0101
0102 PROTOCCALLSFSUB2(MNINPU,mninpu,INT,PINT)
0103 #define MNINPU(A1,A2)  CCALLSFSUB2(MNINPU,mninpu,INT,PINT,A1,A2)
0104
0105 PROTOCCALLSFSUB2(MNINTR,mnintr,ROUTINE,ROUTINE)
0106 #define MNINTR(A1,A2)  CCALLSFSUB2(MNINTR,mnintr,ROUTINE,ROUTINE,A1,A2)
0107
0108 PROTOCCALLSFSUB2(MNLIMS,mnlims,DOUBLE,DOUBLE)
0109 #define MNLIMS(A1,A2)  CCALLSFSUB2(MNLIMS,mnlims,DOUBLE,DOUBLE,A1,A2)
0110
0111 PROTOCCALLSFSUB7(MNLINE,mnline,DOUBLE,DOUBLEV,DOUBLE,DOUBLEV,DOUBLE,DOUBLE,DOUBLE)
0112 #define MNLINE(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(MNLINE,mnline,DOUBLE,DOUBLEV,DOUBLE,DOUBLEV,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7)
0113
0114 PROTOCCALLSFSUB1(MNMATU,mnmatu,INT)
0115 #define MNMATU(A1)  CCALLSFSUB1(MNMATU,mnmatu,INT,A1)
0116
0117 PROTOCCALLSFSUB2(MNMIGR,mnmigr,DOUBLE,DOUBLE)
0118 #define MNMIGR(A1,A2)  CCALLSFSUB2(MNMIGR,mnmigr,DOUBLE,DOUBLE,A1,A2)
0119
0120 PROTOCCALLSFSUB2(MNMNOS,mnmnos,DOUBLE,DOUBLE)
0121 #define MNMNOS(A1,A2)  CCALLSFSUB2(MNMNOS,mnmnos,DOUBLE,DOUBLE,A1,A2)
0122
0123 PROTOCCALLSFSUB6(MNMNOT,mnmnot,DOUBLE,INT,INT,DOUBLE,DOUBLE,DOUBLE)
0124 #define MNMNOT(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(MNMNOT,mnmnot,DOUBLE,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6)
0125
0126 PROTOCCALLSFSUB7(MNPARM,mnparm,INT,STRING,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PINT)
0127 #define MNPARM(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(MNPARM,mnparm,INT,STRING,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PINT,A1,A2,A3,A4,A5,A6,A7)
0128
0129 PROTOCCALLSFSUB2(MNPARS,mnpars,BYTE,PINT)
0130 #define MNPARS(A1,A2)  CCALLSFSUB2(MNPARS,mnpars,BYTE,PINT,A1,A2)
0131
0132 PROTOCCALLSFSUB5(MNPFIT,mnpfit,DOUBLEV,DOUBLEV,INT,PDOUBLE,PDOUBLE)
0133 #define MNPFIT(A1,A2,A3,A4,A5)  CCALLSFSUB5(MNPFIT,mnpfit,DOUBLEV,DOUBLEV,INT,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5)
0134
0135 PROTOCCALLSFSUB3(MNPINT,mnpint,PDOUBLE,INT,PDOUBLE)
0136 #define MNPINT(A1,A2,A3)  CCALLSFSUB3(MNPINT,mnpint,PDOUBLE,INT,PDOUBLE,A1,A2,A3)
0137
0138 PROTOCCALLSFSUB7(MNPLOT,mnplot,PDOUBLE,PDOUBLE,PSTRINGV,INT,INT,INT,INT)
0139 #define MNPLOT(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(MNPLOT,mnplot,PDOUBLE,PDOUBLE,PSTRINGV,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7)
0140
0141 PROTOCCALLSFSUB7(MNPOUT,mnpout,INT,PSTRING,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PINT)
0142 #define MNPOUT(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(MNPOUT,mnpout,INT,PSTRING,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PINT,A1,A2,A3,A4,A5,A6,A7)
0143
0144 PROTOCCALLSFSUB2(MNPRIN,mnprin,INT,DOUBLE)
0145 #define MNPRIN(A1,A2)  CCALLSFSUB2(MNPRIN,mnprin,INT,DOUBLE,A1,A2)
0146
0147 PROTOCCALLSFSUB0(MNPSDF,mnpsdf)
0148 #define MNPSDF() CCALLSFSUB0(MNPSDF,mnpsdf)
0149
0150 PROTOCCALLSFSUB5(MNRAZZ,mnrazz,DOUBLE,DOUBLEV,PDOUBLE,PINT,PINT)
0151 #define MNRAZZ(A1,A2,A3,A4,A5)  CCALLSFSUB5(MNRAZZ,mnrazz,DOUBLE,DOUBLEV,PDOUBLE,PINT,PINT,A1,A2,A3,A4,A5)
0152
0153 PROTOCCALLSFSUB4(MNREAD,mnread,DOUBLE,INT,PINT,DOUBLE)
0154 #define MNREAD(A1,A2,A3,A4)  CCALLSFSUB4(MNREAD,mnread,DOUBLE,INT,PINT,DOUBLE,A1,A2,A3,A4)
0155
0156 PROTOCCALLSFSUB2(MNRN15,mnrn15,PDOUBLE,PINT)
0157 #define MNRN15(A1,A2)  CCALLSFSUB2(MNRN15,mnrn15,PDOUBLE,PINT,A1,A2)
0158
0159 PROTOCCALLSFSUB1(MNRSET,mnrset,INT)
0160 #define MNRSET(A1)  CCALLSFSUB1(MNRSET,mnrset,INT,A1)
0161
0162 PROTOCCALLSFSUB0(MNSAVE,mnsave)
0163 #define MNSAVE() CCALLSFSUB0(MNSAVE,mnsave)
0164
0165 PROTOCCALLSFSUB2(MNSCAN,mnscan,DOUBLE,DOUBLE)
0166 #define MNSCAN(A1,A2)  CCALLSFSUB2(MNSCAN,mnscan,DOUBLE,DOUBLE,A1,A2)
0167
0168 PROTOCCALLSFSUB2(MNSEEK,mnseek,DOUBLE,DOUBLE)
0169 #define MNSEEK(A1,A2)  CCALLSFSUB2(MNSEEK,mnseek,DOUBLE,DOUBLE,A1,A2)
0170
0171 PROTOCCALLSFSUB2(MNSET,mnset,DOUBLE,DOUBLE)
0172 #define MNSET(A1,A2)  CCALLSFSUB2(MNSET,mnset,DOUBLE,DOUBLE,A1,A2)
0173
0174 PROTOCCALLSFSUB1(MNSETI,mnseti,STRING)
0175 #define MNSETI(A1)  CCALLSFSUB1(MNSETI,mnseti,STRING,A1)
0176
0177 PROTOCCALLSFSUB2(MNSIMP,mnsimp,DOUBLE,DOUBLE)
0178 #define MNSIMP(A1,A2)  CCALLSFSUB2(MNSIMP,mnsimp,DOUBLE,DOUBLE,A1,A2)
0179
0180 PROTOCCALLSFSUB6(MNSTAT,mnstat,PDOUBLE,PDOUBLE,PDOUBLE,PINT,PINT,PINT)
0181 #define MNSTAT(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(MNSTAT,mnstat,PDOUBLE,PDOUBLE,PDOUBLE,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6)
0182
0183 PROTOCCALLSFSUB2(MNSTIN,mnstin,BYTE,PINT)
0184 #define MNSTIN(A1,A2)  CCALLSFSUB2(MNSTIN,mnstin,BYTE,PINT,A1,A2)
0185
0186 PROTOCCALLSFSUB2(MNTINY,mntiny,DOUBLE,PDOUBLE)
0187 #define MNTINY(A1,A2)  CCALLSFSUB2(MNTINY,mntiny,DOUBLE,PDOUBLE,A1,A2)
0188
0189 PROTOCCALLSFSUB5(MNVERT,mnvert,PDOUBLE,INT,INT,INT,PINT)
0190 #define MNVERT(A1,A2,A3,A4,A5)  CCALLSFSUB5(MNVERT,mnvert,PDOUBLE,INT,INT,INT,PINT,A1,A2,A3,A4,A5)
0191
0192 PROTOCCALLSFSUB3(MNWARN,mnwarn,BYTE,BYTE,BYTE)
0193 #define MNWARN(A1,A2,A3)  CCALLSFSUB3(MNWARN,mnwarn,BYTE,BYTE,BYTE,A1,A2,A3)
0194
0195 PROTOCCALLSFSUB0(MNWERR,mnwerr)
0196 #define MNWERR() CCALLSFSUB0(MNWERR,mnwerr)
0197
0198 PROTOCCALLSFSUB0(STAND,stand)
0199 #define STAND() CCALLSFSUB0(STAND,stand)
0200 #ifdef __cplusplus
0201 } /* extern "C" */
0202 #endif
0203
0204 #endif /* #ifndef _MINUIT_H */