source: Sophya/trunk/SophyaExt/CodeMinuit/cfortran/higz.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: 10.9 KB
RevLine 
[2403]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.