/* * Interface to minuit using cfortran.h * * Edit history: * G.Folger 12-Dec-94 change some to use ROUTINE for passing fcn/futil */ PROTOCCALLSFFUN1(LOGICAL,MNUNPT,mnunpt,BYTE) #define MNUNPT(A2) CCALLSFFUN1(MNUNPT,mnunpt,BYTE,A2) #define MINUIT(A1,A2) CCALLSFSUB2(MINUIT,minuit,ROUTINE,ROUTINE,A1,A2) #define MNAMIN(A1,A2) CCALLSFSUB2(MNAMIN,mnamin,DOUBLE,DOUBLE,A1,A2) #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) #define MNCALF(A1,A2,A3,A4) CCALLSFSUB4(MNCALF,mncalf,DOUBLE,DOUBLEV,PDOUBLE,DOUBLE,A1,A2,A3,A4) #define MNCLER() CCALLSFSUB0(MNCLER,mncler) #define MNCNTR(A1,A2,A3,A4,A5) CCALLSFSUB5(MNCNTR,mncntr,DOUBLE,INT,INT,PINT,DOUBLE,A1,A2,A3,A4,A5) #define MNCOMD(A1,A2,A3,A4) CCALLSFSUB4(MNCOMD,mncomd,ROUTINE,STRING,PINT,ROUTINE,A1,A2,A3,A4) #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) #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) #define MNCROS(A1,A2,A3,A4) CCALLSFSUB4(MNCROS,mncros,DOUBLE,PDOUBLE,PINT,DOUBLE,A1,A2,A3,A4) #define MNCUVE(A1,A2) CCALLSFSUB2(MNCUVE,mncuve,DOUBLE,DOUBLE,A1,A2) #define MNDERI(A1,A2) CCALLSFSUB2(MNDERI,mnderi,DOUBLE,DOUBLE,A1,A2) #define MNDXDI(A1,A2,A3) CCALLSFSUB3(MNDXDI,mndxdi,DOUBLE,INT,PDOUBLE,A1,A2,A3) #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) #define MNEMAT(A1,A2) CCALLSFSUB2(MNEMAT,mnemat,PDOUBLE,INT,A1,A2) #define MNERRS(A1,A2,A3,A4,A5) CCALLSFSUB5(MNERRS,mnerrs,INT,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5) #define MNEVAL(A1,A2,A3,A4,A5) CCALLSFSUB5(MNEVAL,mneval,DOUBLE,DOUBLE,PDOUBLE,PINT,DOUBLE,A1,A2,A3,A4,A5) #define MNEXCM(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(MNEXCM,mnexcm,ROUTINE,STRING,DOUBLEV,INT,PINT,ROUTINE,A1,A2,A3,A4,A5,A6) #define MNEXIN(A1) CCALLSFSUB1(MNEXIN,mnexin,PDOUBLE,A1) #define MNFIXP(A1,A2) CCALLSFSUB2(MNFIXP,mnfixp,INT,PINT,A1,A2) #define MNFREE(A1) CCALLSFSUB1(MNFREE,mnfree,INT,A1) #define MNGRAD(A1,A2) CCALLSFSUB2(MNGRAD,mngrad,DOUBLE,DOUBLE,A1,A2) #define MNHELP(A1,A2) CCALLSFSUB2(MNHELP,mnhelp,STRING,INT,A1,A2) #define MNHES1(A1,A2) CCALLSFSUB2(MNHES1,mnhes1,DOUBLE,DOUBLE,A1,A2) #define MNHESS(A1,A2) CCALLSFSUB2(MNHESS,mnhess,DOUBLE,DOUBLE,A1,A2) #define MNIMPR(A1,A2) CCALLSFSUB2(MNIMPR,mnimpr,DOUBLE,DOUBLE,A1,A2) #define MNINEX(A1) CCALLSFSUB1(MNINEX,mninex,DOUBLEV,A1) #define MNINIT(A1,A2,A3) CCALLSFSUB3(MNINIT,mninit,INT,INT,INT,A1,A2,A3) #define MNINPU(A1,A2) CCALLSFSUB2(MNINPU,mninpu,INT,PINT,A1,A2) #define MNINTR(A1,A2) CCALLSFSUB2(MNINTR,mnintr,ROUTINE,ROUTINE,A1,A2) #define MNLIMS(A1,A2) CCALLSFSUB2(MNLIMS,mnlims,DOUBLE,DOUBLE,A1,A2) #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) #define MNMATU(A1) CCALLSFSUB1(MNMATU,mnmatu,INT,A1) #define MNMIGR(A1,A2) CCALLSFSUB2(MNMIGR,mnmigr,DOUBLE,DOUBLE,A1,A2) #define MNMNOS(A1,A2) CCALLSFSUB2(MNMNOS,mnmnos,DOUBLE,DOUBLE,A1,A2) #define MNMNOT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(MNMNOT,mnmnot,DOUBLE,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) #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) #define MNPARS(A1,A2) CCALLSFSUB2(MNPARS,mnpars,BYTE,PINT,A1,A2) #define MNPFIT(A1,A2,A3,A4,A5) CCALLSFSUB5(MNPFIT,mnpfit,DOUBLEV,DOUBLEV,INT,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5) #define MNPINT(A1,A2,A3) CCALLSFSUB3(MNPINT,mnpint,PDOUBLE,INT,PDOUBLE,A1,A2,A3) #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) #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) #define MNPRIN(A1,A2) CCALLSFSUB2(MNPRIN,mnprin,INT,DOUBLE,A1,A2) #define MNPSDF() CCALLSFSUB0(MNPSDF,mnpsdf) #define MNRAZZ(A1,A2,A3,A4,A5) CCALLSFSUB5(MNRAZZ,mnrazz,DOUBLE,DOUBLEV,PDOUBLE,PINT,PINT,A1,A2,A3,A4,A5) #define MNREAD(A1,A2,A3,A4) CCALLSFSUB4(MNREAD,mnread,DOUBLE,INT,PINT,DOUBLE,A1,A2,A3,A4) #define MNRN15(A1,A2) CCALLSFSUB2(MNRN15,mnrn15,PDOUBLE,PINT,A1,A2) #define MNRSET(A1) CCALLSFSUB1(MNRSET,mnrset,INT,A1) #define MNSAVE() CCALLSFSUB0(MNSAVE,mnsave) #define MNSCAN(A1,A2) CCALLSFSUB2(MNSCAN,mnscan,DOUBLE,DOUBLE,A1,A2) #define MNSEEK(A1,A2) CCALLSFSUB2(MNSEEK,mnseek,DOUBLE,DOUBLE,A1,A2) #define MNSET(A1,A2) CCALLSFSUB2(MNSET,mnset,DOUBLE,DOUBLE,A1,A2) #define MNSETI(A1) CCALLSFSUB1(MNSETI,mnseti,STRING,A1) #define MNSIMP(A1,A2) CCALLSFSUB2(MNSIMP,mnsimp,DOUBLE,DOUBLE,A1,A2) #define MNSTAT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(MNSTAT,mnstat,PDOUBLE,PDOUBLE,PDOUBLE,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6) #define MNSTIN(A1,A2) CCALLSFSUB2(MNSTIN,mnstin,BYTE,PINT,A1,A2) #define MNTINY(A1,A2) CCALLSFSUB2(MNTINY,mntiny,DOUBLE,PDOUBLE,A1,A2) #define MNVERT(A1,A2,A3,A4,A5) CCALLSFSUB5(MNVERT,mnvert,PDOUBLE,INT,INT,INT,PINT,A1,A2,A3,A4,A5) #define MNWARN(A1,A2,A3) CCALLSFSUB3(MNWARN,mnwarn,BYTE,BYTE,BYTE,A1,A2,A3) #define MNWERR() CCALLSFSUB0(MNWERR,mnwerr) #define STAND() CCALLSFSUB0(STAND,stand) PROTOCCALLSFSUB2(MINUIT,minuit,ROUTINE,ROUTINE) PROTOCCALLSFSUB2(MNAMIN,mnamin,DOUBLE,DOUBLE) PROTOCCALLSFSUB7(MNBINS,mnbins,DOUBLE,DOUBLE,INT,PDOUBLE,PDOUBLE,PINT,PDOUBLE) PROTOCCALLSFSUB4(MNCALF,mncalf,DOUBLE,DOUBLEV,PDOUBLE,DOUBLE) PROTOCCALLSFSUB0(MNCLER,mncler) PROTOCCALLSFSUB5(MNCNTR,mncntr,DOUBLE,INT,INT,PINT,DOUBLE) PROTOCCALLSFSUB4(MNCOMD,mncomd,ROUTINE,STRING,PINT,ROUTINE) PROTOCCALLSFSUB8(MNCONT,mncont,ROUTINE,INT,INT,INT,PDOUBLE,PDOUBLE,PINT,ROUTINE) PROTOCCALLSFSUB9(MNCRCK,mncrck,STRING,INT,PSTRING,PINT,INT,PDOUBLE,PINT,PINT,INT) PROTOCCALLSFSUB4(MNCROS,mncros,DOUBLE,PDOUBLE,PINT,DOUBLE) PROTOCCALLSFSUB2(MNCUVE,mncuve,DOUBLE,DOUBLE) PROTOCCALLSFSUB2(MNDERI,mnderi,DOUBLE,DOUBLE) PROTOCCALLSFSUB3(MNDXDI,mndxdi,DOUBLE,INT,PDOUBLE) PROTOCCALLSFSUB7(MNEIG,mneig,PDOUBLE,INT,INT,INT,PDOUBLE,DOUBLE,PINT) PROTOCCALLSFSUB2(MNEMAT,mnemat,PDOUBLE,INT) PROTOCCALLSFSUB5(MNERRS,mnerrs,INT,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE) PROTOCCALLSFSUB5(MNEVAL,mneval,DOUBLE,DOUBLE,PDOUBLE,PINT,DOUBLE) PROTOCCALLSFSUB6(MNEXCM,mnexcm,ROUTINE,STRING,DOUBLEV,INT,PINT,ROUTINE) PROTOCCALLSFSUB1(MNEXIN,mnexin,PDOUBLE) PROTOCCALLSFSUB2(MNFIXP,mnfixp,INT,PINT) PROTOCCALLSFSUB1(MNFREE,mnfree,INT) PROTOCCALLSFSUB2(MNGRAD,mngrad,DOUBLE,DOUBLE) PROTOCCALLSFSUB2(MNHELP,mnhelp,STRING,INT) PROTOCCALLSFSUB2(MNHES1,mnhes1,DOUBLE,DOUBLE) PROTOCCALLSFSUB2(MNHESS,mnhess,DOUBLE,DOUBLE) PROTOCCALLSFSUB2(MNIMPR,mnimpr,DOUBLE,DOUBLE) PROTOCCALLSFSUB1(MNINEX,mninex,DOUBLEV) PROTOCCALLSFSUB3(MNINIT,mninit,INT,INT,INT) PROTOCCALLSFSUB2(MNINPU,mninpu,INT,PINT) PROTOCCALLSFSUB2(MNINTR,mnintr,ROUTINE,ROUTINE) PROTOCCALLSFSUB2(MNLIMS,mnlims,DOUBLE,DOUBLE) PROTOCCALLSFSUB7(MNLINE,mnline,DOUBLE,DOUBLEV,DOUBLE,DOUBLEV,DOUBLE,DOUBLE,DOUBLE) PROTOCCALLSFSUB1(MNMATU,mnmatu,INT) PROTOCCALLSFSUB2(MNMIGR,mnmigr,DOUBLE,DOUBLE) PROTOCCALLSFSUB2(MNMNOS,mnmnos,DOUBLE,DOUBLE) PROTOCCALLSFSUB6(MNMNOT,mnmnot,DOUBLE,INT,INT,DOUBLE,DOUBLE,DOUBLE) PROTOCCALLSFSUB7(MNPARM,mnparm,INT,STRING,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PINT) PROTOCCALLSFSUB2(MNPARS,mnpars,BYTE,PINT) PROTOCCALLSFSUB5(MNPFIT,mnpfit,DOUBLEV,DOUBLEV,INT,PDOUBLE,PDOUBLE) PROTOCCALLSFSUB3(MNPINT,mnpint,PDOUBLE,INT,PDOUBLE) PROTOCCALLSFSUB7(MNPLOT,mnplot,PDOUBLE,PDOUBLE,PSTRINGV,INT,INT,INT,INT) PROTOCCALLSFSUB7(MNPOUT,mnpout,INT,PSTRING,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PINT) PROTOCCALLSFSUB2(MNPRIN,mnprin,INT,DOUBLE) PROTOCCALLSFSUB0(MNPSDF,mnpsdf) PROTOCCALLSFSUB5(MNRAZZ,mnrazz,DOUBLE,DOUBLEV,PDOUBLE,PINT,PINT) PROTOCCALLSFSUB4(MNREAD,mnread,DOUBLE,INT,PINT,DOUBLE) PROTOCCALLSFSUB2(MNRN15,mnrn15,PDOUBLE,PINT) PROTOCCALLSFSUB1(MNRSET,mnrset,INT) PROTOCCALLSFSUB0(MNSAVE,mnsave) PROTOCCALLSFSUB2(MNSCAN,mnscan,DOUBLE,DOUBLE) PROTOCCALLSFSUB2(MNSEEK,mnseek,DOUBLE,DOUBLE) PROTOCCALLSFSUB2(MNSET,mnset,DOUBLE,DOUBLE) PROTOCCALLSFSUB1(MNSETI,mnseti,STRING) PROTOCCALLSFSUB2(MNSIMP,mnsimp,DOUBLE,DOUBLE) PROTOCCALLSFSUB6(MNSTAT,mnstat,PDOUBLE,PDOUBLE,PDOUBLE,PINT,PINT,PINT) PROTOCCALLSFSUB2(MNSTIN,mnstin,BYTE,PINT) PROTOCCALLSFSUB2(MNTINY,mntiny,DOUBLE,PDOUBLE) PROTOCCALLSFSUB5(MNVERT,mnvert,PDOUBLE,INT,INT,INT,PINT) PROTOCCALLSFSUB3(MNWARN,mnwarn,BYTE,BYTE,BYTE) PROTOCCALLSFSUB0(MNWERR,mnwerr) PROTOCCALLSFSUB0(STAND,stand)