source: Sophya/trunk/SophyaExt/CodeMinuit/cfortran/hbook.h@ 2403

Last change on this file since 2403 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: 25.2 KB
Line 
1/*
2 Corrections:
3 14-Dec-98 OC The definition of HFITHN was wrong
4 11-Dec-98 OC mods in HUNPAK HUNPKE HREBIN: PFLOAT is now FLOATV
5 02-Feb-98 OC mods for HBNAME
6 30-Jan-98 OC HID1 HID2 were not correct
7 30-Jan-98 OC HRENDC added
8 15-Feb-94 GF HGIVE correct output args
9 HGIVEN idem
10 18-Feb-94 GF comment headers for routines with more than 10 Arguments
11 and break long lines by \ (for the VAX)
12 -------------above carried over from previous file on 15-Mar-94
13 11-Apr-94 GF remove ALL occurences of ZTRING (these are not used so far)
14 correct HOPEN, HROUT calls
15 21-Apr-94 GF restore PROTOCCALLSFFUNi lines for functions.
16 18-May-94 GF correct passing of external functions, must use ROUTINE
17 further comments kept in RCS/CVS
18 12-Apr-95 GF delete all non documented routines; this should give a more
19 version for this file.
20---------------------------------------
21*/
22
23PROTOCCALLSFSUB3(HARRAY,harray,INT,INT,PINT)
24#define HARRAY(A1,A2,A3) CCALLSFSUB3(HARRAY,harray,INT,INT,PINT,A1,A2,A3)
25
26PROTOCCALLSFSUB4(HBANDX,hbandx,INT,FLOAT,FLOAT,FLOAT)
27#define HBANDX(A1,A2,A3,A4) CCALLSFSUB4(HBANDX,hbandx,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
28
29PROTOCCALLSFSUB4(HBANDY,hbandy,INT,FLOAT,FLOAT,FLOAT)
30#define HBANDY(A1,A2,A3,A4) CCALLSFSUB4(HBANDY,hbandy,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
31
32PROTOCCALLSFSUB1(HBARX,hbarx,INT)
33#define HBARX(A1) CCALLSFSUB1(HBARX,hbarx,INT,A1)
34
35PROTOCCALLSFSUB1(HBARY,hbary,INT)
36#define HBARY(A1) CCALLSFSUB1(HBARY,hbary,INT,A1)
37
38PROTOCCALLSFSUB6(HBFUN1,hbfun1,INT,STRING,INT,FLOAT,FLOAT,ROUTINE)
39#define HBFUN1(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HBFUN1,hbfun1,INT,STRING,INT,FLOAT,FLOAT,ROUTINE,A1,A2,A3,A4,A5,A6)
40
41PROTOCCALLSFSUB9(HBFUN2,hbfun2,INT,STRING,INT,FLOAT,FLOAT,INT,FLOAT,FLOAT,ROUTINE)
42#define HBFUN2(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(HBFUN2,hbfun2,INT,STRING,INT,FLOAT,FLOAT,INT,FLOAT,FLOAT,ROUTINE,A1,A2,A3,A4,A5,A6,A7,A8,A9)
43
44PROTOCCALLSFSUB2(HBIGBI,hbigbi,INT,INT)
45#define HBIGBI(A1,A2) CCALLSFSUB2(HBIGBI,hbigbi,INT,INT,A1,A2)
46
47PROTOCCALLSFSUB2(HRENID,hrenid,INT,INT)
48#define HRENID(A1,A2) CCALLSFSUB2(HRENID,hrenid,INT,INT,A1,A2)
49
50PROTOCCALLSFSUB1(HBINSZ,hbinsz,STRING)
51#define HBINSZ(A1) CCALLSFSUB1(HBINSZ,hbinsz,STRING,A1)
52
53PROTOCCALLSFSUB4(HBNAMC,hbnamc,INT,STRING,PSTRINGV,STRING)
54#define HBNAMC(A1,A2,A3,A4) CCALLSFSUB4(HBNAMC,hbnamc,INT,STRING,PSTRINGV,STRING,A1,A2,A3,A4)
55
56#ifndef PSTRUCT_cfV
57#define PSTRUCT_cfV( T,A,B,F) SIMPLE_cfV(T,A,B,F)
58#define PSTRUCT_cfSEP(T, B) SIMPLE_cfSEP(T,B)
59#define PSTRUCT_cfINT(N,A,B,X,Y,Z) SIMPLE_cfINT(N,A,B,X,Y,Z)
60#define PSTRUCT_cfSTR(N,T,A,B,C,D,E) SIMPLE_cfSTR(N,T,A,B,C,D,E)
61#define PSTRUCT_cfCC( T,A,B) SIMPLE_cfCC(T,A,B)
62#define PSTRUCT_cfAA( T,A,B) PSTRUCT_cfB(T,A) /* Argument B not used. */
63#define PSTRUCT_cfU( T,A) PSTRUCT_cfN(T,A)
64#define PSTRUCT_cfN( T,A) void *A
65#define PSTRUCT_cfB( T,A) (void *) &(A)
66#endif
67
68PROTOCCALLSFSUB4(HBNAME,hbname,INT,STRING,PSTRUCT,STRING)
69#define HBNAME(A1,A2,A3,A4) CCALLSFSUB4(HBNAME,hbname,INT,STRING,PSTRUCT,STRING,A1,A2,A3,A4)
70
71PROTOCCALLSFSUB3(HBNT,hbnt,INT,STRING,STRING)
72#define HBNT(A1,A2,A3) CCALLSFSUB3(HBNT,hbnt,INT,STRING,STRING,A1,A2,A3)
73
74PROTOCCALLSFSUB5(HNTDUP,hntdup,INT,INT,INT,STRING,STRING)
75#define HNTDUP(A1,A2,A3,A4,A5) CCALLSFSUB5(HNTDUP,hntdup,INT,INT,INT,STRING,STRING,A1,A2,A3,A4,A5)
76
77PROTOCCALLSFSUB5(HBOOKB,hbookb,INT,STRING,INT,FLOATV,FLOAT)
78#define HBOOKB(A1,A2,A3,A4,A5) CCALLSFSUB5(HBOOKB,hbookb,INT,STRING,INT,FLOATV,FLOAT,A1,A2,A3,A4,A5)
79
80PROTOCCALLSFSUB6(HBOOKN,hbookn,INT,STRING,INT,STRING,INT,STRINGV)
81#define HBOOKN(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HBOOKN,hbookn,INT,STRING,INT,STRING,INT,STRINGV,A1,A2,A3,A4,A5,A6)
82
83PROTOCCALLSFSUB6(HBOOK1,hbook1,INT,STRING,INT,FLOAT,FLOAT,FLOAT)
84#define HBOOK1(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HBOOK1,hbook1,INT,STRING,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6)
85
86PROTOCCALLSFSUB9(HBOOK2,hbook2,INT,STRING,INT,FLOAT,FLOAT,INT,FLOAT,FLOAT,FLOAT)
87#define HBOOK2(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(HBOOK2,hbook2,INT,STRING,INT,FLOAT,FLOAT,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9)
88
89PROTOCCALLSFSUB2(HBPRO,hbpro,INT,FLOAT)
90#define HBPRO(A1,A2) CCALLSFSUB2(HBPRO,hbpro,INT,FLOAT,A1,A2)
91
92PROTOCCALLSFSUB8(HBPROF,hbprof,INT,STRING,INT,FLOAT,FLOAT,FLOAT,FLOAT,STRING)
93#define HBPROF(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(HBPROF,hbprof,INT,STRING,INT,FLOAT,FLOAT,FLOAT,FLOAT,STRING,A1,A2,A3,A4,A5,A6,A7,A8)
94
95PROTOCCALLSFSUB2(HBPROX,hbprox,INT,FLOAT)
96#define HBPROX(A1,A2) CCALLSFSUB2(HBPROX,hbprox,INT,FLOAT,A1,A2)
97
98PROTOCCALLSFSUB2(HBPROY,hbproy,INT,FLOAT)
99#define HBPROY(A1,A2) CCALLSFSUB2(HBPROY,hbproy,INT,FLOAT,A1,A2)
100
101PROTOCCALLSFSUB3(HBSET,hbset,STRING,INT,PINT)
102#define HBSET(A1,A2,A3) CCALLSFSUB3(HBSET,hbset,STRING,INT,PINT,A1,A2,A3)
103
104PROTOCCALLSFSUB3(HBSLIX,hbslix,INT,INT,FLOAT)
105#define HBSLIX(A1,A2,A3) CCALLSFSUB3(HBSLIX,hbslix,INT,INT,FLOAT,A1,A2,A3)
106
107PROTOCCALLSFSUB3(HBSLIY,hbsliy,INT,INT,FLOAT)
108#define HBSLIY(A1,A2,A3) CCALLSFSUB3(HBSLIY,hbsliy,INT,INT,FLOAT,A1,A2,A3)
109
110PROTOCCALLSFSUB2(HCDIR,hcdir,PSTRING,STRING)
111#define HCDIR(A1,A2) CCALLSFSUB2(HCDIR,hcdir,PSTRING,STRING,A1,A2)
112
113PROTOCCALLSFSUB2(HCOMPA,hcompa,INTV,INT)
114#define HCOMPA(A1,A2) CCALLSFSUB2(HCOMPA,hcompa,INTV,INT,A1,A2)
115
116PROTOCCALLSFSUB3(HCOPY,hcopy,INT,INT,STRING)
117#define HCOPY(A1,A2,A3) CCALLSFSUB3(HCOPY,hcopy,INT,INT,STRING,A1,A2,A3)
118
119PROTOCCALLSFSUB8(HCOPYR,hcopyr,INT,INT,STRING,INT,INT,INT,INT,STRING)
120#define HCOPYR(A1,A2,A3,A4,A5,A7,A8) CCALLSFSUB8(HCOPYR,hcopyr,INT,INT,STRING,INT,INT,INT,INT,STRING,A1,A2,A3,A4,A5,A6,A7,A8)
121
122PROTOCCALLSFSUB3(HCOPYM,hcopym,INT,INTV,INT)
123#define HCOPYM(A1,A2,A3) CCALLSFSUB3(HCOPYM,hcopym,INT,INTV,INT,A1,A2,A3)
124
125PROTOCCALLSFSUB1(HDELET,hdelet,INT)
126#define HDELET(A1) CCALLSFSUB1(HDELET,hdelet,INT,A1)
127
128PROTOCCALLSFSUB1(HDERIV,hderiv,FLOATV)
129#define HDERIV(A1) CCALLSFSUB1(HDERIV,hderiv,FLOATV,A1)
130
131PROTOCCALLSFSUB4(HDIFF,hdiff,INT,INT,PFLOAT,STRING)
132#define HDIFF(A1,A2,A3,A4) CCALLSFSUB4(HDIFF,hdiff,INT,INT,PFLOAT,STRING,A1,A2,A3,A4)
133
134PROTOCCALLSFSUB7(HDIFFB,hdiffb,INT,INT,FLOAT,INT,STRING,INT,FLOATV)
135#define HDIFFB(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(HDIFFB,hdiffb,INT,INT,FLOAT,INT,STRING,INT,FLOATV,A1,A2,A3,A4,A5,A6,A7)
136
137PROTOCCALLSFSUB1(HDUMP,hdump,INT)
138#define HDUMP(A1) CCALLSFSUB1(HDUMP,hdump,INT,A1)
139
140PROTOCCALLSFSUB1(HERMES,hermes,INT)
141#define HERMES(A1) CCALLSFSUB1(HERMES,hermes,INT,A1)
142
143PROTOCCALLSFSUB7(HFC2,hfc2,INT,INT,STRING,INT,STRING,FLOAT,STRING)
144#define HFC2(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(HFC2,hfc2,INT,INT,STRING,INT,STRING,FLOAT,STRING,A1,A2,A3,A4,A5,A6,A7)
145
146PROTOCCALLSFSUB4(HFF1,hff1,INT,PINT,FLOAT,FLOAT)
147#define HFF1(A1,A2,A3,A4) CCALLSFSUB4(HFF1,hff1,INT,PINT,FLOAT,FLOAT,A1,A2,A3,A4)
148
149PROTOCCALLSFSUB5(HFF2,hff2,INT,PINT,FLOAT,FLOAT,FLOAT)
150#define HFF2(A1,A2,A3,A4,A5) CCALLSFSUB5(HFF2,hff2,INT,PINT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
151
152PROTOCCALLSFSUB4(HFILL,hfill,INT,FLOAT,FLOAT,FLOAT)
153#define HFILL(A1,A2,A3,A4) CCALLSFSUB4(HFILL,hfill,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
154
155PROTOCCALLSFSUB3(HFINAM,hfinam,INT,STRINGV,INT)
156#define HFINAM(A1,A2,A3) CCALLSFSUB3(HFINAM,hfinam,INT,STRINGV,INT,A1,A2,A3)
157
158PROTOCCALLSFSUB6(HFITEX,hfitex,INT,PFLOAT,PFLOAT,PFLOAT,INT,FLOATV)
159#define HFITEX(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HFITEX,hfitex,INT,PFLOAT,PFLOAT,PFLOAT,INT,FLOATV,A1,A2,A3,A4,A5,A6)
160
161PROTOCCALLSFSUB7(HFITGA,hfitga,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,INT,FLOATV)
162#define HFITGA(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(HFITGA,hfitga,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,INT,FLOATV,A1,A2,A3,A4,A5,A6,A7)
163
164PROTOCCALLSFSUB10(HFITH,hfith,INT,ROUTINE,STRING,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT)
165#define HFITH(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(HFITH,hfith,INT,ROUTINE,STRING,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
166
167PROTOCCALLSFSUB10(HFITHN,hfithn,INT,STRING,STRING,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT)
168#define HFITHN(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(HFITHN,hfithn,INT,STRING,STRING,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
169
170PROTOCCALLSFSUB11(HFITL,hfitl,INT,ROUTINE,INT,DOUBLEV,PFLOAT,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,FLOATV)
171#define HFITL(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(HFITL,hfitl,INT,ROUTINE,INT,DOUBLEV,PFLOAT,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
172
173PROTOCCALLSFSUB16(HFITN,hfitn,PFLOAT,FLOATV,FLOATV,INT,INT,INT,ROUTINE,INT,DOUBLEV,PFLOAT,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,FLOATV)
174#define HFITN(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16) CCALLSFSUB16(HFITN,hfitn,PFLOAT,FLOATV,FLOATV,INT,INT,INT,ROUTINE,INT,DOUBLEV,PFLOAT,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16)
175
176PROTOCCALLSFSUB6(HFITPO,hfitpo,INT,INT,FLOATV,PFLOAT,INT,FLOATV)
177#define HFITPO(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HFITPO,hfitpo,INT,INT,FLOATV,PFLOAT,INT,FLOATV,A1,A2,A3,A4,A5,A6)
178
179PROTOCCALLSFSUB7(HFITS,hfits,INT,ROUTINE,INT,DOUBLEV,PFLOAT,INT,PFLOAT)
180#define HFITS(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(HFITS,hfits,INT,ROUTINE,INT,DOUBLEV,PFLOAT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
181
182PROTOCCALLSFSUB15(HFITV,hfitv,INT,INT,INT,PFLOAT,FLOATV,FLOATV,ROUTINE,STRING,INT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,PFLOAT)
183#define HFITV(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15) CCALLSFSUB15(HFITV,hfitv,INT,INT,INT,PFLOAT,FLOATV,FLOATV,ROUTINE,STRING,INT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)
184
185PROTOCCALLSFSUB10(HFIT1,hfit1,FLOATV,FLOATV,FLOATV,INT,ROUTINE,INT,DOUBLEV,PFLOAT,INT,PFLOAT)
186#define HFIT1(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(HFIT1,hfit1,FLOATV,FLOATV,FLOATV,INT,ROUTINE,INT,DOUBLEV,PFLOAT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
187
188PROTOCCALLSFSUB2(HFN,hfn,INT,FLOATV)
189#define HFN(A1,A2) CCALLSFSUB2(HFN,hfn,INT,FLOATV,A1,A2)
190
191PROTOCCALLSFSUB1(HFNT,hfnt,INT)
192#define HFNT(A1) CCALLSFSUB1(HFNT,hfnt,INT,A1)
193
194PROTOCCALLSFSUB2(HFNTB,hfntb,INT,STRING)
195#define HFNTB(A1,A2) CCALLSFSUB2(HFNTB,hfntb,INT,STRING,A1,A2)
196
197PROTOCCALLSFSUB4(HFPAK1,hfpak1,INT,PINT,FLOATV,INT)
198#define HFPAK1(A1,A2,A3,A4) CCALLSFSUB4(HFPAK1,hfpak1,INT,PINT,FLOATV,INT,A1,A2,A3,A4)
199
200PROTOCCALLSFSUB2(HFUNC,hfunc,INT,ROUTINE)
201#define HFUNC(A1,A2) CCALLSFSUB2(HFUNC,hfunc,INT,ROUTINE,A1,A2)
202
203PROTOCCALLSFSUB3(HF1,hf1,INT,FLOAT,FLOAT)
204#define HF1(A1,A2,A3) CCALLSFSUB3(HF1,hf1,INT,FLOAT,FLOAT,A1,A2,A3)
205
206PROTOCCALLSFSUB4(HF2,hf2,INT,FLOAT,FLOAT,FLOAT)
207#define HF2(A1,A2,A3,A4) CCALLSFSUB4(HF2,hf2,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
208
209PROTOCCALLSFSUB7(HGFIT,hgfit,INT,PINT,PINT,PFLOAT,PFLOAT,PFLOAT,PSTRINGV)
210#define HGFIT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(HGFIT,hgfit,INT,PINT,PINT,PFLOAT,PFLOAT,PFLOAT,PSTRINGV,A1,A2,A3,A4,A5,A6,A7)
211
212PROTOCCALLSFSUB10(HGIVE,hgive,INT,PSTRING,PINT,PFLOAT,PFLOAT,PINT,PFLOAT,PFLOAT,PINT,PINT)
213#define HGIVE(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(HGIVE,hgive,INT,PSTRING,PINT,PFLOAT,PFLOAT,PINT,PFLOAT,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
214
215PROTOCCALLSFSUB6(HGIVEN,hgiven,INT,PSTRING,PINT,PSTRINGV,FLOATV,FLOATV)
216#define HGIVEN(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HGIVEN,hgiven,INT,PSTRING,PINT,PSTRINGV,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6)
217
218PROTOCCALLSFSUB3(HKIND,hkind,INT,INTV,STRING)
219#define HKIND(A1,A2,A3) CCALLSFSUB3(HKIND,hkind,INT,INTV,STRING,A1,A2,A3)
220
221PROTOCCALLSFSUB5(HGN,hgn,INT,PINT,INT,FLOATV,PINT)
222#define HGN(A1,A2,A3,A4,A5) CCALLSFSUB5(HGN,hgn,INT,PINT,INT,FLOATV,PINT,A1,A2,A3,A4,A5)
223
224PROTOCCALLSFSUB4(HGNF,hgnf,INT,INT,PFLOAT,PINT)
225#define HGNF(A1,A2,A3,A4) CCALLSFSUB4(HGNF,hgnf,INT,INT,PFLOAT,PINT,A1,A2,A3,A4)
226
227PROTOCCALLSFSUB2(HGNPAR,hgnpar,INT,STRING)
228#define HGNPAR(A1,A2) CCALLSFSUB2(HGNPAR,hgnpar,INT,STRING,A1,A2)
229
230PROTOCCALLSFSUB3(HGNT,hgnt,INT,INT,INT)
231#define HGNT(A1,A2,A3) CCALLSFSUB3(HGNT,hgnt,INT,INT,INT,A1,A2,A3)
232
233PROTOCCALLSFSUB4(HGNTB,hgntb,INT,STRING,INT,INT)
234#define HGNTB(A1,A2,A3,A4) CCALLSFSUB4(HGNTB,hgntb,INT,STRING,INT,INT,A1,A2,A3,A4)
235
236PROTOCCALLSFSUB3(HGNTF,hgntf,INT,INT,PINT)
237#define HGNTF(A1,A2,A3) CCALLSFSUB3(HGNTF,hgntf,INT,INT,PINT,A1,A2,A3)
238
239PROTOCCALLSFSUB5(HGNTV,hgntv,INT,STRINGV,INT,INT,INT)
240#define HGNTV(A1,A2,A3,A4,A5) CCALLSFSUB5(HGNTV,hgntv,INT,STRINGV,INT,INT,INT,A1,A2,A3,A4,A5)
241
242PROTOCCALLSFSUB2(HIDALL,hidall,INTV,PINT)
243#define HIDALL(A1,A2) CCALLSFSUB2(HIDALL,hidall,INTV,PINT,A1,A2)
244
245PROTOCCALLSFSUB2(HIDOPT,hidopt,INT,STRING)
246#define HIDOPT(A1,A2) CCALLSFSUB2(HIDOPT,hidopt,INT,STRING,A1,A2)
247
248PROTOCCALLSFSUB2(HID1,hid1,INTV,PINT)
249#define HID1(A1,A2) CCALLSFSUB2(HID1,hid1,INTV,PINT,A1,A2)
250
251PROTOCCALLSFSUB2(HID2,hid2,INTV,PINT)
252#define HID2(A1,A2) CCALLSFSUB2(HID2,hid2,INTV,PINT,A1,A2)
253
254PROTOCCALLSFSUB5(HIJXY,hijxy,INT,INT,INT,PFLOAT,PFLOAT)
255#define HIJXY(A1,A2,A3,A4,A5) CCALLSFSUB5(HIJXY,hijxy,INT,INT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5)
256
257PROTOCCALLSFSUB0(HINDEX,hindex)
258#define HINDEX() CCALLSFSUB0(HINDEX,hindex)
259
260PROTOCCALLSFSUB4(HIPAK1,hipak1,INT,PINT,INTV,INT)
261#define HIPAK1(A1,A2,A3,A4) CCALLSFSUB4(HIPAK1,hipak1,INT,PINT,INTV,INT,A1,A2,A3,A4)
262
263PROTOCCALLSFSUB0(HISTDO,histdo)
264#define HISTDO() CCALLSFSUB0(HISTDO,histdo)
265
266PROTOCCALLSFSUB3(HIX,hix,INT,INT,PFLOAT)
267#define HIX(A1,A2,A3) CCALLSFSUB3(HIX,hix,INT,INT,PFLOAT,A1,A2,A3)
268
269PROTOCCALLSFSUB4(HLABEL,hlabel,INT,INT,STRINGV,STRING)
270#define HLABEL(A1,A2,A3,A4) CCALLSFSUB4(HLABEL,hlabel,INT,INT,STRINGV,STRING,A1,A2,A3,A4)
271
272PROTOCCALLSFSUB2(HLDIR,hldir,STRING,STRING)
273#define HLDIR(A1,A2) CCALLSFSUB2(HLDIR,hldir,STRING,STRING,A1,A2)
274
275PROTOCCALLSFSUB1(HLIMIT,hlimit,INT)
276#define HLIMIT(A1) CCALLSFSUB1(HLIMIT,hlimit,INT,A1)
277
278PROTOCCALLSFSUB4(HLNEXT,hlnext,PINT,PSTRING,PSTRING,STRING)
279#define HLNEXT(A1,A2,A3,A4) CCALLSFSUB4(HLNEXT,hlnext,PINT,PSTRING,PSTRING,STRING,A1,A2,A3,A4)
280
281PROTOCCALLSFSUB2(HLOCAT,hlocat,INT,PINT)
282#define HLOCAT(A1,A2) CCALLSFSUB2(HLOCAT,hlocat,INT,PINT,A1,A2)
283
284PROTOCCALLSFSUB2(HMAXIM,hmaxim,INT,FLOAT)
285#define HMAXIM(A1,A2) CCALLSFSUB2(HMAXIM,hmaxim,INT,FLOAT,A1,A2)
286
287PROTOCCALLSFSUB2(HMDIR,hmdir,STRING,STRING)
288#define HMDIR(A1,A2) CCALLSFSUB2(HMDIR,hmdir,STRING,STRING,A1,A2)
289
290PROTOCCALLSFSUB2(HMINIM,hminim,INT,FLOAT)
291#define HMINIM(A1,A2) CCALLSFSUB2(HMINIM,hminim,INT,FLOAT,A1,A2)
292
293PROTOCCALLSFSUB2(HNOENT,hnoent,INT,PINT)
294#define HNOENT(A1,A2) CCALLSFSUB2(HNOENT,hnoent,INT,PINT,A1,A2)
295
296PROTOCCALLSFSUB2(HNORMA,hnorma,INT,FLOAT)
297#define HNORMA(A1,A2) CCALLSFSUB2(HNORMA,hnorma,INT,FLOAT,A1,A2)
298
299PROTOCCALLSFSUB6(HOPERA,hopera,INT,STRING,INT,INT,FLOAT,FLOAT)
300#define HOPERA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HOPERA,hopera,INT,STRING,INT,INT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6)
301
302PROTOCCALLSFSUB1(HOUTPU,houtpu,INT)
303#define HOUTPU(A1) CCALLSFSUB1(HOUTPU,houtpu,INT,A1)
304
305PROTOCCALLSFSUB1(HPAGSZ,hpagsz,INT)
306#define HPAGSZ(A1) CCALLSFSUB1(HPAGSZ,hpagsz,INT,A1)
307
308PROTOCCALLSFSUB2(HPAK,hpak,INT,FLOATV)
309#define HPAK(A1,A2) CCALLSFSUB2(HPAK,hpak,INT,FLOATV,A1,A2)
310
311PROTOCCALLSFSUB2(HPAKAD,hpakad,INT,FLOATV)
312#define HPAKAD(A1,A2) CCALLSFSUB2(HPAKAD,hpakad,INT,FLOATV,A1,A2)
313
314PROTOCCALLSFSUB2(HPAKE,hpake,INT,FLOATV)
315#define HPAKE(A1,A2) CCALLSFSUB2(HPAKE,hpake,INT,FLOATV,A1,A2)
316
317PROTOCCALLSFSUB7(HPARAM,hparam,INT,INT,FLOAT,INTV,PDOUBLE,PINT,PINT)
318#define HPARAM(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(HPARAM,hparam,INT,INT,FLOAT,INTV,PDOUBLE,PINT,PINT,A1,A2,A3,A4,A5,A6,A7)
319
320PROTOCCALLSFSUB11(HPARMN,hparmn,PFLOAT,FLOATV,FLOATV,INT,INT,INT,FLOAT,INTV,PDOUBLE,PINT,PINT)
321#define HPARMN(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(HPARMN,hparmn,PFLOAT,FLOATV,FLOATV,INT,INT,INT,FLOAT,INTV,PDOUBLE,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
322
323PROTOCCALLSFSUB2(HPCHAR,hpchar,INTV,INTV)
324#define HPCHAR(A1,A2) CCALLSFSUB2(HPCHAR,hpchar,INTV,INTV,A1,A2)
325
326PROTOCCALLSFSUB2(HPDIR,hpdir,STRING,STRING)
327#define HPDIR(A1,A2) CCALLSFSUB2(HPDIR,hpdir,STRING,STRING,A1,A2)
328
329PROTOCCALLSFSUB3(HPHIST,hphist,INT,STRING,INT)
330#define HPHIST(A1,A2,A3) CCALLSFSUB3(HPHIST,hphist,INT,STRING,INT,A1,A2,A3)
331
332PROTOCCALLSFSUB1(HPHS,hphs,INT)
333#define HPHS(A1) CCALLSFSUB1(HPHS,hphs,INT,A1)
334
335PROTOCCALLSFSUB1(HPHST,hphst,INT)
336#define HPHST(A1) CCALLSFSUB1(HPHST,hphst,INT,A1)
337
338PROTOCCALLSFSUB0(HPONCE,hponce)
339#define HPONCE() CCALLSFSUB0(HPONCE,hponce)
340
341PROTOCCALLSFSUB1(HPRINT,hprint,INT)
342#define HPRINT(A1) CCALLSFSUB1(HPRINT,hprint,INT,A1)
343
344PROTOCCALLSFSUB1(HPRNT,hprnt,INT)
345#define HPRNT(A1) CCALLSFSUB1(HPRNT,hprnt,INT,A1)
346
347PROTOCCALLSFSUB7(HPROJ1,hproj1,INT,INT,INT,ROUTINE,INT,INT,INT)
348#define HPROJ1(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(HPROJ1,hproj1,INT,INT,INT,ROUTINE,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7)
349
350PROTOCCALLSFSUB8(HPROJ2,hproj2,INT,INT,INT,ROUTINE,INT,INT,INT,INT)
351#define HPROJ2(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(HPROJ2,hproj2,INT,INT,INT,ROUTINE,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8)
352
353PROTOCCALLSFSUB3(HPROT,hprot,INT,STRING,INT)
354#define HPROT(A1,A2,A3) CCALLSFSUB3(HPROT,hprot,INT,STRING,INT,A1,A2,A3)
355
356PROTOCCALLSFSUB1(HPSCAT,hpscat,INT)
357#define HPSCAT(A1) CCALLSFSUB1(HPSCAT,hpscat,INT,A1)
358
359PROTOCCALLSFSUB1(HPTAB,hptab,INT)
360#define HPTAB(A1) CCALLSFSUB1(HPTAB,hptab,INT,A1)
361
362PROTOCCALLSFSUB11(HQUAD,hquad,INT,STRING,INT,FLOAT,FLOAT,PINT,PFLOAT,PINT,PFLOAT,PFLOAT,PINT)
363#define HQUAD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(HQUAD,hquad,INT,STRING,INT,FLOAT,FLOAT,PINT,PFLOAT,PINT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
364
365PROTOCCALLSFSUB3(HRDIR,hrdir,INT,PSTRINGV,PINT)
366#define HRDIR(A1,A2,A3) CCALLSFSUB3(HRDIR,hrdir,INT,PSTRINGV,PINT,A1,A2,A3)
367
368PROTOCCALLSFSUB8(HREBIN,hrebin,INT,FLOATV,FLOATV,FLOATV,FLOATV,INT,INT,INT)
369#define HREBIN(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(HREBIN,hrebin,INT,FLOATV,FLOATV,FLOATV,FLOATV,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8)
370
371PROTOCCALLSFSUB2(HRECOV,hrecov,INT,STRING)
372#define HRECOV(A1,A2) CCALLSFSUB2(HRECOV,hrecov,INT,STRING,A1,A2)
373
374PROTOCCALLSFSUB1(HREND,hrend,STRING)
375#define HREND(A1) CCALLSFSUB1(HREND,hrend,STRING,A1)
376
377PROTOCCALLSFSUB1(HRENDC,hrendc,STRING)
378#define HRENDC(A1) CCALLSFSUB1(HRENDC,hrendc,STRING,A1)
379
380PROTOCCALLSFSUB2(HRESET,hreset,INT,STRING)
381#define HRESET(A1,A2) CCALLSFSUB2(HRESET,hreset,INT,STRING,A1,A2)
382
383PROTOCCALLSFSUB3(HRFILE,hrfile,INT,STRING,STRING)
384#define HRFILE(A1,A2,A3) CCALLSFSUB3(HRFILE,hrfile,INT,STRING,STRING,A1,A2,A3)
385
386PROTOCCALLSFSUB3(HRGET,hrget,INT,STRING,STRING)
387#define HRGET(A1,A2,A3) CCALLSFSUB3(HRGET,hrget,INT,STRING,STRING,A1,A2,A3)
388
389PROTOCCALLSFSUB3(HRIN,hrin,INT,INT,INT)
390#define HRIN(A1,A2,A3) CCALLSFSUB3(HRIN,hrin,INT,INT,INT,A1,A2,A3)
391
392PROTOCCALLSFSUB3(HRNDM2,hrndm2,INT,PFLOAT,PFLOAT)
393#define HRNDM2(A1,A2,A3) CCALLSFSUB3(HRNDM2,hrndm2,INT,PFLOAT,PFLOAT,A1,A2,A3)
394
395PROTOCCALLSFSUB6(HROPEN,hropen,INT,STRING,STRING,STRING,PINT,PINT)
396#define HROPEN(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HROPEN,hropen,INT,STRING,STRING,STRING,PINT,PINT,A1,A2,A3,A4,A5,A6)
397
398PROTOCCALLSFSUB3(HROUT,hrout,INT,PINT,STRING)
399#define HROUT(A1,A2,A3) CCALLSFSUB3(HROUT,hrout,INT,PINT,STRING,A1,A2,A3)
400
401PROTOCCALLSFSUB3(HRPUT,hrput,INT,STRING,STRING)
402#define HRPUT(A1,A2,A3) CCALLSFSUB3(HRPUT,hrput,INT,STRING,STRING,A1,A2,A3)
403
404PROTOCCALLSFSUB2(HSCALE,hscale,INT,FLOAT)
405#define HSCALE(A1,A2) CCALLSFSUB2(HSCALE,hscale,INT,FLOAT,A1,A2)
406
407PROTOCCALLSFSUB3(HSCR,hscr,INT,INT,STRING)
408#define HSCR(A1,A2,A3) CCALLSFSUB3(HSCR,hscr,INT,INT,STRING,A1,A2,A3)
409
410PROTOCCALLSFSUB2(HSETPR,hsetpr,STRING,FLOAT)
411#define HSETPR(A1,A2) CCALLSFSUB2(HSETPR,hsetpr,STRING,FLOAT,A1,A2)
412
413PROTOCCALLSFSUB3(HSMOOF,hsmoof,INT,INT,FLOAT)
414#define HSMOOF(A1,A2,A3) CCALLSFSUB3(HSMOOF,hsmoof,INT,INT,FLOAT,A1,A2,A3)
415
416PROTOCCALLSFSUB5(HSPLI1,hspli1,INT,INT,INT,INT,PFLOAT)
417#define HSPLI1(A1,A2,A3,A4,A5) CCALLSFSUB5(HSPLI1,hspli1,INT,INT,INT,INT,PFLOAT,A1,A2,A3,A4,A5)
418
419PROTOCCALLSFSUB5(HSPLI2,hspli2,INT,INT,INT,INT,INT)
420#define HSPLI2(A1,A2,A3,A4,A5) CCALLSFSUB5(HSPLI2,hspli2,INT,INT,INT,INT,INT,A1,A2,A3,A4,A5)
421
422PROTOCCALLSFSUB1(HSQUEZ,hsquez,STRING)
423#define HSQUEZ(A1) CCALLSFSUB1(HSQUEZ,hsquez,STRING,A1)
424
425PROTOCCALLSFSUB1(HTITLE,htitle,STRING)
426#define HTITLE(A1) CCALLSFSUB1(HTITLE,htitle,STRING,A1)
427
428PROTOCCALLSFSUB4(HUNPAK,hunpak,INT,FLOATV,STRING,INT)
429#define HUNPAK(A1,A2,A3,A4) CCALLSFSUB4(HUNPAK,hunpak,INT,FLOATV,STRING,INT,A1,A2,A3,A4)
430
431PROTOCCALLSFSUB4(HUNPKE,hunpke,INT,FLOATV,STRING,INT)
432#define HUNPKE(A1,A2,A3,A4) CCALLSFSUB4(HUNPKE,hunpke,INT,FLOATV,STRING,INT,A1,A2,A3,A4)
433
434PROTOCCALLSFSUB5(HUWFUN,huwfun,INT,INT,STRING,INT,STRING)
435#define HUWFUN(A1,A2,A3,A4,A5) CCALLSFSUB5(HUWFUN,huwfun,INT,INT,STRING,INT,STRING,A1,A2,A3,A4,A5)
436
437PROTOCCALLSFSUB3(HXI,hxi,INT,FLOAT,PINT)
438#define HXI(A1,A2,A3) CCALLSFSUB3(HXI,hxi,INT,FLOAT,PINT,A1,A2,A3)
439
440PROTOCCALLSFSUB5(HXYIJ,hxyij,INT,FLOAT,FLOAT,PINT,PINT)
441#define HXYIJ(A1,A2,A3,A4,A5) CCALLSFSUB5(HXYIJ,hxyij,INT,FLOAT,FLOAT,PINT,PINT,A1,A2,A3,A4,A5)
442
443PROTOCCALLSFFUN1(LOGICAL,HEXIST,hexist,INT)
444#define HEXIST(A2) CCALLSFFUN1(HEXIST,hexist,INT,A2)
445
446PROTOCCALLSFFUN2(FLOAT,HI,hi,INT,INT)
447#define HI(A2,A3) CCALLSFFUN2(HI,hi,INT,INT,A2,A3)
448
449PROTOCCALLSFFUN2(FLOAT,HIE,hie,INT,INT)
450#define HIE(A2,A3) CCALLSFFUN2(HIE,hie,INT,INT,A2,A3)
451
452PROTOCCALLSFFUN2(FLOAT,HIF,hif,INT,INT)
453#define HIF(A2,A3) CCALLSFFUN2(HIF,hif,INT,INT,A2,A3)
454
455PROTOCCALLSFFUN3(FLOAT,HIJ,hij,INT,INT,INT)
456#define HIJ(A2,A3,A4) CCALLSFFUN3(HIJ,hij,INT,INT,INT,A2,A3,A4)
457
458PROTOCCALLSFFUN3(FLOAT,HIJE,hije,INT,INT,INT)
459#define HIJE(A2,A3,A4) CCALLSFFUN3(HIJE,hije,INT,INT,INT,A2,A3,A4)
460
461PROTOCCALLSFFUN1(FLOAT,HMAX,hmax,INT)
462#define HMAX(A2) CCALLSFFUN1(HMAX,hmax,INT,A2)
463
464PROTOCCALLSFFUN1(FLOAT,HMIN,hmin,INT)
465#define HMIN(A2) CCALLSFFUN1(HMIN,hmin,INT,A2)
466
467PROTOCCALLSFFUN1(FLOAT,HRNDM1,hrndm1,INT)
468#define HRNDM1(A2) CCALLSFFUN1(HRNDM1,hrndm1,INT,A2)
469
470PROTOCCALLSFFUN4(FLOAT,HSPFUN,hspfun,INT,FLOAT,INT,INT)
471#define HSPFUN(A2,A3,A4,A5) CCALLSFFUN4(HSPFUN,hspfun,INT,FLOAT,INT,INT,A2,A3,A4,A5)
472
473PROTOCCALLSFFUN4(FLOAT,HSTATI,hstati,INT,INT,STRING,INT)
474#define HSTATI(A2,A3,A4,A5) CCALLSFFUN4(HSTATI,hstati,INT,INT,STRING,INT,A2,A3,A4,A5)
475
476PROTOCCALLSFFUN1(FLOAT,HSUM,hsum,INT)
477#define HSUM(A2) CCALLSFFUN1(HSUM,hsum,INT,A2)
478
479PROTOCCALLSFFUN2(FLOAT,HX,hx,INT,FLOAT)
480#define HX(A2,A3) CCALLSFFUN2(HX,hx,INT,FLOAT,A2,A3)
481
482PROTOCCALLSFFUN2(FLOAT,HXE,hxe,INT,FLOAT)
483#define HXE(A2,A3) CCALLSFFUN2(HXE,hxe,INT,FLOAT,A2,A3)
484
485PROTOCCALLSFFUN3(FLOAT,HXY,hxy,INT,FLOAT,FLOAT)
486#define HXY(A2,A3,A4) CCALLSFFUN3(HXY,hxy,INT,FLOAT,FLOAT,A2,A3,A4)
487
488PROTOCCALLSFSUB11(HBALLOC,hballoc,INT,STRING,STRING,STRING,INT,INT,INT,INT,INTV,PINT,PINT)
489#define HBALLOC(IDN,CHDIR,VAR,BLOCK,ITYPE,ISIZE,IFIRST,NELEM,IBASE,IOFF,NUSE)\
490 CCALLSFSUB11(HBALLOC,hballoc,INT,STRING,STRING,STRING,INT,INT,INT,INT,INTV,PINT,PINT,IDN,CHDIR,VAR,BLOCK,ITYPE,ISIZE,IFIRST,NELEM,IBASE,IOFF,NUSE)
491
492PROTOCCALLSFSUB1(HBFREE,hbfree,INT)
493#define HBFREE(LUN) CCALLSFSUB1(HBFREE,hbfree,INT,LUN)
494
495PROTOCCALLSFSUB1(HBINIT1,hbinit1,INT)
496#define HBINIT1(IFLAG) CCALLSFSUB1(HBINIT1,hbinit1,INT,IFLAG)
497
498PROTOCCALLSFSUB0(HDCOFL,hdcofl)
499#define HDCOFL() CCALLSFSUB0(HDCOFL,hdcofl)
500
501PROTOCCALLSFSUB4(HF1N,hf1n,INT,FLOATV,FLOATV,INT)
502#define HF1N(ID,X,W,NEVT) CCALLSFSUB4(HF1N,hf1n,INT,FLOATV,FLOATV,INT,ID,X,W,NEVT)
503
504PROTOCCALLSFSUB6(HGNTBF,hgntbf,INT,ZTRINGV,INTV,INT,INT,PINT)
505/* fix the element length of VAR to 32 */
506#define hgntbf_ELEMS_2 ZTRINGV_ARGS(4)
507#define hgntbf_ELEMLEN_2 ZTRINGV_NUM(32)
508#define HGNTBF(IDN,VAR,IOFFST,NVAR,IDNEVT,IERROR)\
509 CCALLSFSUB6(HGNTBF,hgntbf,INT,ZTRINGV,INTV,INT,INT,PINT,IDN,VAR,IOFFST,NVAR,IDNEVT,IERROR)
510
511PROTOCCALLSFSUB1(HGTDIR,hgtdir,PSTRING)
512#define HGTDIR(CHDIR) CCALLSFSUB1(HGTDIR,hgtdir,PSTRING,CHDIR)
513
514PROTOCCALLSFFUN2(LOGICAL,HLABEQ,hlabeq,INT,STRING)
515#define HLABEQ(IDD,CHOPT) CCALLSFFUN2(HLABEQ,hlabeq,INT,STRING,IDD,CHOPT)
516
517PROTOCCALLSFFUN2(INT,HLABNB,hlabnb,INT,STRING)
518#define HLABNB(IDD,CHOPT) CCALLSFFUN2(HLABNB,hlabnb,INT,STRING,IDD,CHOPT)
519
520PROTOCCALLSFSUB4(HLGNXT,hlgnxt,INT,INT,PSTRING,STRING)
521#define HLGNXT(IDD,IPOS,CHLAB,CHOPT) CCALLSFSUB4(HLGNXT,hlgnxt,INT,INT,PSTRING,STRING,IDD,IPOS,CHLAB,CHOPT)
522
523PROTOCCALLSFSUB2(HLOGPF,hlogpf,STRING,PINT)
524#define HLOGPF(CHHEAD,ISTAT) CCALLSFSUB2(HLOGPF,hlogpf,STRING,PINT,CHHEAD,ISTAT)
525
526PROTOCCALLSFSUB4(HNTDIM,hntdim,STRING,PINT,INTV,INT)
527#define HNTDIM(TVAR,NVDIM,IVDIM,MXVDIM) CCALLSFSUB4(HNTDIM,hntdim,STRING,PINT,INTV,INT,TVAR,NVDIM,IVDIM,MXVDIM)
528
529PROTOCCALLSFSUB7(HNTGET,hntget,INT,STRING,PINT,PINT,PINT,PINT,PINT)
530#define HNTGET(ID1,TVAR,INDX,ITYPE,ISIZE,IELEM,IER)\
531 CCALLSFSUB7(HNTGET,hntget,INT,STRING,PINT,PINT,PINT,PINT,PINT,ID1,TVAR,INDX,ITYPE,ISIZE,IELEM,IER)
532
533PROTOCCALLSFSUB8(HNTGETI,hntgeti,INT,INT,INT,PSTRING,PINT,PINT,PINT,PINT)
534#define HNTGETI(ID1,ICOM,INDX,TVAR,ITYPE,ISIZE,IELEM,IER)\
535 CCALLSFSUB8(HNTGETI,hntgeti,INT,INT,INT,PSTRING,PINT,PINT,PINT,PINT,ID1,ICOM,INDX,TVAR,ITYPE,ISIZE,IELEM,IER)
536
537PROTOCCALLSFFUN1(LOGICAL,HNTNEW,hntnew,INT)
538#define HNTNEW(IDN) CCALLSFFUN1(HNTNEW,hntnew,INT,IDN)
539
540PROTOCCALLSFSUB4(HNTRNG,hntrng,STRING,PINT,PINT,PINT)
541#define HNTRNG(TVAR,ILOW,IUP,IERR) CCALLSFSUB4(HNTRNG,hntrng,STRING,PINT,PINT,PINT,TVAR,ILOW,IUP,IERR)
542
543PROTOCCALLSFSUB8(HNTVAR,hntvar,INT,INT,PSTRING,PSTRING,PINT,PINT,PINT,PINT)
544#define HNTVAR(ID1,IVAR,CHTAG,BLOCK,NSUB,ITYPE,ISIZE,IELEM) \
545 CCALLSFSUB8(HNTVAR,hntvar,INT,INT,PSTRING,PSTRING,PINT,PINT,PINT,PINT,ID1,IVAR,CHTAG,BLOCK,NSUB,ITYPE,ISIZE,IELEM)
546
547PROTOCCALLSFSUB4(HRNGPF,hrngpf,INT,INT,PINT,PINT)
548#define HRNGPF(NSLAV,MYSID,IFIRST,ITO) \
549 CCALLSFSUB4(HRNGPF,hrngpf,INT,INT,PINT,PINT,NSLAV,MYSID,IFIRST,ITO)
550
551PROTOCCALLSFSUB6(HVXIST,hvxist,STRING,PSTRING,PSTRING,PINT,PINT,PINT)
552#define HVXIST(TVAR,BLOCK,CIVAR,ITYPE,ISIZE,IELEM) \
553 CCALLSFSUB6(HVXIST,hvxist,STRING,PSTRING,PSTRING,PINT,PINT,PINT,\
554 TVAR,BLOCK,CIVAR,ITYPE,ISIZE,IELEM)
555
556#if defined(vms) || defined(__vms)
557
558PROTOCCALLSFFUN3(INT,HCREATEG,hcreateg,STRING,PINT,INT)
559#define HCREATEG(A2,A3,A4) CCALLSFFUN3(HCREATEG,hcreateg,STRING,PINT,INT,A2,A3,A4)
560
561PROTOCCALLSFFUN3(INT,HMAPG,hmapg,STRING,PINT,PINT)
562#define HMAPG(A2,A3,A4) CCALLSFFUN3(HMAPG,hmapg,STRING,PINT,PINT,A2,A3,A4)
563
564#else
565
566PROTOCCALLSFSUB2(HLIMAP,hlimap,INT,STRING)
567#define HLIMAP(A1,A2) CCALLSFSUB2(HLIMAP,hlimap,INT,STRING,A1,A2)
568
569#endif
Note: See TracBrowser for help on using the repository browser.