| [2403] | 1 | /*
|
|---|
| 2 | * Interface to minuit using cfortran.h
|
|---|
| 3 | *
|
|---|
| 4 | * Edit history:
|
|---|
| 5 | * G.Folger 12-Dec-94 change some to use ROUTINE for passing fcn/futil
|
|---|
| 6 | */
|
|---|
| 7 |
|
|---|
| 8 | PROTOCCALLSFFUN1(LOGICAL,MNUNPT,mnunpt,BYTE)
|
|---|
| 9 | #define MNUNPT(A2) CCALLSFFUN1(MNUNPT,mnunpt,BYTE,A2)
|
|---|
| 10 |
|
|---|
| 11 | PROTOCCALLSFSUB2(MINUIT,minuit,ROUTINE,ROUTINE)
|
|---|
| 12 | #define MINUIT(A1,A2) CCALLSFSUB2(MINUIT,minuit,ROUTINE,ROUTINE,A1,A2)
|
|---|
| 13 |
|
|---|
| 14 | PROTOCCALLSFSUB2(MNAMIN,mnamin,DOUBLE,DOUBLE)
|
|---|
| 15 | #define MNAMIN(A1,A2) CCALLSFSUB2(MNAMIN,mnamin,DOUBLE,DOUBLE,A1,A2)
|
|---|
| 16 |
|
|---|
| 17 | PROTOCCALLSFSUB7(MNBINS,mnbins,DOUBLE,DOUBLE,INT,PDOUBLE,PDOUBLE,PINT,PDOUBLE)
|
|---|
| 18 | #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)
|
|---|
| 19 |
|
|---|
| 20 | PROTOCCALLSFSUB4(MNCALF,mncalf,DOUBLE,DOUBLEV,PDOUBLE,DOUBLE)
|
|---|
| 21 | #define MNCALF(A1,A2,A3,A4) CCALLSFSUB4(MNCALF,mncalf,DOUBLE,DOUBLEV,PDOUBLE,DOUBLE,A1,A2,A3,A4)
|
|---|
| 22 |
|
|---|
| 23 | PROTOCCALLSFSUB0(MNCLER,mncler)
|
|---|
| 24 | #define MNCLER() CCALLSFSUB0(MNCLER,mncler)
|
|---|
| 25 |
|
|---|
| 26 | PROTOCCALLSFSUB5(MNCNTR,mncntr,DOUBLE,INT,INT,PINT,DOUBLE)
|
|---|
| 27 | #define MNCNTR(A1,A2,A3,A4,A5) CCALLSFSUB5(MNCNTR,mncntr,DOUBLE,INT,INT,PINT,DOUBLE,A1,A2,A3,A4,A5)
|
|---|
| 28 |
|
|---|
| 29 | PROTOCCALLSFSUB4(MNCOMD,mncomd,ROUTINE,STRING,PINT,ROUTINE)
|
|---|
| 30 | #define MNCOMD(A1,A2,A3,A4) CCALLSFSUB4(MNCOMD,mncomd,ROUTINE,STRING,PINT,ROUTINE,A1,A2,A3,A4)
|
|---|
| 31 |
|
|---|
| 32 | PROTOCCALLSFSUB8(MNCONT,mncont,ROUTINE,INT,INT,INT,PDOUBLE,PDOUBLE,PINT,ROUTINE)
|
|---|
| 33 | #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)
|
|---|
| 34 |
|
|---|
| 35 | PROTOCCALLSFSUB9(MNCRCK,mncrck,STRING,INT,PSTRING,PINT,INT,PDOUBLE,PINT,PINT,INT)
|
|---|
| 36 | #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)
|
|---|
| 37 |
|
|---|
| 38 | PROTOCCALLSFSUB4(MNCROS,mncros,DOUBLE,PDOUBLE,PINT,DOUBLE)
|
|---|
| 39 | #define MNCROS(A1,A2,A3,A4) CCALLSFSUB4(MNCROS,mncros,DOUBLE,PDOUBLE,PINT,DOUBLE,A1,A2,A3,A4)
|
|---|
| 40 |
|
|---|
| 41 | PROTOCCALLSFSUB2(MNCUVE,mncuve,DOUBLE,DOUBLE)
|
|---|
| 42 | #define MNCUVE(A1,A2) CCALLSFSUB2(MNCUVE,mncuve,DOUBLE,DOUBLE,A1,A2)
|
|---|
| 43 |
|
|---|
| 44 | PROTOCCALLSFSUB2(MNDERI,mnderi,DOUBLE,DOUBLE)
|
|---|
| 45 | #define MNDERI(A1,A2) CCALLSFSUB2(MNDERI,mnderi,DOUBLE,DOUBLE,A1,A2)
|
|---|
| 46 |
|
|---|
| 47 | PROTOCCALLSFSUB3(MNDXDI,mndxdi,DOUBLE,INT,PDOUBLE)
|
|---|
| 48 | #define MNDXDI(A1,A2,A3) CCALLSFSUB3(MNDXDI,mndxdi,DOUBLE,INT,PDOUBLE,A1,A2,A3)
|
|---|
| 49 |
|
|---|
| 50 | PROTOCCALLSFSUB7(MNEIG,mneig,PDOUBLE,INT,INT,INT,PDOUBLE,DOUBLE,PINT)
|
|---|
| 51 | #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)
|
|---|
| 52 |
|
|---|
| 53 | PROTOCCALLSFSUB2(MNEMAT,mnemat,PDOUBLE,INT)
|
|---|
| 54 | #define MNEMAT(A1,A2) CCALLSFSUB2(MNEMAT,mnemat,PDOUBLE,INT,A1,A2)
|
|---|
| 55 |
|
|---|
| 56 | PROTOCCALLSFSUB5(MNERRS,mnerrs,INT,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE)
|
|---|
| 57 | #define MNERRS(A1,A2,A3,A4,A5) CCALLSFSUB5(MNERRS,mnerrs,INT,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5)
|
|---|
| 58 |
|
|---|
| 59 | PROTOCCALLSFSUB5(MNEVAL,mneval,DOUBLE,DOUBLE,PDOUBLE,PINT,DOUBLE)
|
|---|
| 60 | #define MNEVAL(A1,A2,A3,A4,A5) CCALLSFSUB5(MNEVAL,mneval,DOUBLE,DOUBLE,PDOUBLE,PINT,DOUBLE,A1,A2,A3,A4,A5)
|
|---|
| 61 |
|
|---|
| 62 | PROTOCCALLSFSUB6(MNEXCM,mnexcm,ROUTINE,STRING,DOUBLEV,INT,PINT,ROUTINE)
|
|---|
| 63 | #define MNEXCM(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(MNEXCM,mnexcm,ROUTINE,STRING,DOUBLEV,INT,PINT,ROUTINE,A1,A2,A3,A4,A5,A6)
|
|---|
| 64 |
|
|---|
| 65 | PROTOCCALLSFSUB1(MNEXIN,mnexin,PDOUBLE)
|
|---|
| 66 | #define MNEXIN(A1) CCALLSFSUB1(MNEXIN,mnexin,PDOUBLE,A1)
|
|---|
| 67 |
|
|---|
| 68 | PROTOCCALLSFSUB2(MNFIXP,mnfixp,INT,PINT)
|
|---|
| 69 | #define MNFIXP(A1,A2) CCALLSFSUB2(MNFIXP,mnfixp,INT,PINT,A1,A2)
|
|---|
| 70 |
|
|---|
| 71 | PROTOCCALLSFSUB1(MNFREE,mnfree,INT)
|
|---|
| 72 | #define MNFREE(A1) CCALLSFSUB1(MNFREE,mnfree,INT,A1)
|
|---|
| 73 |
|
|---|
| 74 | PROTOCCALLSFSUB2(MNGRAD,mngrad,DOUBLE,DOUBLE)
|
|---|
| 75 | #define MNGRAD(A1,A2) CCALLSFSUB2(MNGRAD,mngrad,DOUBLE,DOUBLE,A1,A2)
|
|---|
| 76 |
|
|---|
| 77 | PROTOCCALLSFSUB2(MNHELP,mnhelp,STRING,INT)
|
|---|
| 78 | #define MNHELP(A1,A2) CCALLSFSUB2(MNHELP,mnhelp,STRING,INT,A1,A2)
|
|---|
| 79 |
|
|---|
| 80 | PROTOCCALLSFSUB2(MNHES1,mnhes1,DOUBLE,DOUBLE)
|
|---|
| 81 | #define MNHES1(A1,A2) CCALLSFSUB2(MNHES1,mnhes1,DOUBLE,DOUBLE,A1,A2)
|
|---|
| 82 |
|
|---|
| 83 | PROTOCCALLSFSUB2(MNHESS,mnhess,DOUBLE,DOUBLE)
|
|---|
| 84 | #define MNHESS(A1,A2) CCALLSFSUB2(MNHESS,mnhess,DOUBLE,DOUBLE,A1,A2)
|
|---|
| 85 |
|
|---|
| 86 | PROTOCCALLSFSUB2(MNIMPR,mnimpr,DOUBLE,DOUBLE)
|
|---|
| 87 | #define MNIMPR(A1,A2) CCALLSFSUB2(MNIMPR,mnimpr,DOUBLE,DOUBLE,A1,A2)
|
|---|
| 88 |
|
|---|
| 89 | PROTOCCALLSFSUB1(MNINEX,mninex,DOUBLEV)
|
|---|
| 90 | #define MNINEX(A1) CCALLSFSUB1(MNINEX,mninex,DOUBLEV,A1)
|
|---|
| 91 |
|
|---|
| 92 | PROTOCCALLSFSUB3(MNINIT,mninit,INT,INT,INT)
|
|---|
| 93 | #define MNINIT(A1,A2,A3) CCALLSFSUB3(MNINIT,mninit,INT,INT,INT,A1,A2,A3)
|
|---|
| 94 |
|
|---|
| 95 | PROTOCCALLSFSUB2(MNINPU,mninpu,INT,PINT)
|
|---|
| 96 | #define MNINPU(A1,A2) CCALLSFSUB2(MNINPU,mninpu,INT,PINT,A1,A2)
|
|---|
| 97 |
|
|---|
| 98 | PROTOCCALLSFSUB2(MNINTR,mnintr,ROUTINE,ROUTINE)
|
|---|
| 99 | #define MNINTR(A1,A2) CCALLSFSUB2(MNINTR,mnintr,ROUTINE,ROUTINE,A1,A2)
|
|---|
| 100 |
|
|---|
| 101 | PROTOCCALLSFSUB2(MNLIMS,mnlims,DOUBLE,DOUBLE)
|
|---|
| 102 | #define MNLIMS(A1,A2) CCALLSFSUB2(MNLIMS,mnlims,DOUBLE,DOUBLE,A1,A2)
|
|---|
| 103 |
|
|---|
| 104 | PROTOCCALLSFSUB7(MNLINE,mnline,DOUBLE,DOUBLEV,DOUBLE,DOUBLEV,DOUBLE,DOUBLE,DOUBLE)
|
|---|
| 105 | #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)
|
|---|
| 106 |
|
|---|
| 107 | PROTOCCALLSFSUB1(MNMATU,mnmatu,INT)
|
|---|
| 108 | #define MNMATU(A1) CCALLSFSUB1(MNMATU,mnmatu,INT,A1)
|
|---|
| 109 |
|
|---|
| 110 | PROTOCCALLSFSUB2(MNMIGR,mnmigr,DOUBLE,DOUBLE)
|
|---|
| 111 | #define MNMIGR(A1,A2) CCALLSFSUB2(MNMIGR,mnmigr,DOUBLE,DOUBLE,A1,A2)
|
|---|
| 112 |
|
|---|
| 113 | PROTOCCALLSFSUB2(MNMNOS,mnmnos,DOUBLE,DOUBLE)
|
|---|
| 114 | #define MNMNOS(A1,A2) CCALLSFSUB2(MNMNOS,mnmnos,DOUBLE,DOUBLE,A1,A2)
|
|---|
| 115 |
|
|---|
| 116 | PROTOCCALLSFSUB6(MNMNOT,mnmnot,DOUBLE,INT,INT,DOUBLE,DOUBLE,DOUBLE)
|
|---|
| 117 | #define MNMNOT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(MNMNOT,mnmnot,DOUBLE,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6)
|
|---|
| 118 |
|
|---|
| 119 | PROTOCCALLSFSUB7(MNPARM,mnparm,INT,STRING,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PINT)
|
|---|
| 120 | #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)
|
|---|
| 121 |
|
|---|
| 122 | PROTOCCALLSFSUB2(MNPARS,mnpars,BYTE,PINT)
|
|---|
| 123 | #define MNPARS(A1,A2) CCALLSFSUB2(MNPARS,mnpars,BYTE,PINT,A1,A2)
|
|---|
| 124 |
|
|---|
| 125 | PROTOCCALLSFSUB5(MNPFIT,mnpfit,DOUBLEV,DOUBLEV,INT,PDOUBLE,PDOUBLE)
|
|---|
| 126 | #define MNPFIT(A1,A2,A3,A4,A5) CCALLSFSUB5(MNPFIT,mnpfit,DOUBLEV,DOUBLEV,INT,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5)
|
|---|
| 127 |
|
|---|
| 128 | PROTOCCALLSFSUB3(MNPINT,mnpint,PDOUBLE,INT,PDOUBLE)
|
|---|
| 129 | #define MNPINT(A1,A2,A3) CCALLSFSUB3(MNPINT,mnpint,PDOUBLE,INT,PDOUBLE,A1,A2,A3)
|
|---|
| 130 |
|
|---|
| 131 | PROTOCCALLSFSUB7(MNPLOT,mnplot,PDOUBLE,PDOUBLE,PSTRINGV,INT,INT,INT,INT)
|
|---|
| 132 | #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)
|
|---|
| 133 |
|
|---|
| 134 | PROTOCCALLSFSUB7(MNPOUT,mnpout,INT,PSTRING,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PINT)
|
|---|
| 135 | #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)
|
|---|
| 136 |
|
|---|
| 137 | PROTOCCALLSFSUB2(MNPRIN,mnprin,INT,DOUBLE)
|
|---|
| 138 | #define MNPRIN(A1,A2) CCALLSFSUB2(MNPRIN,mnprin,INT,DOUBLE,A1,A2)
|
|---|
| 139 |
|
|---|
| 140 | PROTOCCALLSFSUB0(MNPSDF,mnpsdf)
|
|---|
| 141 | #define MNPSDF() CCALLSFSUB0(MNPSDF,mnpsdf)
|
|---|
| 142 |
|
|---|
| 143 | PROTOCCALLSFSUB5(MNRAZZ,mnrazz,DOUBLE,DOUBLEV,PDOUBLE,PINT,PINT)
|
|---|
| 144 | #define MNRAZZ(A1,A2,A3,A4,A5) CCALLSFSUB5(MNRAZZ,mnrazz,DOUBLE,DOUBLEV,PDOUBLE,PINT,PINT,A1,A2,A3,A4,A5)
|
|---|
| 145 |
|
|---|
| 146 | PROTOCCALLSFSUB4(MNREAD,mnread,DOUBLE,INT,PINT,DOUBLE)
|
|---|
| 147 | #define MNREAD(A1,A2,A3,A4) CCALLSFSUB4(MNREAD,mnread,DOUBLE,INT,PINT,DOUBLE,A1,A2,A3,A4)
|
|---|
| 148 |
|
|---|
| 149 | PROTOCCALLSFSUB2(MNRN15,mnrn15,PDOUBLE,PINT)
|
|---|
| 150 | #define MNRN15(A1,A2) CCALLSFSUB2(MNRN15,mnrn15,PDOUBLE,PINT,A1,A2)
|
|---|
| 151 |
|
|---|
| 152 | PROTOCCALLSFSUB1(MNRSET,mnrset,INT)
|
|---|
| 153 | #define MNRSET(A1) CCALLSFSUB1(MNRSET,mnrset,INT,A1)
|
|---|
| 154 |
|
|---|
| 155 | PROTOCCALLSFSUB0(MNSAVE,mnsave)
|
|---|
| 156 | #define MNSAVE() CCALLSFSUB0(MNSAVE,mnsave)
|
|---|
| 157 |
|
|---|
| 158 | PROTOCCALLSFSUB2(MNSCAN,mnscan,DOUBLE,DOUBLE)
|
|---|
| 159 | #define MNSCAN(A1,A2) CCALLSFSUB2(MNSCAN,mnscan,DOUBLE,DOUBLE,A1,A2)
|
|---|
| 160 |
|
|---|
| 161 | PROTOCCALLSFSUB2(MNSEEK,mnseek,DOUBLE,DOUBLE)
|
|---|
| 162 | #define MNSEEK(A1,A2) CCALLSFSUB2(MNSEEK,mnseek,DOUBLE,DOUBLE,A1,A2)
|
|---|
| 163 |
|
|---|
| 164 | PROTOCCALLSFSUB2(MNSET,mnset,DOUBLE,DOUBLE)
|
|---|
| 165 | #define MNSET(A1,A2) CCALLSFSUB2(MNSET,mnset,DOUBLE,DOUBLE,A1,A2)
|
|---|
| 166 |
|
|---|
| 167 | PROTOCCALLSFSUB1(MNSETI,mnseti,STRING)
|
|---|
| 168 | #define MNSETI(A1) CCALLSFSUB1(MNSETI,mnseti,STRING,A1)
|
|---|
| 169 |
|
|---|
| 170 | PROTOCCALLSFSUB2(MNSIMP,mnsimp,DOUBLE,DOUBLE)
|
|---|
| 171 | #define MNSIMP(A1,A2) CCALLSFSUB2(MNSIMP,mnsimp,DOUBLE,DOUBLE,A1,A2)
|
|---|
| 172 |
|
|---|
| 173 | PROTOCCALLSFSUB6(MNSTAT,mnstat,PDOUBLE,PDOUBLE,PDOUBLE,PINT,PINT,PINT)
|
|---|
| 174 | #define MNSTAT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(MNSTAT,mnstat,PDOUBLE,PDOUBLE,PDOUBLE,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6)
|
|---|
| 175 |
|
|---|
| 176 | PROTOCCALLSFSUB2(MNSTIN,mnstin,BYTE,PINT)
|
|---|
| 177 | #define MNSTIN(A1,A2) CCALLSFSUB2(MNSTIN,mnstin,BYTE,PINT,A1,A2)
|
|---|
| 178 |
|
|---|
| 179 | PROTOCCALLSFSUB2(MNTINY,mntiny,DOUBLE,PDOUBLE)
|
|---|
| 180 | #define MNTINY(A1,A2) CCALLSFSUB2(MNTINY,mntiny,DOUBLE,PDOUBLE,A1,A2)
|
|---|
| 181 |
|
|---|
| 182 | PROTOCCALLSFSUB5(MNVERT,mnvert,PDOUBLE,INT,INT,INT,PINT)
|
|---|
| 183 | #define MNVERT(A1,A2,A3,A4,A5) CCALLSFSUB5(MNVERT,mnvert,PDOUBLE,INT,INT,INT,PINT,A1,A2,A3,A4,A5)
|
|---|
| 184 |
|
|---|
| 185 | PROTOCCALLSFSUB3(MNWARN,mnwarn,BYTE,BYTE,BYTE)
|
|---|
| 186 | #define MNWARN(A1,A2,A3) CCALLSFSUB3(MNWARN,mnwarn,BYTE,BYTE,BYTE,A1,A2,A3)
|
|---|
| 187 |
|
|---|
| 188 | PROTOCCALLSFSUB0(MNWERR,mnwerr)
|
|---|
| 189 | #define MNWERR() CCALLSFSUB0(MNWERR,mnwerr)
|
|---|
| 190 |
|
|---|
| 191 | PROTOCCALLSFSUB0(STAND,stand)
|
|---|
| 192 | #define STAND() CCALLSFSUB0(STAND,stand)
|
|---|
![(please configure the [header_logo] section in trac.ini)](/PI/chrome/site/your_project_logo.png){kind=logo}
