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