source: Sophya/trunk/SophyaExt/CodeMinuit/cfortran/minuit.h@ 2864

Last change on this file since 2864 was 2403, checked in by cmv, 22 years ago

Creation du module de code source de MINUIT (CERNLIB) extrait par CMV

cmv 11/06/2003
File size: 8.3 KB
Line 
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
8PROTOCCALLSFFUN1(LOGICAL,MNUNPT,mnunpt,BYTE)
9#define MNUNPT(A2) CCALLSFFUN1(MNUNPT,mnunpt,BYTE,A2)
10
11PROTOCCALLSFSUB2(MINUIT,minuit,ROUTINE,ROUTINE)
12#define MINUIT(A1,A2) CCALLSFSUB2(MINUIT,minuit,ROUTINE,ROUTINE,A1,A2)
13
14PROTOCCALLSFSUB2(MNAMIN,mnamin,DOUBLE,DOUBLE)
15#define MNAMIN(A1,A2) CCALLSFSUB2(MNAMIN,mnamin,DOUBLE,DOUBLE,A1,A2)
16
17PROTOCCALLSFSUB7(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
20PROTOCCALLSFSUB4(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
23PROTOCCALLSFSUB0(MNCLER,mncler)
24#define MNCLER() CCALLSFSUB0(MNCLER,mncler)
25
26PROTOCCALLSFSUB5(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
29PROTOCCALLSFSUB4(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
32PROTOCCALLSFSUB8(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
35PROTOCCALLSFSUB9(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
38PROTOCCALLSFSUB4(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
41PROTOCCALLSFSUB2(MNCUVE,mncuve,DOUBLE,DOUBLE)
42#define MNCUVE(A1,A2) CCALLSFSUB2(MNCUVE,mncuve,DOUBLE,DOUBLE,A1,A2)
43
44PROTOCCALLSFSUB2(MNDERI,mnderi,DOUBLE,DOUBLE)
45#define MNDERI(A1,A2) CCALLSFSUB2(MNDERI,mnderi,DOUBLE,DOUBLE,A1,A2)
46
47PROTOCCALLSFSUB3(MNDXDI,mndxdi,DOUBLE,INT,PDOUBLE)
48#define MNDXDI(A1,A2,A3) CCALLSFSUB3(MNDXDI,mndxdi,DOUBLE,INT,PDOUBLE,A1,A2,A3)
49
50PROTOCCALLSFSUB7(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
53PROTOCCALLSFSUB2(MNEMAT,mnemat,PDOUBLE,INT)
54#define MNEMAT(A1,A2) CCALLSFSUB2(MNEMAT,mnemat,PDOUBLE,INT,A1,A2)
55
56PROTOCCALLSFSUB5(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
59PROTOCCALLSFSUB5(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
62PROTOCCALLSFSUB6(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
65PROTOCCALLSFSUB1(MNEXIN,mnexin,PDOUBLE)
66#define MNEXIN(A1) CCALLSFSUB1(MNEXIN,mnexin,PDOUBLE,A1)
67
68PROTOCCALLSFSUB2(MNFIXP,mnfixp,INT,PINT)
69#define MNFIXP(A1,A2) CCALLSFSUB2(MNFIXP,mnfixp,INT,PINT,A1,A2)
70
71PROTOCCALLSFSUB1(MNFREE,mnfree,INT)
72#define MNFREE(A1) CCALLSFSUB1(MNFREE,mnfree,INT,A1)
73
74PROTOCCALLSFSUB2(MNGRAD,mngrad,DOUBLE,DOUBLE)
75#define MNGRAD(A1,A2) CCALLSFSUB2(MNGRAD,mngrad,DOUBLE,DOUBLE,A1,A2)
76
77PROTOCCALLSFSUB2(MNHELP,mnhelp,STRING,INT)
78#define MNHELP(A1,A2) CCALLSFSUB2(MNHELP,mnhelp,STRING,INT,A1,A2)
79
80PROTOCCALLSFSUB2(MNHES1,mnhes1,DOUBLE,DOUBLE)
81#define MNHES1(A1,A2) CCALLSFSUB2(MNHES1,mnhes1,DOUBLE,DOUBLE,A1,A2)
82
83PROTOCCALLSFSUB2(MNHESS,mnhess,DOUBLE,DOUBLE)
84#define MNHESS(A1,A2) CCALLSFSUB2(MNHESS,mnhess,DOUBLE,DOUBLE,A1,A2)
85
86PROTOCCALLSFSUB2(MNIMPR,mnimpr,DOUBLE,DOUBLE)
87#define MNIMPR(A1,A2) CCALLSFSUB2(MNIMPR,mnimpr,DOUBLE,DOUBLE,A1,A2)
88
89PROTOCCALLSFSUB1(MNINEX,mninex,DOUBLEV)
90#define MNINEX(A1) CCALLSFSUB1(MNINEX,mninex,DOUBLEV,A1)
91
92PROTOCCALLSFSUB3(MNINIT,mninit,INT,INT,INT)
93#define MNINIT(A1,A2,A3) CCALLSFSUB3(MNINIT,mninit,INT,INT,INT,A1,A2,A3)
94
95PROTOCCALLSFSUB2(MNINPU,mninpu,INT,PINT)
96#define MNINPU(A1,A2) CCALLSFSUB2(MNINPU,mninpu,INT,PINT,A1,A2)
97
98PROTOCCALLSFSUB2(MNINTR,mnintr,ROUTINE,ROUTINE)
99#define MNINTR(A1,A2) CCALLSFSUB2(MNINTR,mnintr,ROUTINE,ROUTINE,A1,A2)
100
101PROTOCCALLSFSUB2(MNLIMS,mnlims,DOUBLE,DOUBLE)
102#define MNLIMS(A1,A2) CCALLSFSUB2(MNLIMS,mnlims,DOUBLE,DOUBLE,A1,A2)
103
104PROTOCCALLSFSUB7(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
107PROTOCCALLSFSUB1(MNMATU,mnmatu,INT)
108#define MNMATU(A1) CCALLSFSUB1(MNMATU,mnmatu,INT,A1)
109
110PROTOCCALLSFSUB2(MNMIGR,mnmigr,DOUBLE,DOUBLE)
111#define MNMIGR(A1,A2) CCALLSFSUB2(MNMIGR,mnmigr,DOUBLE,DOUBLE,A1,A2)
112
113PROTOCCALLSFSUB2(MNMNOS,mnmnos,DOUBLE,DOUBLE)
114#define MNMNOS(A1,A2) CCALLSFSUB2(MNMNOS,mnmnos,DOUBLE,DOUBLE,A1,A2)
115
116PROTOCCALLSFSUB6(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
119PROTOCCALLSFSUB7(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
122PROTOCCALLSFSUB2(MNPARS,mnpars,BYTE,PINT)
123#define MNPARS(A1,A2) CCALLSFSUB2(MNPARS,mnpars,BYTE,PINT,A1,A2)
124
125PROTOCCALLSFSUB5(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
128PROTOCCALLSFSUB3(MNPINT,mnpint,PDOUBLE,INT,PDOUBLE)
129#define MNPINT(A1,A2,A3) CCALLSFSUB3(MNPINT,mnpint,PDOUBLE,INT,PDOUBLE,A1,A2,A3)
130
131PROTOCCALLSFSUB7(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
134PROTOCCALLSFSUB7(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
137PROTOCCALLSFSUB2(MNPRIN,mnprin,INT,DOUBLE)
138#define MNPRIN(A1,A2) CCALLSFSUB2(MNPRIN,mnprin,INT,DOUBLE,A1,A2)
139
140PROTOCCALLSFSUB0(MNPSDF,mnpsdf)
141#define MNPSDF() CCALLSFSUB0(MNPSDF,mnpsdf)
142
143PROTOCCALLSFSUB5(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
146PROTOCCALLSFSUB4(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
149PROTOCCALLSFSUB2(MNRN15,mnrn15,PDOUBLE,PINT)
150#define MNRN15(A1,A2) CCALLSFSUB2(MNRN15,mnrn15,PDOUBLE,PINT,A1,A2)
151
152PROTOCCALLSFSUB1(MNRSET,mnrset,INT)
153#define MNRSET(A1) CCALLSFSUB1(MNRSET,mnrset,INT,A1)
154
155PROTOCCALLSFSUB0(MNSAVE,mnsave)
156#define MNSAVE() CCALLSFSUB0(MNSAVE,mnsave)
157
158PROTOCCALLSFSUB2(MNSCAN,mnscan,DOUBLE,DOUBLE)
159#define MNSCAN(A1,A2) CCALLSFSUB2(MNSCAN,mnscan,DOUBLE,DOUBLE,A1,A2)
160
161PROTOCCALLSFSUB2(MNSEEK,mnseek,DOUBLE,DOUBLE)
162#define MNSEEK(A1,A2) CCALLSFSUB2(MNSEEK,mnseek,DOUBLE,DOUBLE,A1,A2)
163
164PROTOCCALLSFSUB2(MNSET,mnset,DOUBLE,DOUBLE)
165#define MNSET(A1,A2) CCALLSFSUB2(MNSET,mnset,DOUBLE,DOUBLE,A1,A2)
166
167PROTOCCALLSFSUB1(MNSETI,mnseti,STRING)
168#define MNSETI(A1) CCALLSFSUB1(MNSETI,mnseti,STRING,A1)
169
170PROTOCCALLSFSUB2(MNSIMP,mnsimp,DOUBLE,DOUBLE)
171#define MNSIMP(A1,A2) CCALLSFSUB2(MNSIMP,mnsimp,DOUBLE,DOUBLE,A1,A2)
172
173PROTOCCALLSFSUB6(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
176PROTOCCALLSFSUB2(MNSTIN,mnstin,BYTE,PINT)
177#define MNSTIN(A1,A2) CCALLSFSUB2(MNSTIN,mnstin,BYTE,PINT,A1,A2)
178
179PROTOCCALLSFSUB2(MNTINY,mntiny,DOUBLE,PDOUBLE)
180#define MNTINY(A1,A2) CCALLSFSUB2(MNTINY,mntiny,DOUBLE,PDOUBLE,A1,A2)
181
182PROTOCCALLSFSUB5(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
185PROTOCCALLSFSUB3(MNWARN,mnwarn,BYTE,BYTE,BYTE)
186#define MNWARN(A1,A2,A3) CCALLSFSUB3(MNWARN,mnwarn,BYTE,BYTE,BYTE,A1,A2,A3)
187
188PROTOCCALLSFSUB0(MNWERR,mnwerr)
189#define MNWERR() CCALLSFSUB0(MNWERR,mnwerr)
190
191PROTOCCALLSFSUB0(STAND,stand)
192#define STAND() CCALLSFSUB0(STAND,stand)
Note: See TracBrowser for help on using the repository browser.