source: Sophya/trunk/SophyaExt/CodeMinuit/cfortran/jetset74.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: 13.2 KB
Line 
1PROTOCCALLSFFUN2(INT,KLU,klu,INT,INT)
2#define KLU(A2,A3) CCALLSFFUN2(KLU,klu,INT,INT,A2,A3)
3
4PROTOCCALLSFFUN2(FLOAT,PLU,plu,INT,INT)
5#define PLU(A2,A3) CCALLSFFUN2(PLU,plu,INT,INT,A2,A3)
6
7PROTOCCALLSFFUN4(FLOAT,PYCTQ2,pyctq2,INT,INT,FLOAT,FLOAT)
8#define PYCTQ2(A2,A3,A4,A5) CCALLSFFUN4(PYCTQ2,pyctq2,INT,INT,FLOAT,FLOAT,A2,A3,A4,A5)
9
10PROTOCCALLSFFUN1(DOUBLE,PYDILN,pydiln,DOUBLE)
11#define PYDILN(A2) CCALLSFFUN1(PYDILN,pydiln,DOUBLE,A2)
12
13PROTOCCALLSFFUN1(INT,LUCHGE,luchge,INT)
14#define LUCHGE(A2) CCALLSFFUN1(LUCHGE,luchge,INT,A2)
15
16PROTOCCALLSFFUN1(INT,LUCOMP,lucomp,INT)
17#define LUCOMP(A2) CCALLSFFUN1(LUCOMP,lucomp,INT,A2)
18
19PROTOCCALLSFFUN1(FLOAT,PYGAMM,pygamm,FLOAT)
20#define PYGAMM(A2) CCALLSFFUN1(PYGAMM,pygamm,FLOAT,A2)
21
22PROTOCCALLSFFUN3(FLOAT,PYHFTH,pyhfth,FLOAT,FLOAT,FLOAT)
23#define PYHFTH(A2,A3,A4) CCALLSFFUN3(PYHFTH,pyhfth,FLOAT,FLOAT,FLOAT,A2,A3,A4)
24
25PROTOCCALLSFFUN3(FLOAT,PYSPEN,pyspen,FLOAT,FLOAT,INT)
26#define PYSPEN(A2,A3,A4) CCALLSFFUN3(PYSPEN,pyspen,FLOAT,FLOAT,INT,A2,A3,A4)
27
28PROTOCCALLSFFUN2(DOUBLE,RKDOT,rkdot,DOUBLEV,DOUBLEV)
29#define RKDOT(A2,A3) CCALLSFFUN2(RKDOT,rkdot,DOUBLEV,DOUBLEV,A2,A3)
30
31PROTOCCALLSFFUN1(DOUBLE,RKRAND,rkrand,INT)
32#define RKRAND(A2) CCALLSFFUN1(RKRAND,rkrand,INT,A2)
33
34PROTOCCALLSFFUN6(COMPLEX,RKZF,rkzf,INT,DOUBLEV,DOUBLEV,DOUBLE,INT,DOUBLEV)
35#define RKZF(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(RKZF,rkzf,INT,DOUBLEV,DOUBLEV,DOUBLE,INT,DOUBLEV,A2,A3,A4,A5,A6,A7)
36
37PROTOCCALLSFFUN3(COMPLEX,RKZPR,rkzpr,INT,DOUBLEV,DOUBLEV)
38#define RKZPR(A2,A3,A4) CCALLSFFUN3(RKZPR,rkzpr,INT,DOUBLEV,DOUBLEV,A2,A3,A4)
39
40PROTOCCALLSFFUN4(COMPLEX,RKZSF,rkzsf,INT,DOUBLEV,INT,DOUBLEV)
41#define RKZSF(A2,A3,A4,A5) CCALLSFFUN4(RKZSF,rkzsf,INT,DOUBLEV,INT,DOUBLEV,A2,A3,A4,A5)
42
43PROTOCCALLSFFUN1(FLOAT,RLU,rlu,INT)
44#define RLU(A2) CCALLSFFUN1(RLU,rlu,INT,A2)
45
46PROTOCCALLSFFUN1(FLOAT,ULALEM,ulalem,FLOAT)
47#define ULALEM(A2) CCALLSFFUN1(ULALEM,ulalem,FLOAT,A2)
48
49PROTOCCALLSFFUN1(FLOAT,ULALPS,ulalps,FLOAT)
50#define ULALPS(A2) CCALLSFFUN1(ULALPS,ulalps,FLOAT,A2)
51
52PROTOCCALLSFFUN2(FLOAT,ULANGL,ulangl,FLOAT,FLOAT)
53#define ULANGL(A2,A3) CCALLSFFUN2(ULANGL,ulangl,FLOAT,FLOAT,A2,A3)
54
55PROTOCCALLSFFUN1(FLOAT,ULMASS,ulmass,INT)
56#define ULMASS(A2) CCALLSFFUN1(ULMASS,ulmass,INT,A2)
57
58PROTOCCALLSFSUB5(LU1ENT,lu1ent,INT,INT,FLOAT,FLOAT,FLOAT)
59#define LU1ENT(A1,A2,A3,A4,A5) CCALLSFSUB5(LU1ENT,lu1ent,INT,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
60
61PROTOCCALLSFSUB4(LU2ENT,lu2ent,INT,INT,INT,FLOAT)
62#define LU2ENT(A1,A2,A3,A4) CCALLSFSUB4(LU2ENT,lu2ent,INT,INT,INT,FLOAT,A1,A2,A3,A4)
63
64PROTOCCALLSFSUB7(LU3ENT,lu3ent,INT,INT,INT,INT,FLOAT,FLOAT,FLOAT)
65#define LU3ENT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(LU3ENT,lu3ent,INT,INT,INT,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7)
66
67PROTOCCALLSFSUB11(LU4ENT,lu4ent,INT,INT,INT,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
68#define LU4ENT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(LU4ENT,lu4ent,INT,INT,INT,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
69
70PROTOCCALLSFSUB1(LUBOEI,luboei,INT)
71#define LUBOEI(A1) CCALLSFSUB1(LUBOEI,luboei,INT,A1)
72
73PROTOCCALLSFSUB1(LUCELL,lucell,PINT)
74#define LUCELL(A1) CCALLSFSUB1(LUCELL,lucell,PINT,A1)
75
76PROTOCCALLSFSUB1(LUCLUS,luclus,PINT)
77#define LUCLUS(A1) CCALLSFSUB1(LUCLUS,luclus,PINT,A1)
78
79PROTOCCALLSFSUB1(LUDECY,ludecy,INT)
80#define LUDECY(A1) CCALLSFSUB1(LUDECY,ludecy,INT,A1)
81
82PROTOCCALLSFSUB1(LUEDIT,luedit,INT)
83#define LUEDIT(A1) CCALLSFSUB1(LUEDIT,luedit,INT,A1)
84
85PROTOCCALLSFSUB2(LUEEVT,lueevt,INT,FLOAT)
86#define LUEEVT(A1,A2) CCALLSFSUB2(LUEEVT,lueevt,INT,FLOAT,A1,A2)
87
88PROTOCCALLSFSUB2(LUERRM,luerrm,INT,BYTE)
89#define LUERRM(A1,A2) CCALLSFSUB2(LUERRM,luerrm,INT,BYTE,A1,A2)
90
91PROTOCCALLSFSUB0(LUEXEC,luexec)
92#define LUEXEC() CCALLSFSUB0(LUEXEC,luexec)
93
94PROTOCCALLSFSUB4(LUFOWO,lufowo,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
95#define LUFOWO(A1,A2,A3,A4) CCALLSFSUB4(LUFOWO,lufowo,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4)
96
97PROTOCCALLSFSUB1(LUGIVE,lugive,BYTE)
98#define LUGIVE(A1) CCALLSFSUB1(LUGIVE,lugive,BYTE,A1)
99
100PROTOCCALLSFSUB1(LUHEPC,luhepc,INT)
101#define LUHEPC(A1) CCALLSFSUB1(LUHEPC,luhepc,INT,A1)
102
103PROTOCCALLSFSUB1(LUINDF,luindf,INT)
104#define LUINDF(A1) CCALLSFSUB1(LUINDF,luindf,INT,A1)
105
106PROTOCCALLSFSUB2(LUJMAS,lujmas,PFLOAT,PFLOAT)
107#define LUJMAS(A1,A2) CCALLSFSUB2(LUJMAS,lujmas,PFLOAT,PFLOAT,A1,A2)
108
109PROTOCCALLSFSUB2(LUJOIN,lujoin,INT,INTV)
110#define LUJOIN(A1,A2) CCALLSFSUB2(LUJOIN,lujoin,INT,INTV,A1,A2)
111
112PROTOCCALLSFSUB4(LUKFDI,lukfdi,INT,INT,PINT,PINT)
113#define LUKFDI(A1,A2,A3,A4) CCALLSFSUB4(LUKFDI,lukfdi,INT,INT,PINT,PINT,A1,A2,A3,A4)
114
115PROTOCCALLSFSUB1(LULIST,lulist,INT)
116#define LULIST(A1) CCALLSFSUB1(LULIST,lulist,INT,A1)
117
118PROTOCCALLSFSUB0(LULOGO,lulogo)
119#define LULOGO() CCALLSFSUB0(LULOGO,lulogo)
120
121PROTOCCALLSFSUB2(LUNAME,luname,INT,PBYTE)
122#define LUNAME(A1,A2) CCALLSFSUB2(LUNAME,luname,INT,PBYTE,A1,A2)
123
124PROTOCCALLSFSUB2(LUONIA,luonia,INT,FLOAT)
125#define LUONIA(A1,A2) CCALLSFSUB2(LUONIA,luonia,INT,FLOAT,A1,A2)
126
127PROTOCCALLSFSUB1(LUPREP,luprep,INT)
128#define LUPREP(A1) CCALLSFSUB1(LUPREP,luprep,INT,A1)
129
130PROTOCCALLSFSUB3(LUPTDI,luptdi,INT,PFLOAT,PFLOAT)
131#define LUPTDI(A1,A2,A3) CCALLSFSUB3(LUPTDI,luptdi,INT,PFLOAT,PFLOAT,A1,A2,A3)
132
133PROTOCCALLSFSUB6(LURADK,luradk,FLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
134#define LURADK(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(LURADK,luradk,FLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
135
136PROTOCCALLSFSUB7(LUDBRB,ludbrb,INT,INT,FLOAT,FLOAT,DOUBLE,DOUBLE,DOUBLE)
137#define LUDBRB(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(LUDBRB,ludbrb,INT,INT,FLOAT,FLOAT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7)
138
139PROTOCCALLSFSUB5(LUROBO,lurobo,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
140#define LUROBO(A1,A2,A3,A4,A5) CCALLSFSUB5(LUROBO,lurobo,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
141
142PROTOCCALLSFSUB3(LUSHOW,lushow,INT,INT,FLOAT)
143#define LUSHOW(A1,A2,A3) CCALLSFSUB3(LUSHOW,lushow,INT,INT,FLOAT,A1,A2,A3)
144
145PROTOCCALLSFSUB2(LUSPHE,lusphe,PFLOAT,PFLOAT)
146#define LUSPHE(A1,A2) CCALLSFSUB2(LUSPHE,lusphe,PFLOAT,PFLOAT,A1,A2)
147
148PROTOCCALLSFSUB1(LUSTRF,lustrf,INT)
149#define LUSTRF(A1) CCALLSFSUB1(LUSTRF,lustrf,INT,A1)
150
151PROTOCCALLSFSUB1(LUTABU,lutabu,INT)
152#define LUTABU(A1) CCALLSFSUB1(LUTABU,lutabu,INT,A1)
153
154PROTOCCALLSFSUB4(LUTAUD,lutaud,INT,INT,INT,PINT)
155#define LUTAUD(A1,A2,A3,A4) CCALLSFSUB4(LUTAUD,lutaud,INT,INT,INT,PINT,A1,A2,A3,A4)
156
157PROTOCCALLSFSUB1(LUTEST,lutest,INT)
158#define LUTEST(A1) CCALLSFSUB1(LUTEST,lutest,INT,A1)
159
160PROTOCCALLSFSUB2(LUTHRU,luthru,PFLOAT,PFLOAT)
161#define LUTHRU(A1,A2) CCALLSFSUB2(LUTHRU,luthru,PFLOAT,PFLOAT,A1,A2)
162
163PROTOCCALLSFSUB2(LUUPDA,luupda,INT,INT)
164#define LUUPDA(A1,A2) CCALLSFSUB2(LUUPDA,luupda,INT,INT,A1,A2)
165
166PROTOCCALLSFSUB6(LUX3JT,lux3jt,PINT,FLOAT,INT,FLOAT,PFLOAT,PFLOAT)
167#define LUX3JT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(LUX3JT,lux3jt,PINT,FLOAT,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
168
169PROTOCCALLSFSUB10(LUX4JT,lux4jt,PINT,FLOAT,INT,FLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
170#define LUX4JT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(LUX4JT,lux4jt,PINT,FLOAT,INT,FLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
171
172PROTOCCALLSFSUB7(LUXDIF,luxdif,INT,INT,INT,FLOAT,PFLOAT,PFLOAT,PFLOAT)
173#define LUXDIF(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(LUXDIF,luxdif,INT,INT,INT,FLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
174
175PROTOCCALLSFSUB3(LUXJET,luxjet,FLOAT,PINT,PFLOAT)
176#define LUXJET(A1,A2,A3) CCALLSFSUB3(LUXJET,luxjet,FLOAT,PINT,PFLOAT,A1,A2,A3)
177
178PROTOCCALLSFSUB4(LUXKFL,luxkfl,INT,FLOAT,FLOAT,PINT)
179#define LUXKFL(A1,A2,A3,A4) CCALLSFSUB4(LUXKFL,luxkfl,INT,FLOAT,FLOAT,PINT,A1,A2,A3,A4)
180
181PROTOCCALLSFSUB3(LUXTOT,luxtot,INT,FLOAT,PFLOAT)
182#define LUXTOT(A1,A2,A3) CCALLSFSUB3(LUXTOT,luxtot,INT,FLOAT,PFLOAT,A1,A2,A3)
183
184PROTOCCALLSFSUB4(LUZDIS,luzdis,INT,INT,FLOAT,PFLOAT)
185#define LUZDIS(A1,A2,A3,A4) CCALLSFSUB4(LUZDIS,luzdis,INT,INT,FLOAT,PFLOAT,A1,A2,A3,A4)
186
187PROTOCCALLSFSUB2(PDFSET,pdfset,PSTRINGV,PDOUBLE)
188#define PDFSET(A1,A2) CCALLSFSUB2(PDFSET,pdfset,PSTRINGV,PDOUBLE,A1,A2)
189
190PROTOCCALLSFSUB0(PYDIFF,pydiff)
191#define PYDIFF() CCALLSFSUB0(PYDIFF,pydiff)
192
193PROTOCCALLSFSUB0(PYDOCU,pydocu)
194#define PYDOCU() CCALLSFSUB0(PYDOCU,pydocu)
195
196PROTOCCALLSFSUB0(PYEVNT,pyevnt)
197#define PYEVNT() CCALLSFSUB0(PYEVNT,pyevnt)
198
199PROTOCCALLSFSUB1(PYEVWT,pyevwt,PFLOAT)
200#define PYEVWT(A1) CCALLSFSUB1(PYEVWT,pyevwt,PFLOAT,A1)
201
202PROTOCCALLSFSUB1(PYFRAM,pyfram,INT)
203#define PYFRAM(A1) CCALLSFSUB1(PYFRAM,pyfram,INT,A1)
204
205PROTOCCALLSFSUB4(PYI3AU,pyi3au,FLOAT,FLOAT,PFLOAT,PFLOAT)
206#define PYI3AU(A1,A2,A3,A4) CCALLSFSUB4(PYI3AU,pyi3au,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4)
207
208PROTOCCALLSFSUB4(PYINIT,pyinit,STRING,STRING,STRING,FLOAT)
209#define PYINIT(A1,A2,A3,A4) CCALLSFSUB4(PYINIT,pyinit,STRING,STRING,STRING,FLOAT,A1,A2,A3,A4)
210
211PROTOCCALLSFSUB1(PYINKI,pyinki,INT)
212#define PYINKI(A1) CCALLSFSUB1(PYINKI,pyinki,INT,A1)
213
214PROTOCCALLSFSUB0(PYINPR,pyinpr)
215#define PYINPR() CCALLSFSUB0(PYINPR,pyinpr)
216
217PROTOCCALLSFSUB0(PYINRE,pyinre)
218#define PYINRE() CCALLSFSUB0(PYINRE,pyinre)
219
220PROTOCCALLSFSUB1(PYKCUT,pykcut,PINT)
221#define PYKCUT(A1) CCALLSFSUB1(PYKCUT,pykcut,PINT,A1)
222
223PROTOCCALLSFSUB1(PYKLIM,pyklim,INT)
224#define PYKLIM(A1) CCALLSFSUB1(PYKLIM,pyklim,INT,A1)
225
226PROTOCCALLSFSUB3(PYKMAP,pykmap,INT,INT,FLOAT)
227#define PYKMAP(A1,A2,A3) CCALLSFSUB3(PYKMAP,pykmap,INT,INT,FLOAT,A1,A2,A3)
228
229PROTOCCALLSFSUB0(PYMAXI,pymaxi)
230#define PYMAXI() CCALLSFSUB0(PYMAXI,pymaxi)
231
232PROTOCCALLSFSUB1(PYMULT,pymult,INT)
233#define PYMULT(A1) CCALLSFSUB1(PYMULT,pymult,INT,A1)
234
235PROTOCCALLSFSUB7(PYOFSH,pyofsh,INT,INT,INT,INT,FLOAT,PFLOAT,PFLOAT)
236#define PYOFSH(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(PYOFSH,pyofsh,INT,INT,INT,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
237
238PROTOCCALLSFSUB1(PYPILE,pypile,INT)
239#define PYPILE(A1) CCALLSFSUB1(PYPILE,pypile,INT,A1)
240
241PROTOCCALLSFSUB1(PYQQBH,pyqqbh,PFLOAT)
242#define PYQQBH(A1) CCALLSFSUB1(PYQQBH,pyqqbh,PFLOAT,A1)
243
244PROTOCCALLSFSUB0(PYRAND,pyrand)
245#define PYRAND() CCALLSFSUB0(PYRAND,pyrand)
246
247PROTOCCALLSFSUB2(PYREMN,pyremn,INT,INT)
248#define PYREMN(A1,A2) CCALLSFSUB2(PYREMN,pyremn,INT,INT,A1,A2)
249
250PROTOCCALLSFSUB0(PYRESD,pyresd)
251#define PYRESD() CCALLSFSUB0(PYRESD,pyresd)
252
253PROTOCCALLSFSUB2(PYSAVE,pysave,INT,PINT)
254#define PYSAVE(A1,A2) CCALLSFSUB2(PYSAVE,pysave,INT,PINT,A1,A2)
255
256PROTOCCALLSFSUB0(PYSCAT,pyscat)
257#define PYSCAT() CCALLSFSUB0(PYSCAT,pyscat)
258
259PROTOCCALLSFSUB2(PYSIGH,pysigh,PINT,PFLOAT)
260#define PYSIGH(A1,A2) CCALLSFSUB2(PYSIGH,pysigh,PINT,PFLOAT,A1,A2)
261
262PROTOCCALLSFSUB4(PYSPLI,pyspli,INT,INT,PINT,PINT)
263#define PYSPLI(A1,A2,A3,A4) CCALLSFSUB4(PYSPLI,pyspli,INT,INT,PINT,PINT,A1,A2,A3,A4)
264
265PROTOCCALLSFSUB2(PYSSPA,pysspa,INT,INT)
266#define PYSSPA(A1,A2) CCALLSFSUB2(PYSSPA,pysspa,INT,INT,A1,A2)
267
268PROTOCCALLSFSUB3(PYSTAG,pystag,FLOAT,FLOAT,PFLOAT)
269#define PYSTAG(A1,A2,A3) CCALLSFSUB3(PYSTAG,pystag,FLOAT,FLOAT,PFLOAT,A1,A2,A3)
270
271PROTOCCALLSFSUB1(PYSTAT,pystat,INT)
272#define PYSTAT(A1) CCALLSFSUB1(PYSTAT,pystat,INT,A1)
273
274PROTOCCALLSFSUB3(PYSTEL,pystel,FLOAT,FLOAT,PFLOAT)
275#define PYSTEL(A1,A2,A3) CCALLSFSUB3(PYSTEL,pystel,FLOAT,FLOAT,PFLOAT,A1,A2,A3)
276
277PROTOCCALLSFSUB4(PYSTFL,pystfl,INT,FLOAT,FLOAT,PFLOAT)
278#define PYSTFL(A1,A2,A3,A4) CCALLSFSUB4(PYSTFL,pystfl,INT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4)
279
280PROTOCCALLSFSUB4(PYSTFU,pystfu,INT,FLOAT,FLOAT,PFLOAT)
281#define PYSTFU(A1,A2,A3,A4) CCALLSFSUB4(PYSTFU,pystfu,INT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4)
282
283PROTOCCALLSFSUB3(PYSTGA,pystga,FLOAT,FLOAT,PFLOAT)
284#define PYSTGA(A1,A2,A3) CCALLSFSUB3(PYSTGA,pystga,FLOAT,FLOAT,PFLOAT,A1,A2,A3)
285
286PROTOCCALLSFSUB6(PYSTGS,pystgs,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,PDOUBLE)
287#define PYSTGS(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(PYSTGS,pystgs,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,PDOUBLE,A1,A2,A3,A4,A5,A6)
288
289PROTOCCALLSFSUB6(PYSTHG,pysthg,INT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT)
290#define PYSTHG(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(PYSTHG,pysthg,INT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
291
292PROTOCCALLSFSUB3(PYSTPI,pystpi,FLOAT,FLOAT,PFLOAT)
293#define PYSTPI(A1,A2,A3) CCALLSFSUB3(PYSTPI,pystpi,FLOAT,FLOAT,PFLOAT,A1,A2,A3)
294
295PROTOCCALLSFSUB3(PYSTPR,pystpr,FLOAT,FLOAT,PFLOAT)
296#define PYSTPR(A1,A2,A3) CCALLSFSUB3(PYSTPR,pystpr,FLOAT,FLOAT,PFLOAT,A1,A2,A3)
297
298PROTOCCALLSFSUB1(PYTEST,pytest,INT)
299#define PYTEST(A1) CCALLSFSUB1(PYTEST,pytest,INT,A1)
300
301PROTOCCALLSFSUB2(PYUPEV,pyupev,INT,PFLOAT)
302#define PYUPEV(A1,A2) CCALLSFSUB2(PYUPEV,pyupev,INT,PFLOAT,A1,A2)
303
304PROTOCCALLSFSUB3(PYUPIN,pyupin,INT,STRING,FLOAT)
305#define PYUPIN(A1,A2,A3) CCALLSFSUB3(PYUPIN,pyupin,INT,STRING,FLOAT,A1,A2,A3)
306
307PROTOCCALLSFSUB4(PYWAUX,pywaux,INT,FLOAT,FLOAT,PFLOAT)
308#define PYWAUX(A1,A2,A3,A4) CCALLSFSUB4(PYWAUX,pywaux,INT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4)
309
310PROTOCCALLSFSUB4(PYWIDT,pywidt,INT,FLOAT,PFLOAT,PFLOAT)
311#define PYWIDT(A1,A2,A3,A4) CCALLSFSUB4(PYWIDT,pywidt,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4)
312
313PROTOCCALLSFSUB0(PYXTOT,pyxtot)
314#define PYXTOT() CCALLSFSUB0(PYXTOT,pyxtot)
315
316PROTOCCALLSFSUB8(RKBBV,rkbbv,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,INT,PFLOAT)
317#define RKBBV(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(RKBBV,rkbbv,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
318
319PROTOCCALLSFSUB6(RKHLPK,rkhlpk,INT,PINT,PINT,PINT,PINT,PINT)
320#define RKHLPK(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(RKHLPK,rkhlpk,INT,PINT,PINT,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6)
321
322PROTOCCALLSFSUB2(RLUGET,rluget,INT,INT)
323#define RLUGET(A1,A2) CCALLSFSUB2(RLUGET,rluget,INT,INT,A1,A2)
324
325PROTOCCALLSFSUB2(RLUSET,rluset,INT,INT)
326#define RLUSET(A1,A2) CCALLSFSUB2(RLUSET,rluset,INT,INT,A1,A2)
327
328PROTOCCALLSFSUB11(STRUCTM,structm,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE)
329#define STRUCTM(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(STRUCTM,structm,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
Note: See TracBrowser for help on using the repository browser.