source: Sophya/trunk/SophyaExt/CodeMinuit/cfortran/higz.h@ 3359

Last change on this file since 3359 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: 10.9 KB
Line 
1PROTOCCALLSFSUB1(IACWK,iacwk,INT)
2#define IACWK(A1) CCALLSFSUB1(IACWK,iacwk,INT,A1)
3
4PROTOCCALLSFSUB8(ICA,ica,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,PINT,STRING)
5#define ICA(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(ICA,ica,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,PINT,STRING,A1,A2,A3,A4,A5,A6,A7,A8)
6
7PROTOCCALLSFSUB0(ICLKS,iclks)
8#define ICLKS() CCALLSFSUB0(ICLKS,iclks)
9
10PROTOCCALLSFSUB2(ICLRWK,iclrwk,INT,INT)
11#define ICLRWK(A1,A2) CCALLSFSUB2(ICLRWK,iclrwk,INT,INT,A1,A2)
12
13PROTOCCALLSFSUB1(ICLWK,iclwk,INT)
14#define ICLWK(A1) CCALLSFSUB1(ICLWK,iclwk,INT,A1)
15
16PROTOCCALLSFSUB1(IDAWK,idawk,INT)
17#define IDAWK(A1) CCALLSFSUB1(IDAWK,idawk,INT,A1)
18
19PROTOCCALLSFSUB3(IFA,ifa,INT,FLOATV,FLOATV)
20#define IFA(A1,A2,A3) CCALLSFSUB3(IFA,ifa,INT,FLOATV,FLOATV,A1,A2,A3)
21
22PROTOCCALLSFSUB4(IFA3,ifa3,INT,FLOATV,FLOATV,FLOATV)
23#define IFA3(A1,A2,A3,A4) CCALLSFSUB4(IFA3,ifa3,INT,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4)
24
25PROTOCCALLSFSUB6(IGARC,igarc,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
26#define IGARC(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(IGARC,igarc,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6)
27
28PROTOCCALLSFSUB8(IGAXIS,igaxis,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,PINT,STRING)
29#define IGAXIS(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(IGAXIS,igaxis,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,PINT,STRING,A1,A2,A3,A4,A5,A6,A7,A8)
30
31PROTOCCALLSFSUB4(IGBOX,igbox,FLOAT,FLOAT,FLOAT,FLOAT)
32#define IGBOX(A1,A2,A3,A4) CCALLSFSUB4(IGBOX,igbox,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
33
34PROTOCCALLSFSUB9(IGCOLM,igcolm,FLOAT,FLOAT,FLOAT,FLOAT,PINT,INTV,FLOAT,FLOAT,STRING)
35#define IGCOLM(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(IGCOLM,igcolm,FLOAT,FLOAT,FLOAT,FLOAT,PINT,INTV,FLOAT,FLOAT,STRING,A1,A2,A3,A4,A5,A6,A7,A8,A9)
36
37PROTOCCALLSFSUB0(IGEND,igend)
38#define IGEND() CCALLSFSUB0(IGEND,igend)
39
40PROTOCCALLSFSUB4(IGHIST,ighist,INT,FLOATV,FLOATV,STRING)
41#define IGHIST(A1,A2,A3,A4) CCALLSFSUB4(IGHIST,ighist,INT,FLOATV,FLOATV,STRING,A1,A2,A3,A4)
42
43PROTOCCALLSFSUB1(IGINIT,iginit,INT)
44#define IGINIT(A1) CCALLSFSUB1(IGINIT,iginit,INT,A1)
45
46PROTOCCALLSFSUB2(IGLBL,iglbl,INT,STRINGV)
47#define IGLBL(A1,A2) CCALLSFSUB2(IGLBL,iglbl,INT,STRINGV,A1,A2)
48
49PROTOCCALLSFSUB7(IGLOC,igloc,INT,PINT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
50#define IGLOC(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(IGLOC,igloc,INT,PINT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
51
52PROTOCCALLSFSUB8(IGLOC2,igloc2,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,INT,STRING)
53#define IGLOC2(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(IGLOC2,igloc2,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,INT,STRING,A1,A2,A3,A4,A5,A6,A7,A8)
54
55PROTOCCALLSFSUB14(IGMENU,igmenu,INT,STRING,PFLOAT,PFLOAT,PFLOAT,PFLOAT,INT,STRINGV,INT,STRINGV,STRINGV,PSTRINGV,PINT,STRING)
56#define IGMENU(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14) CCALLSFSUB14(IGMENU,igmenu,INT,STRING,PFLOAT,PFLOAT,PFLOAT,PFLOAT,INT,STRINGV,INT,STRINGV,STRINGV,PSTRINGV,PINT,STRING,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)
57
58PROTOCCALLSFSUB4(IGMESS,igmess,INT,STRINGV,STRING,STRING)
59#define IGMESS(A1,A2,A3,A4) CCALLSFSUB4(IGMESS,igmess,INT,STRINGV,STRING,STRING,A1,A2,A3,A4)
60
61PROTOCCALLSFSUB2(IGMETA,igmeta,INT,INT)
62#define IGMETA(A1,A2) CCALLSFSUB2(IGMETA,igmeta,INT,INT,A1,A2)
63
64PROTOCCALLSFSUB8(IGPAVE,igpave,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,STRING)
65#define IGPAVE(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(IGPAVE,igpave,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,STRING,A1,A2,A3,A4,A5,A6,A7,A8)
66
67PROTOCCALLSFSUB7(IGPICK,igpick,INT,FLOAT,FLOAT,PINT,PSTRINGV,PINT,STRING)
68#define IGPICK(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(IGPICK,igpick,INT,FLOAT,FLOAT,PINT,PSTRINGV,PINT,STRING,A1,A2,A3,A4,A5,A6,A7)
69
70PROTOCCALLSFSUB4(IGPID,igpid,INT,STRING,INT,STRING)
71#define IGPID(A1,A2,A3,A4) CCALLSFSUB4(IGPID,igpid,INT,STRING,INT,STRING,A1,A2,A3,A4)
72
73PROTOCCALLSFSUB9(IGPIE,igpie,FLOAT,FLOAT,FLOAT,INT,FLOATV,STRING,INTV,INTV,INTV)
74#define IGPIE(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(IGPIE,igpie,FLOAT,FLOAT,FLOAT,INT,FLOATV,STRING,INTV,INTV,INTV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
75
76PROTOCCALLSFSUB2(IGQ,igq,STRING,PFLOAT)
77#define IGQ(A1,A2) CCALLSFSUB2(IGQ,igq,STRING,PFLOAT,A1,A2)
78
79PROTOCCALLSFSUB3(IGQWK,igqwk,INT,STRING,FLOATV)
80#define IGQWK(A1,A2,A3) CCALLSFSUB3(IGQWK,igqwk,INT,STRING,FLOATV,A1,A2,A3)
81
82PROTOCCALLSFSUB4(IGRAPH,igraph,INT,FLOATV,FLOATV,STRING)
83#define IGRAPH(A1,A2,A3,A4) CCALLSFSUB4(IGRAPH,igraph,INT,FLOATV,FLOATV,STRING,A1,A2,A3,A4)
84
85PROTOCCALLSFSUB2(IGRNG,igrng,FLOAT,FLOAT)
86#define IGRNG(A1,A2) CCALLSFSUB2(IGRNG,igrng,FLOAT,FLOAT,A1,A2)
87
88PROTOCCALLSFSUB1(IGRSIZ,igrsiz,INT)
89#define IGRSIZ(A1) CCALLSFSUB1(IGRSIZ,igrsiz,INT,A1)
90
91PROTOCCALLSFSUB6(IGRTOH,igrtoh,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,PFLOAT)
92#define IGRTOH(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(IGRTOH,igrtoh,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
93
94PROTOCCALLSFSUB6(IGHTOR,ightor,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,PFLOAT)
95#define IGHTOR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(IGHTOR,ightor,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
96
97PROTOCCALLSFSUB1(IGSA,igsa,INT)
98#define IGSA(A1) CCALLSFSUB1(IGSA,igsa,INT,A1)
99
100PROTOCCALLSFSUB2(IGSET,igset,STRING,FLOAT)
101#define IGSET(A1,A2) CCALLSFSUB2(IGSET,igset,STRING,FLOAT,A1,A2)
102
103PROTOCCALLSFSUB1(IGSG,igsg,INT)
104#define IGSG(A1) CCALLSFSUB1(IGSG,igsg,INT,A1)
105
106PROTOCCALLSFSUB2(IGSSE,igsse,INT,INT)
107#define IGSSE(A1,A2) CCALLSFSUB2(IGSSE,igsse,INT,INT,A1,A2)
108
109PROTOCCALLSFSUB6(IGTABL,igtabl,INT,INT,FLOATV,INT,FLOATV,STRING)
110#define IGTABL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(IGTABL,igtabl,INT,INT,FLOATV,INT,FLOATV,STRING,A1,A2,A3,A4,A5,A6)
111
112PROTOCCALLSFSUB0(IGTERM,igterm)
113#define IGTERM() CCALLSFSUB0(IGTERM,igterm)
114
115PROTOCCALLSFSUB6(IGTEXT,igtext,FLOAT,FLOAT,STRING,FLOAT,PFLOAT,STRING)
116#define IGTEXT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(IGTEXT,igtext,FLOAT,FLOAT,STRING,FLOAT,PFLOAT,STRING,A1,A2,A3,A4,A5,A6)
117
118PROTOCCALLSFSUB1(IGWKTY,igwkty,PINT)
119#define IGWKTY(A1) CCALLSFSUB1(IGWKTY,igwkty,PINT,A1)
120
121PROTOCCALLSFSUB7(IGXMES,igxmes,INT,INT,INT,INT,STRINGV,STRING,STRING)
122#define IGXMES(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(IGXMES,igxmes,INT,INT,INT,INT,STRINGV,STRING,STRING,A1,A2,A3,A4,A5,A6,A7)
123
124PROTOCCALLSFSUB1(IGZSET,igzset,STRING)
125#define IGZSET(A1) CCALLSFSUB1(IGZSET,igzset,STRING,A1)
126
127PROTOCCALLSFSUB1(IOPKS,iopks,INT)
128#define IOPKS(A1) CCALLSFSUB1(IOPKS,iopks,INT,A1)
129
130PROTOCCALLSFSUB3(IOPWK,iopwk,INT,INT,INT)
131#define IOPWK(A1,A2,A3) CCALLSFSUB3(IOPWK,iopwk,INT,INT,INT,A1,A2,A3)
132
133PROTOCCALLSFSUB3(IPL,ipl,INT,FLOATV,FLOATV)
134#define IPL(A1,A2,A3) CCALLSFSUB3(IPL,ipl,INT,FLOATV,FLOATV,A1,A2,A3)
135
136PROTOCCALLSFSUB4(IPL3,ipl3,INT,FLOATV,FLOATV,FLOATV)
137#define IPL3(A1,A2,A3,A4) CCALLSFSUB4(IPL3,ipl3,INT,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4)
138
139PROTOCCALLSFSUB3(IPM,ipm,INT,FLOATV,FLOATV)
140#define IPM(A1,A2,A3) CCALLSFSUB3(IPM,ipm,INT,FLOATV,FLOATV,A1,A2,A3)
141
142PROTOCCALLSFSUB4(IPM3,ipm3,INT,FLOATV,FLOATV,FLOATV)
143#define IPM3(A1,A2,A3,A4) CCALLSFSUB4(IPM3,ipm3,INT,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4)
144
145PROTOCCALLSFSUB6(IPM3ID,ipm3id,INT,FLOATV,FLOATV,FLOATV,INT,INTV)
146#define IPM3ID(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(IPM3ID,ipm3id,INT,FLOATV,FLOATV,FLOATV,INT,INTV,A1,A2,A3,A4,A5,A6)
147
148PROTOCCALLSFSUB9(IPM4ID,ipm4id,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOAT,FLOAT,INT,INTV)
149#define IPM4ID(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(IPM4ID,ipm4id,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOAT,FLOAT,INT,INTV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
150
151PROTOCCALLSFSUB5(IPMID,ipmid,INT,FLOATV,FLOATV,INT,INTV)
152#define IPMID(A1,A2,A3,A4,A5) CCALLSFSUB5(IPMID,ipmid,INT,FLOATV,FLOATV,INT,INTV,A1,A2,A3,A4,A5)
153
154PROTOCCALLSFSUB6(IRQLC,irqlc,INT,INT,INT,INT,FLOAT,FLOAT)
155#define IRQLC(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(IRQLC,irqlc,INT,INT,INT,INT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6)
156
157PROTOCCALLSFSUB5(IRQST,irqst,INT,INT,INT,INT,FLOAT)
158#define IRQST(A1,A2,A3,A4,A5) CCALLSFSUB5(IRQST,irqst,INT,INT,INT,INT,FLOAT,A1,A2,A3,A4,A5)
159
160PROTOCCALLSFSUB1(ISCHH,ischh,FLOAT)
161#define ISCHH(A1) CCALLSFSUB1(ISCHH,ischh,FLOAT,A1)
162
163PROTOCCALLSFSUB2(ISCHUP,ischup,FLOAT,FLOAT)
164#define ISCHUP(A1,A2) CCALLSFSUB2(ISCHUP,ischup,FLOAT,FLOAT,A1,A2)
165
166PROTOCCALLSFSUB1(ISCLIP,isclip,INT)
167#define ISCLIP(A1) CCALLSFSUB1(ISCLIP,isclip,INT,A1)
168
169PROTOCCALLSFSUB5(ISCR,iscr,INT,INT,FLOAT,FLOAT,FLOAT)
170#define ISCR(A1,A2,A3,A4,A5) CCALLSFSUB5(ISCR,iscr,INT,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
171
172PROTOCCALLSFSUB1(ISELNT,iselnt,INT)
173#define ISELNT(A1) CCALLSFSUB1(ISELNT,iselnt,INT,A1)
174
175PROTOCCALLSFSUB1(ISFACI,isfaci,INT)
176#define ISFACI(A1) CCALLSFSUB1(ISFACI,isfaci,INT,A1)
177
178PROTOCCALLSFSUB1(ISFAIS,isfais,INT)
179#define ISFAIS(A1) CCALLSFSUB1(ISFAIS,isfais,INT,A1)
180
181PROTOCCALLSFSUB1(ISFASI,isfasi,INT)
182#define ISFASI(A1) CCALLSFSUB1(ISFASI,isfasi,INT,A1)
183
184PROTOCCALLSFSUB1(ISLN,isln,INT)
185#define ISLN(A1) CCALLSFSUB1(ISLN,isln,INT,A1)
186
187PROTOCCALLSFSUB1(ISLWSC,islwsc,FLOAT)
188#define ISLWSC(A1) CCALLSFSUB1(ISLWSC,islwsc,FLOAT,A1)
189
190PROTOCCALLSFSUB1(ISMK,ismk,INT)
191#define ISMK(A1) CCALLSFSUB1(ISMK,ismk,INT,A1)
192
193PROTOCCALLSFSUB1(ISMKSC,ismksc,FLOAT)
194#define ISMKSC(A1) CCALLSFSUB1(ISMKSC,ismksc,FLOAT,A1)
195
196PROTOCCALLSFSUB1(ISPLCI,isplci,INT)
197#define ISPLCI(A1) CCALLSFSUB1(ISPLCI,isplci,INT,A1)
198
199PROTOCCALLSFSUB1(ISPMCI,ispmci,INT)
200#define ISPMCI(A1) CCALLSFSUB1(ISPMCI,ispmci,INT,A1)
201
202PROTOCCALLSFSUB2(ISTXAL,istxal,INT,INT)
203#define ISTXAL(A1,A2) CCALLSFSUB2(ISTXAL,istxal,INT,INT,A1,A2)
204
205PROTOCCALLSFSUB1(ISTXCI,istxci,INT)
206#define ISTXCI(A1) CCALLSFSUB1(ISTXCI,istxci,INT,A1)
207
208PROTOCCALLSFSUB2(ISTXFP,istxfp,INT,INT)
209#define ISTXFP(A1,A2) CCALLSFSUB2(ISTXFP,istxfp,INT,INT,A1,A2)
210
211PROTOCCALLSFSUB5(ISVP,isvp,INT,FLOAT,FLOAT,FLOAT,FLOAT)
212#define ISVP(A1,A2,A3,A4,A5) CCALLSFSUB5(ISVP,isvp,INT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
213
214PROTOCCALLSFSUB5(ISWKVP,iswkvp,INT,FLOAT,FLOAT,FLOAT,FLOAT)
215#define ISWKVP(A1,A2,A3,A4,A5) CCALLSFSUB5(ISWKVP,iswkvp,INT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
216
217PROTOCCALLSFSUB5(ISWKWN,iswkwn,INT,FLOAT,FLOAT,FLOAT,FLOAT)
218#define ISWKWN(A1,A2,A3,A4,A5) CCALLSFSUB5(ISWKWN,iswkwn,INT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
219
220PROTOCCALLSFSUB5(ISWN,iswn,INT,FLOAT,FLOAT,FLOAT,FLOAT)
221#define ISWN(A1,A2,A3,A4,A5) CCALLSFSUB5(ISWN,iswn,INT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
222
223PROTOCCALLSFSUB3(ITX,itx,FLOAT,FLOAT,STRING)
224#define ITX(A1,A2,A3) CCALLSFSUB3(ITX,itx,FLOAT,FLOAT,STRING,A1,A2,A3)
225
226PROTOCCALLSFSUB4(ITX3,itx3,FLOAT,FLOAT,FLOAT,STRING)
227#define ITX3(A1,A2,A3,A4) CCALLSFSUB4(ITX3,itx3,FLOAT,FLOAT,FLOAT,STRING,A1,A2,A3,A4)
228
229PROTOCCALLSFSUB2(IUWK,iuwk,INT,INT)
230#define IUWK(A1,A2) CCALLSFSUB2(IUWK,iuwk,INT,INT,A1,A2)
231
232PROTOCCALLSFSUB2(IZCTOI,izctoi,STRING,INT)
233#define IZCTOI(A1,A2) CCALLSFSUB2(IZCTOI,izctoi,STRING,INT,A1,A2)
234
235PROTOCCALLSFSUB2(IZCTOR,izctor,STRING,PFLOAT)
236#define IZCTOR(A1,A2) CCALLSFSUB2(IZCTOR,izctor,STRING,PFLOAT,A1,A2)
237
238PROTOCCALLSFSUB2(IZITOC,izitoc,INT,STRING)
239#define IZITOC(A1,A2) CCALLSFSUB2(IZITOC,izitoc,INT,STRING,A1,A2)
240
241PROTOCCALLSFSUB6(IZOPEN,izopen,INT,STRING,STRING,STRING,INT,INT)
242#define IZOPEN(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(IZOPEN,izopen,INT,STRING,STRING,STRING,INT,INT,A1,A2,A3,A4,A5,A6)
243
244PROTOCCALLSFSUB2(IZOUT,izout,STRING,INT)
245#define IZOUT(A1,A2) CCALLSFSUB2(IZOUT,izout,STRING,INT,A1,A2)
246
247PROTOCCALLSFSUB2(IZPICT,izpict,PSTRING,STRING)
248#define IZPICT(A1,A2) CCALLSFSUB2(IZPICT,izpict,PSTRING,STRING,A1,A2)
249
250PROTOCCALLSFSUB2(IZRTOC,izrtoc,FLOAT,PSTRING)
251#define IZRTOC(A1,A2) CCALLSFSUB2(IZRTOC,izrtoc,FLOAT,PSTRING,A1,A2)
Note: See TracBrowser for help on using the repository browser.