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

Last change on this file 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.