source/include/hbook.h

0001 /*
0002  Corrections:
0003  14-Dec-98 OC The definition of HFITHN was wrong
0004  11-Dec-98 OC mods in HUNPAK HUNPKE HREBIN: PFLOAT is now FLOATV
0005  02-Feb-98 OC mods for HBNAME
0006  30-Jan-98 OC HID1 HID2 were not correct
0007  30-Jan-98 OC HRENDC added
0008  15-Feb-94 GF HGIVE correct output args
0009               HGIVEN idem
0010  18-Feb-94 GF comment headers for routines with more than 10 Arguments
0011               and break long lines by \ (for the VAX)
0012  -------------above carried over from previous file on 15-Mar-94
0013  11-Apr-94 GF remove ALL occurences of ZTRING (these are not used so far)
0014               correct HOPEN, HROUT calls
0015  21-Apr-94 GF restore PROTOCCALLSFFUNi lines for functions.
0016  18-May-94 GF correct passing of external functions, must use ROUTINE
0017  further comments kept in RCS/CVS
0018  12-Apr-95 GF delete all non documented routines; this should give a more
0019               version for this file.
0020 ---------------------------------------
0021 */
0022
0023 PROTOCCALLSFSUB3(HARRAY,harray,INT,INT,PINT)
0024 #define HARRAY(A1,A2,A3)  CCALLSFSUB3(HARRAY,harray,INT,INT,PINT,A1,A2,A3)
0025
0026 PROTOCCALLSFSUB4(HBANDX,hbandx,INT,FLOAT,FLOAT,FLOAT)
0027 #define HBANDX(A1,A2,A3,A4)  CCALLSFSUB4(HBANDX,hbandx,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
0028
0029 PROTOCCALLSFSUB4(HBANDY,hbandy,INT,FLOAT,FLOAT,FLOAT)
0030 #define HBANDY(A1,A2,A3,A4)  CCALLSFSUB4(HBANDY,hbandy,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
0031
0032 PROTOCCALLSFSUB1(HBARX,hbarx,INT)
0033 #define HBARX(A1)  CCALLSFSUB1(HBARX,hbarx,INT,A1)
0034
0035 PROTOCCALLSFSUB1(HBARY,hbary,INT)
0036 #define HBARY(A1)  CCALLSFSUB1(HBARY,hbary,INT,A1)
0037
0038 PROTOCCALLSFSUB6(HBFUN1,hbfun1,INT,STRING,INT,FLOAT,FLOAT,ROUTINE)
0039 #define HBFUN1(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(HBFUN1,hbfun1,INT,STRING,INT,FLOAT,FLOAT,ROUTINE,A1,A2,A3,A4,A5,A6)
0040
0041 PROTOCCALLSFSUB9(HBFUN2,hbfun2,INT,STRING,INT,FLOAT,FLOAT,INT,FLOAT,FLOAT,ROUTINE)
0042 #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)
0043
0044 PROTOCCALLSFSUB2(HBIGBI,hbigbi,INT,INT)
0045 #define HBIGBI(A1,A2)  CCALLSFSUB2(HBIGBI,hbigbi,INT,INT,A1,A2)
0046
0047 PROTOCCALLSFSUB2(HRENID,hrenid,INT,INT)
0048 #define HRENID(A1,A2)  CCALLSFSUB2(HRENID,hrenid,INT,INT,A1,A2)
0049
0050 PROTOCCALLSFSUB1(HBINSZ,hbinsz,STRING)
0051 #define HBINSZ(A1)  CCALLSFSUB1(HBINSZ,hbinsz,STRING,A1)
0052
0053 PROTOCCALLSFSUB4(HBNAMC,hbnamc,INT,STRING,PSTRINGV,STRING)
0054 #define HBNAMC(A1,A2,A3,A4)  CCALLSFSUB4(HBNAMC,hbnamc,INT,STRING,PSTRINGV,STRING,A1,A2,A3,A4)
0055
0056 #ifndef PSTRUCT_cfV
0057 #define PSTRUCT_cfV(  T,A,B,F)       SIMPLE_cfV(T,A,B,F)
0058 #define PSTRUCT_cfSEP(T,  B)         SIMPLE_cfSEP(T,B)
0059 #define PSTRUCT_cfINT(N,A,B,X,Y,Z)   SIMPLE_cfINT(N,A,B,X,Y,Z)
0060 #define PSTRUCT_cfSTR(N,T,A,B,C,D,E) SIMPLE_cfSTR(N,T,A,B,C,D,E)
0061 #define PSTRUCT_cfCC( T,A,B)         SIMPLE_cfCC(T,A,B)
0062 #define PSTRUCT_cfAA( T,A,B)         PSTRUCT_cfB(T,A)   /* Argument B not used. */
0063 #define PSTRUCT_cfU(  T,A)         PSTRUCT_cfN(T,A)
0064 #define PSTRUCT_cfN(  T,A)        void *A
0065 #define PSTRUCT_cfB(  T,A)       (void *) &(A)
0066 #endif
0067
0068 PROTOCCALLSFSUB4(HBNAME,hbname,INT,STRING,PSTRUCT,STRING)
0069 #define HBNAME(A1,A2,A3,A4) CCALLSFSUB4(HBNAME,hbname,INT,STRING,PSTRUCT,STRING,A1,A2,A3,A4)
0070
0071 PROTOCCALLSFSUB3(HBNT,hbnt,INT,STRING,STRING)
0072 #define HBNT(A1,A2,A3)  CCALLSFSUB3(HBNT,hbnt,INT,STRING,STRING,A1,A2,A3)
0073
0074 PROTOCCALLSFSUB5(HNTDUP,hntdup,INT,INT,INT,STRING,STRING)
0075 #define HNTDUP(A1,A2,A3,A4,A5)  CCALLSFSUB5(HNTDUP,hntdup,INT,INT,INT,STRING,STRING,A1,A2,A3,A4,A5)
0076
0077 PROTOCCALLSFSUB5(HBOOKB,hbookb,INT,STRING,INT,FLOATV,FLOAT)
0078 #define HBOOKB(A1,A2,A3,A4,A5)  CCALLSFSUB5(HBOOKB,hbookb,INT,STRING,INT,FLOATV,FLOAT,A1,A2,A3,A4,A5)
0079
0080 PROTOCCALLSFSUB6(HBOOKN,hbookn,INT,STRING,INT,STRING,INT,STRINGV)
0081 #define HBOOKN(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(HBOOKN,hbookn,INT,STRING,INT,STRING,INT,STRINGV,A1,A2,A3,A4,A5,A6)
0082
0083 PROTOCCALLSFSUB6(HBOOK1,hbook1,INT,STRING,INT,FLOAT,FLOAT,FLOAT)
0084 #define HBOOK1(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(HBOOK1,hbook1,INT,STRING,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6)
0085
0086 PROTOCCALLSFSUB9(HBOOK2,hbook2,INT,STRING,INT,FLOAT,FLOAT,INT,FLOAT,FLOAT,FLOAT)
0087 #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)
0088
0089 PROTOCCALLSFSUB2(HBPRO,hbpro,INT,FLOAT)
0090 #define HBPRO(A1,A2)  CCALLSFSUB2(HBPRO,hbpro,INT,FLOAT,A1,A2)
0091
0092 PROTOCCALLSFSUB8(HBPROF,hbprof,INT,STRING,INT,FLOAT,FLOAT,FLOAT,FLOAT,STRING)
0093 #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)
0094
0095 PROTOCCALLSFSUB2(HBPROX,hbprox,INT,FLOAT)
0096 #define HBPROX(A1,A2)  CCALLSFSUB2(HBPROX,hbprox,INT,FLOAT,A1,A2)
0097
0098 PROTOCCALLSFSUB2(HBPROY,hbproy,INT,FLOAT)
0099 #define HBPROY(A1,A2)  CCALLSFSUB2(HBPROY,hbproy,INT,FLOAT,A1,A2)
0100
0101 PROTOCCALLSFSUB3(HBSET,hbset,STRING,INT,PINT)
0102 #define HBSET(A1,A2,A3)  CCALLSFSUB3(HBSET,hbset,STRING,INT,PINT,A1,A2,A3)
0103
0104 PROTOCCALLSFSUB3(HBSLIX,hbslix,INT,INT,FLOAT)
0105 #define HBSLIX(A1,A2,A3)  CCALLSFSUB3(HBSLIX,hbslix,INT,INT,FLOAT,A1,A2,A3)
0106
0107 PROTOCCALLSFSUB3(HBSLIY,hbsliy,INT,INT,FLOAT)
0108 #define HBSLIY(A1,A2,A3)  CCALLSFSUB3(HBSLIY,hbsliy,INT,INT,FLOAT,A1,A2,A3)
0109
0110 PROTOCCALLSFSUB2(HCDIR,hcdir,PSTRING,STRING)
0111 #define HCDIR(A1,A2)  CCALLSFSUB2(HCDIR,hcdir,PSTRING,STRING,A1,A2)
0112
0113 PROTOCCALLSFSUB2(HCOMPA,hcompa,INTV,INT)
0114 #define HCOMPA(A1,A2)  CCALLSFSUB2(HCOMPA,hcompa,INTV,INT,A1,A2)
0115
0116 PROTOCCALLSFSUB3(HCOPY,hcopy,INT,INT,STRING)
0117 #define HCOPY(A1,A2,A3)  CCALLSFSUB3(HCOPY,hcopy,INT,INT,STRING,A1,A2,A3)
0118
0119 PROTOCCALLSFSUB8(HCOPYR,hcopyr,INT,INT,STRING,INT,INT,INT,INT,STRING)
0120 #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)
0121
0122 PROTOCCALLSFSUB3(HCOPYM,hcopym,INT,INTV,INT)
0123 #define HCOPYM(A1,A2,A3)  CCALLSFSUB3(HCOPYM,hcopym,INT,INTV,INT,A1,A2,A3)
0124
0125 PROTOCCALLSFSUB1(HDELET,hdelet,INT)
0126 #define HDELET(A1)  CCALLSFSUB1(HDELET,hdelet,INT,A1)
0127
0128 PROTOCCALLSFSUB1(HDERIV,hderiv,FLOATV)
0129 #define HDERIV(A1)  CCALLSFSUB1(HDERIV,hderiv,FLOATV,A1)
0130
0131 PROTOCCALLSFSUB4(HDIFF,hdiff,INT,INT,PFLOAT,STRING)
0132 #define HDIFF(A1,A2,A3,A4)  CCALLSFSUB4(HDIFF,hdiff,INT,INT,PFLOAT,STRING,A1,A2,A3,A4)
0133
0134 PROTOCCALLSFSUB7(HDIFFB,hdiffb,INT,INT,FLOAT,INT,STRING,INT,FLOATV)
0135 #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)
0136
0137 PROTOCCALLSFSUB1(HDUMP,hdump,INT)
0138 #define HDUMP(A1)  CCALLSFSUB1(HDUMP,hdump,INT,A1)
0139
0140 PROTOCCALLSFSUB1(HERMES,hermes,INT)
0141 #define HERMES(A1)  CCALLSFSUB1(HERMES,hermes,INT,A1)
0142
0143 PROTOCCALLSFSUB7(HFC2,hfc2,INT,INT,STRING,INT,STRING,FLOAT,STRING)
0144 #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)
0145
0146 PROTOCCALLSFSUB4(HFF1,hff1,INT,PINT,FLOAT,FLOAT)
0147 #define HFF1(A1,A2,A3,A4)  CCALLSFSUB4(HFF1,hff1,INT,PINT,FLOAT,FLOAT,A1,A2,A3,A4)
0148
0149 PROTOCCALLSFSUB5(HFF2,hff2,INT,PINT,FLOAT,FLOAT,FLOAT)
0150 #define HFF2(A1,A2,A3,A4,A5)  CCALLSFSUB5(HFF2,hff2,INT,PINT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
0151
0152 PROTOCCALLSFSUB4(HFILL,hfill,INT,FLOAT,FLOAT,FLOAT)
0153 #define HFILL(A1,A2,A3,A4)  CCALLSFSUB4(HFILL,hfill,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
0154
0155 PROTOCCALLSFSUB3(HFINAM,hfinam,INT,STRINGV,INT)
0156 #define HFINAM(A1,A2,A3)  CCALLSFSUB3(HFINAM,hfinam,INT,STRINGV,INT,A1,A2,A3)
0157
0158 PROTOCCALLSFSUB6(HFITEX,hfitex,INT,PFLOAT,PFLOAT,PFLOAT,INT,FLOATV)
0159 #define HFITEX(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(HFITEX,hfitex,INT,PFLOAT,PFLOAT,PFLOAT,INT,FLOATV,A1,A2,A3,A4,A5,A6)
0160
0161 PROTOCCALLSFSUB7(HFITGA,hfitga,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,INT,FLOATV)
0162 #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)
0163
0164 PROTOCCALLSFSUB10(HFITH,hfith,INT,ROUTINE,STRING,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT)
0165 #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)
0166
0167 PROTOCCALLSFSUB10(HFITHN,hfithn,INT,STRING,STRING,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT)
0168 #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)
0169
0170 PROTOCCALLSFSUB11(HFITL,hfitl,INT,ROUTINE,INT,DOUBLEV,PFLOAT,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,FLOATV)
0171 #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)
0172
0173 PROTOCCALLSFSUB16(HFITN,hfitn,PFLOAT,FLOATV,FLOATV,INT,INT,INT,ROUTINE,INT,DOUBLEV,PFLOAT,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,FLOATV)
0174 #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)
0175
0176 PROTOCCALLSFSUB6(HFITPO,hfitpo,INT,INT,FLOATV,PFLOAT,INT,FLOATV)
0177 #define HFITPO(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(HFITPO,hfitpo,INT,INT,FLOATV,PFLOAT,INT,FLOATV,A1,A2,A3,A4,A5,A6)
0178
0179 PROTOCCALLSFSUB7(HFITS,hfits,INT,ROUTINE,INT,DOUBLEV,PFLOAT,INT,PFLOAT)
0180 #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)
0181
0182 PROTOCCALLSFSUB15(HFITV,hfitv,INT,INT,INT,PFLOAT,FLOATV,FLOATV,ROUTINE,STRING,INT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,PFLOAT)
0183 #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)
0184
0185 PROTOCCALLSFSUB10(HFIT1,hfit1,FLOATV,FLOATV,FLOATV,INT,ROUTINE,INT,DOUBLEV,PFLOAT,INT,PFLOAT)
0186 #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)
0187
0188 PROTOCCALLSFSUB2(HFN,hfn,INT,FLOATV)
0189 #define HFN(A1,A2)  CCALLSFSUB2(HFN,hfn,INT,FLOATV,A1,A2)
0190
0191 PROTOCCALLSFSUB1(HFNT,hfnt,INT)
0192 #define HFNT(A1)  CCALLSFSUB1(HFNT,hfnt,INT,A1)
0193
0194 PROTOCCALLSFSUB2(HFNTB,hfntb,INT,STRING)
0195 #define HFNTB(A1,A2)  CCALLSFSUB2(HFNTB,hfntb,INT,STRING,A1,A2)
0196
0197 PROTOCCALLSFSUB4(HFPAK1,hfpak1,INT,PINT,FLOATV,INT)
0198 #define HFPAK1(A1,A2,A3,A4)  CCALLSFSUB4(HFPAK1,hfpak1,INT,PINT,FLOATV,INT,A1,A2,A3,A4)
0199
0200 PROTOCCALLSFSUB2(HFUNC,hfunc,INT,ROUTINE)
0201 #define HFUNC(A1,A2)  CCALLSFSUB2(HFUNC,hfunc,INT,ROUTINE,A1,A2)
0202
0203 PROTOCCALLSFSUB3(HF1,hf1,INT,FLOAT,FLOAT)
0204 #define HF1(A1,A2,A3)  CCALLSFSUB3(HF1,hf1,INT,FLOAT,FLOAT,A1,A2,A3)
0205
0206 PROTOCCALLSFSUB4(HF2,hf2,INT,FLOAT,FLOAT,FLOAT)
0207 #define HF2(A1,A2,A3,A4)  CCALLSFSUB4(HF2,hf2,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
0208
0209 PROTOCCALLSFSUB7(HGFIT,hgfit,INT,PINT,PINT,PFLOAT,PFLOAT,PFLOAT,PSTRINGV)
0210 #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)
0211
0212 PROTOCCALLSFSUB10(HGIVE,hgive,INT,PSTRING,PINT,PFLOAT,PFLOAT,PINT,PFLOAT,PFLOAT,PINT,PINT)
0213 #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)
0214
0215 PROTOCCALLSFSUB6(HGIVEN,hgiven,INT,PSTRING,PINT,PSTRINGV,FLOATV,FLOATV)
0216 #define HGIVEN(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(HGIVEN,hgiven,INT,PSTRING,PINT,PSTRINGV,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6)
0217
0218 PROTOCCALLSFSUB3(HKIND,hkind,INT,INTV,STRING)
0219 #define HKIND(A1,A2,A3)  CCALLSFSUB3(HKIND,hkind,INT,INTV,STRING,A1,A2,A3)
0220
0221 PROTOCCALLSFSUB5(HGN,hgn,INT,PINT,INT,FLOATV,PINT)
0222 #define HGN(A1,A2,A3,A4,A5)  CCALLSFSUB5(HGN,hgn,INT,PINT,INT,FLOATV,PINT,A1,A2,A3,A4,A5)
0223
0224 PROTOCCALLSFSUB4(HGNF,hgnf,INT,INT,PFLOAT,PINT)
0225 #define HGNF(A1,A2,A3,A4)  CCALLSFSUB4(HGNF,hgnf,INT,INT,PFLOAT,PINT,A1,A2,A3,A4)
0226
0227 PROTOCCALLSFSUB2(HGNPAR,hgnpar,INT,STRING)
0228 #define HGNPAR(A1,A2)  CCALLSFSUB2(HGNPAR,hgnpar,INT,STRING,A1,A2)
0229
0230 PROTOCCALLSFSUB3(HGNT,hgnt,INT,INT,INT)
0231 #define HGNT(A1,A2,A3)  CCALLSFSUB3(HGNT,hgnt,INT,INT,INT,A1,A2,A3)
0232
0233 PROTOCCALLSFSUB4(HGNTB,hgntb,INT,STRING,INT,INT)
0234 #define HGNTB(A1,A2,A3,A4)  CCALLSFSUB4(HGNTB,hgntb,INT,STRING,INT,INT,A1,A2,A3,A4)
0235
0236 PROTOCCALLSFSUB3(HGNTF,hgntf,INT,INT,PINT)
0237 #define HGNTF(A1,A2,A3)  CCALLSFSUB3(HGNTF,hgntf,INT,INT,PINT,A1,A2,A3)
0238
0239 PROTOCCALLSFSUB5(HGNTV,hgntv,INT,STRINGV,INT,INT,INT)
0240 #define HGNTV(A1,A2,A3,A4,A5)  CCALLSFSUB5(HGNTV,hgntv,INT,STRINGV,INT,INT,INT,A1,A2,A3,A4,A5)
0241
0242 PROTOCCALLSFSUB2(HIDALL,hidall,INTV,PINT)
0243 #define HIDALL(A1,A2)  CCALLSFSUB2(HIDALL,hidall,INTV,PINT,A1,A2)
0244
0245 PROTOCCALLSFSUB2(HIDOPT,hidopt,INT,STRING)
0246 #define HIDOPT(A1,A2)  CCALLSFSUB2(HIDOPT,hidopt,INT,STRING,A1,A2)
0247
0248 PROTOCCALLSFSUB2(HID1,hid1,INTV,PINT)
0249 #define HID1(A1,A2)  CCALLSFSUB2(HID1,hid1,INTV,PINT,A1,A2)
0250
0251 PROTOCCALLSFSUB2(HID2,hid2,INTV,PINT)
0252 #define HID2(A1,A2)  CCALLSFSUB2(HID2,hid2,INTV,PINT,A1,A2)
0253
0254 PROTOCCALLSFSUB5(HIJXY,hijxy,INT,INT,INT,PFLOAT,PFLOAT)
0255 #define HIJXY(A1,A2,A3,A4,A5)  CCALLSFSUB5(HIJXY,hijxy,INT,INT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5)
0256
0257 PROTOCCALLSFSUB0(HINDEX,hindex)
0258 #define HINDEX() CCALLSFSUB0(HINDEX,hindex)
0259
0260 PROTOCCALLSFSUB4(HIPAK1,hipak1,INT,PINT,INTV,INT)
0261 #define HIPAK1(A1,A2,A3,A4)  CCALLSFSUB4(HIPAK1,hipak1,INT,PINT,INTV,INT,A1,A2,A3,A4)
0262
0263 PROTOCCALLSFSUB0(HISTDO,histdo)
0264 #define HISTDO() CCALLSFSUB0(HISTDO,histdo)
0265
0266 PROTOCCALLSFSUB3(HIX,hix,INT,INT,PFLOAT)
0267 #define HIX(A1,A2,A3)  CCALLSFSUB3(HIX,hix,INT,INT,PFLOAT,A1,A2,A3)
0268
0269 PROTOCCALLSFSUB4(HLABEL,hlabel,INT,INT,STRINGV,STRING)
0270 #define HLABEL(A1,A2,A3,A4)  CCALLSFSUB4(HLABEL,hlabel,INT,INT,STRINGV,STRING,A1,A2,A3,A4)
0271
0272 PROTOCCALLSFSUB2(HLDIR,hldir,STRING,STRING)
0273 #define HLDIR(A1,A2)  CCALLSFSUB2(HLDIR,hldir,STRING,STRING,A1,A2)
0274
0275 PROTOCCALLSFSUB1(HLIMIT,hlimit,INT)
0276 #define HLIMIT(A1)  CCALLSFSUB1(HLIMIT,hlimit,INT,A1)
0277
0278 PROTOCCALLSFSUB4(HLNEXT,hlnext,PINT,PSTRING,PSTRING,STRING)
0279 #define HLNEXT(A1,A2,A3,A4)  CCALLSFSUB4(HLNEXT,hlnext,PINT,PSTRING,PSTRING,STRING,A1,A2,A3,A4)
0280
0281 PROTOCCALLSFSUB2(HLOCAT,hlocat,INT,PINT)
0282 #define HLOCAT(A1,A2)  CCALLSFSUB2(HLOCAT,hlocat,INT,PINT,A1,A2)
0283
0284 PROTOCCALLSFSUB2(HMAXIM,hmaxim,INT,FLOAT)
0285 #define HMAXIM(A1,A2)  CCALLSFSUB2(HMAXIM,hmaxim,INT,FLOAT,A1,A2)
0286
0287 PROTOCCALLSFSUB2(HMDIR,hmdir,STRING,STRING)
0288 #define HMDIR(A1,A2)  CCALLSFSUB2(HMDIR,hmdir,STRING,STRING,A1,A2)
0289
0290 PROTOCCALLSFSUB2(HMINIM,hminim,INT,FLOAT)
0291 #define HMINIM(A1,A2)  CCALLSFSUB2(HMINIM,hminim,INT,FLOAT,A1,A2)
0292
0293 PROTOCCALLSFSUB2(HNOENT,hnoent,INT,PINT)
0294 #define HNOENT(A1,A2)  CCALLSFSUB2(HNOENT,hnoent,INT,PINT,A1,A2)
0295
0296 PROTOCCALLSFSUB2(HNORMA,hnorma,INT,FLOAT)
0297 #define HNORMA(A1,A2)  CCALLSFSUB2(HNORMA,hnorma,INT,FLOAT,A1,A2)
0298
0299 PROTOCCALLSFSUB6(HOPERA,hopera,INT,STRING,INT,INT,FLOAT,FLOAT)
0300 #define HOPERA(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(HOPERA,hopera,INT,STRING,INT,INT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6)
0301
0302 PROTOCCALLSFSUB1(HOUTPU,houtpu,INT)
0303 #define HOUTPU(A1)  CCALLSFSUB1(HOUTPU,houtpu,INT,A1)
0304
0305 PROTOCCALLSFSUB1(HPAGSZ,hpagsz,INT)
0306 #define HPAGSZ(A1)  CCALLSFSUB1(HPAGSZ,hpagsz,INT,A1)
0307
0308 PROTOCCALLSFSUB2(HPAK,hpak,INT,FLOATV)
0309 #define HPAK(A1,A2)  CCALLSFSUB2(HPAK,hpak,INT,FLOATV,A1,A2)
0310
0311 PROTOCCALLSFSUB2(HPAKAD,hpakad,INT,FLOATV)
0312 #define HPAKAD(A1,A2)  CCALLSFSUB2(HPAKAD,hpakad,INT,FLOATV,A1,A2)
0313
0314 PROTOCCALLSFSUB2(HPAKE,hpake,INT,FLOATV)
0315 #define HPAKE(A1,A2)  CCALLSFSUB2(HPAKE,hpake,INT,FLOATV,A1,A2)
0316
0317 PROTOCCALLSFSUB7(HPARAM,hparam,INT,INT,FLOAT,INTV,PDOUBLE,PINT,PINT)
0318 #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)
0319
0320 PROTOCCALLSFSUB11(HPARMN,hparmn,PFLOAT,FLOATV,FLOATV,INT,INT,INT,FLOAT,INTV,PDOUBLE,PINT,PINT)
0321 #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)
0322
0323 PROTOCCALLSFSUB2(HPCHAR,hpchar,INTV,INTV)
0324 #define HPCHAR(A1,A2)  CCALLSFSUB2(HPCHAR,hpchar,INTV,INTV,A1,A2)
0325
0326 PROTOCCALLSFSUB2(HPDIR,hpdir,STRING,STRING)
0327 #define HPDIR(A1,A2)  CCALLSFSUB2(HPDIR,hpdir,STRING,STRING,A1,A2)
0328
0329 PROTOCCALLSFSUB3(HPHIST,hphist,INT,STRING,INT)
0330 #define HPHIST(A1,A2,A3)  CCALLSFSUB3(HPHIST,hphist,INT,STRING,INT,A1,A2,A3)
0331
0332 PROTOCCALLSFSUB1(HPHS,hphs,INT)
0333 #define HPHS(A1)  CCALLSFSUB1(HPHS,hphs,INT,A1)
0334
0335 PROTOCCALLSFSUB1(HPHST,hphst,INT)
0336 #define HPHST(A1)  CCALLSFSUB1(HPHST,hphst,INT,A1)
0337
0338 PROTOCCALLSFSUB0(HPONCE,hponce)
0339 #define HPONCE() CCALLSFSUB0(HPONCE,hponce)
0340
0341 PROTOCCALLSFSUB1(HPRINT,hprint,INT)
0342 #define HPRINT(A1)  CCALLSFSUB1(HPRINT,hprint,INT,A1)
0343
0344 PROTOCCALLSFSUB1(HPRNT,hprnt,INT)
0345 #define HPRNT(A1)  CCALLSFSUB1(HPRNT,hprnt,INT,A1)
0346
0347 PROTOCCALLSFSUB7(HPROJ1,hproj1,INT,INT,INT,ROUTINE,INT,INT,INT)
0348 #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)
0349
0350 PROTOCCALLSFSUB8(HPROJ2,hproj2,INT,INT,INT,ROUTINE,INT,INT,INT,INT)
0351 #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)
0352
0353 PROTOCCALLSFSUB3(HPROT,hprot,INT,STRING,INT)
0354 #define HPROT(A1,A2,A3)  CCALLSFSUB3(HPROT,hprot,INT,STRING,INT,A1,A2,A3)
0355
0356 PROTOCCALLSFSUB1(HPSCAT,hpscat,INT)
0357 #define HPSCAT(A1)  CCALLSFSUB1(HPSCAT,hpscat,INT,A1)
0358
0359 PROTOCCALLSFSUB1(HPTAB,hptab,INT)
0360 #define HPTAB(A1)  CCALLSFSUB1(HPTAB,hptab,INT,A1)
0361
0362 PROTOCCALLSFSUB11(HQUAD,hquad,INT,STRING,INT,FLOAT,FLOAT,PINT,PFLOAT,PINT,PFLOAT,PFLOAT,PINT)
0363 #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)
0364
0365 PROTOCCALLSFSUB3(HRDIR,hrdir,INT,PSTRINGV,PINT)
0366 #define HRDIR(A1,A2,A3)  CCALLSFSUB3(HRDIR,hrdir,INT,PSTRINGV,PINT,A1,A2,A3)
0367
0368 PROTOCCALLSFSUB8(HREBIN,hrebin,INT,FLOATV,FLOATV,FLOATV,FLOATV,INT,INT,INT)
0369 #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)
0370
0371 PROTOCCALLSFSUB2(HRECOV,hrecov,INT,STRING)
0372 #define HRECOV(A1,A2)  CCALLSFSUB2(HRECOV,hrecov,INT,STRING,A1,A2)
0373
0374 PROTOCCALLSFSUB1(HREND,hrend,STRING)
0375 #define HREND(A1)  CCALLSFSUB1(HREND,hrend,STRING,A1)
0376
0377 PROTOCCALLSFSUB1(HRENDC,hrendc,STRING)
0378 #define HRENDC(A1)  CCALLSFSUB1(HRENDC,hrendc,STRING,A1)
0379
0380 PROTOCCALLSFSUB2(HRESET,hreset,INT,STRING)
0381 #define HRESET(A1,A2)  CCALLSFSUB2(HRESET,hreset,INT,STRING,A1,A2)
0382
0383 PROTOCCALLSFSUB3(HRFILE,hrfile,INT,STRING,STRING)
0384 #define HRFILE(A1,A2,A3)  CCALLSFSUB3(HRFILE,hrfile,INT,STRING,STRING,A1,A2,A3)
0385
0386 PROTOCCALLSFSUB3(HRGET,hrget,INT,STRING,STRING)
0387 #define HRGET(A1,A2,A3)  CCALLSFSUB3(HRGET,hrget,INT,STRING,STRING,A1,A2,A3)
0388
0389 PROTOCCALLSFSUB3(HRIN,hrin,INT,INT,INT)
0390 #define HRIN(A1,A2,A3)  CCALLSFSUB3(HRIN,hrin,INT,INT,INT,A1,A2,A3)
0391
0392 PROTOCCALLSFSUB3(HRNDM2,hrndm2,INT,PFLOAT,PFLOAT)
0393 #define HRNDM2(A1,A2,A3)  CCALLSFSUB3(HRNDM2,hrndm2,INT,PFLOAT,PFLOAT,A1,A2,A3)
0394
0395 PROTOCCALLSFSUB6(HROPEN,hropen,INT,STRING,STRING,STRING,PINT,PINT)
0396 #define HROPEN(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(HROPEN,hropen,INT,STRING,STRING,STRING,PINT,PINT,A1,A2,A3,A4,A5,A6)
0397
0398 PROTOCCALLSFSUB3(HROUT,hrout,INT,PINT,STRING)
0399 #define HROUT(A1,A2,A3)  CCALLSFSUB3(HROUT,hrout,INT,PINT,STRING,A1,A2,A3)
0400
0401 PROTOCCALLSFSUB3(HRPUT,hrput,INT,STRING,STRING)
0402 #define HRPUT(A1,A2,A3)  CCALLSFSUB3(HRPUT,hrput,INT,STRING,STRING,A1,A2,A3)
0403
0404 PROTOCCALLSFSUB2(HSCALE,hscale,INT,FLOAT)
0405 #define HSCALE(A1,A2)  CCALLSFSUB2(HSCALE,hscale,INT,FLOAT,A1,A2)
0406
0407 PROTOCCALLSFSUB3(HSCR,hscr,INT,INT,STRING)
0408 #define HSCR(A1,A2,A3)  CCALLSFSUB3(HSCR,hscr,INT,INT,STRING,A1,A2,A3)
0409
0410 PROTOCCALLSFSUB2(HSETPR,hsetpr,STRING,FLOAT)
0411 #define HSETPR(A1,A2)  CCALLSFSUB2(HSETPR,hsetpr,STRING,FLOAT,A1,A2)
0412
0413 PROTOCCALLSFSUB3(HSMOOF,hsmoof,INT,INT,FLOAT)
0414 #define HSMOOF(A1,A2,A3)  CCALLSFSUB3(HSMOOF,hsmoof,INT,INT,FLOAT,A1,A2,A3)
0415
0416 PROTOCCALLSFSUB5(HSPLI1,hspli1,INT,INT,INT,INT,PFLOAT)
0417 #define HSPLI1(A1,A2,A3,A4,A5)  CCALLSFSUB5(HSPLI1,hspli1,INT,INT,INT,INT,PFLOAT,A1,A2,A3,A4,A5)
0418
0419 PROTOCCALLSFSUB5(HSPLI2,hspli2,INT,INT,INT,INT,INT)
0420 #define HSPLI2(A1,A2,A3,A4,A5)  CCALLSFSUB5(HSPLI2,hspli2,INT,INT,INT,INT,INT,A1,A2,A3,A4,A5)
0421
0422 PROTOCCALLSFSUB1(HSQUEZ,hsquez,STRING)
0423 #define HSQUEZ(A1)  CCALLSFSUB1(HSQUEZ,hsquez,STRING,A1)
0424
0425 PROTOCCALLSFSUB1(HTITLE,htitle,STRING)
0426 #define HTITLE(A1)  CCALLSFSUB1(HTITLE,htitle,STRING,A1)
0427
0428 PROTOCCALLSFSUB4(HUNPAK,hunpak,INT,FLOATV,STRING,INT)
0429 #define HUNPAK(A1,A2,A3,A4)  CCALLSFSUB4(HUNPAK,hunpak,INT,FLOATV,STRING,INT,A1,A2,A3,A4)
0430
0431 PROTOCCALLSFSUB4(HUNPKE,hunpke,INT,FLOATV,STRING,INT)
0432 #define HUNPKE(A1,A2,A3,A4)  CCALLSFSUB4(HUNPKE,hunpke,INT,FLOATV,STRING,INT,A1,A2,A3,A4)
0433
0434 PROTOCCALLSFSUB5(HUWFUN,huwfun,INT,INT,STRING,INT,STRING)
0435 #define HUWFUN(A1,A2,A3,A4,A5)  CCALLSFSUB5(HUWFUN,huwfun,INT,INT,STRING,INT,STRING,A1,A2,A3,A4,A5)
0436
0437 PROTOCCALLSFSUB3(HXI,hxi,INT,FLOAT,PINT)
0438 #define HXI(A1,A2,A3)  CCALLSFSUB3(HXI,hxi,INT,FLOAT,PINT,A1,A2,A3)
0439
0440 PROTOCCALLSFSUB5(HXYIJ,hxyij,INT,FLOAT,FLOAT,PINT,PINT)
0441 #define HXYIJ(A1,A2,A3,A4,A5)  CCALLSFSUB5(HXYIJ,hxyij,INT,FLOAT,FLOAT,PINT,PINT,A1,A2,A3,A4,A5)
0442
0443 PROTOCCALLSFFUN1(LOGICAL,HEXIST,hexist,INT)
0444 #define HEXIST(A2)  CCALLSFFUN1(HEXIST,hexist,INT,A2)
0445
0446 PROTOCCALLSFFUN2(FLOAT,HI,hi,INT,INT)
0447 #define HI(A2,A3)  CCALLSFFUN2(HI,hi,INT,INT,A2,A3)
0448
0449 PROTOCCALLSFFUN2(FLOAT,HIE,hie,INT,INT)
0450 #define HIE(A2,A3)  CCALLSFFUN2(HIE,hie,INT,INT,A2,A3)
0451
0452 PROTOCCALLSFFUN2(FLOAT,HIF,hif,INT,INT)
0453 #define HIF(A2,A3)  CCALLSFFUN2(HIF,hif,INT,INT,A2,A3)
0454
0455 PROTOCCALLSFFUN3(FLOAT,HIJ,hij,INT,INT,INT)
0456 #define HIJ(A2,A3,A4)  CCALLSFFUN3(HIJ,hij,INT,INT,INT,A2,A3,A4)
0457
0458 PROTOCCALLSFFUN3(FLOAT,HIJE,hije,INT,INT,INT)
0459 #define HIJE(A2,A3,A4)  CCALLSFFUN3(HIJE,hije,INT,INT,INT,A2,A3,A4)
0460
0461 PROTOCCALLSFFUN1(FLOAT,HMAX,hmax,INT)
0462 #define HMAX(A2)  CCALLSFFUN1(HMAX,hmax,INT,A2)
0463
0464 PROTOCCALLSFFUN1(FLOAT,HMIN,hmin,INT)
0465 #define HMIN(A2)  CCALLSFFUN1(HMIN,hmin,INT,A2)
0466
0467 PROTOCCALLSFFUN1(FLOAT,HRNDM1,hrndm1,INT)
0468 #define HRNDM1(A2)  CCALLSFFUN1(HRNDM1,hrndm1,INT,A2)
0469
0470 PROTOCCALLSFFUN4(FLOAT,HSPFUN,hspfun,INT,FLOAT,INT,INT)
0471 #define HSPFUN(A2,A3,A4,A5)  CCALLSFFUN4(HSPFUN,hspfun,INT,FLOAT,INT,INT,A2,A3,A4,A5)
0472
0473 PROTOCCALLSFFUN4(FLOAT,HSTATI,hstati,INT,INT,STRING,INT)
0474 #define HSTATI(A2,A3,A4,A5)  CCALLSFFUN4(HSTATI,hstati,INT,INT,STRING,INT,A2,A3,A4,A5)
0475
0476 PROTOCCALLSFFUN1(FLOAT,HSUM,hsum,INT)
0477 #define HSUM(A2)  CCALLSFFUN1(HSUM,hsum,INT,A2)
0478
0479 PROTOCCALLSFFUN2(FLOAT,HX,hx,INT,FLOAT)
0480 #define HX(A2,A3)  CCALLSFFUN2(HX,hx,INT,FLOAT,A2,A3)
0481
0482 PROTOCCALLSFFUN2(FLOAT,HXE,hxe,INT,FLOAT)
0483 #define HXE(A2,A3)  CCALLSFFUN2(HXE,hxe,INT,FLOAT,A2,A3)
0484
0485 PROTOCCALLSFFUN3(FLOAT,HXY,hxy,INT,FLOAT,FLOAT)
0486 #define HXY(A2,A3,A4)  CCALLSFFUN3(HXY,hxy,INT,FLOAT,FLOAT,A2,A3,A4)
0487
0488 PROTOCCALLSFSUB11(HBALLOC,hballoc,INT,STRING,STRING,STRING,INT,INT,INT,INT,INTV,PINT,PINT)
0489 #define HBALLOC(IDN,CHDIR,VAR,BLOCK,ITYPE,ISIZE,IFIRST,NELEM,IBASE,IOFF,NUSE)\
0490         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)
0491
0492 PROTOCCALLSFSUB11(HBALLOC64,hballoc64,INT,STRING,STRING,STRING,INT,INT,INT,INT,INTV,PLONG,PINT)
0493 #define HBALLOC64(IDN,CHDIR,VAR,BLOCK,ITYPE,ISIZE,IFIRST,NELEM,IBASE,IOFF,NUSE)\
0494         CCALLSFSUB11(HBALLOC64,hballoc64,INT,STRING,STRING,STRING,INT,INT,INT,INT,INTV,PLONG,PINT,IDN,CHDIR,VAR,BLOCK,ITYPE,ISIZE,IFIRST,NELEM,IBASE,IOFF,NUSE)
0495
0496 PROTOCCALLSFSUB1(HBFREE,hbfree,INT)
0497 #define HBFREE(LUN) CCALLSFSUB1(HBFREE,hbfree,INT,LUN)
0498
0499 PROTOCCALLSFSUB1(HBINIT1,hbinit1,INT)
0500 #define HBINIT1(IFLAG) CCALLSFSUB1(HBINIT1,hbinit1,INT,IFLAG)
0501
0502 PROTOCCALLSFSUB0(HDCOFL,hdcofl)
0503 #define HDCOFL() CCALLSFSUB0(HDCOFL,hdcofl)
0504
0505 PROTOCCALLSFSUB4(HF1N,hf1n,INT,FLOATV,FLOATV,INT)
0506 #define HF1N(ID,X,W,NEVT) CCALLSFSUB4(HF1N,hf1n,INT,FLOATV,FLOATV,INT,ID,X,W,NEVT)
0507
0508 PROTOCCALLSFSUB6(HGNTBF,hgntbf,INT,ZTRINGV,INTV,INT,INT,PINT)
0509 /* fix the element length of VAR to 32 */
0510 #define hgntbf_ELEMS_2          ZTRINGV_ARGS(4)
0511 #define hgntbf_ELEMLEN_2        ZTRINGV_NUM(32)
0512 #define HGNTBF(IDN,VAR,IOFFST,NVAR,IDNEVT,IERROR)\
0513         CCALLSFSUB6(HGNTBF,hgntbf,INT,ZTRINGV,INTV,INT,INT,PINT,IDN,VAR,IOFFST,NVAR,IDNEVT,IERROR)
0514 PROTOCCALLSFSUB6(HGNTBF64,hgntbf64,INT,ZTRINGV,LONGV,INT,INT,PINT)
0515 /* fix the element length of VAR to 32 */
0516 #define hgntbf64_ELEMS_2          ZTRINGV_ARGS(4)
0517 #define hgntbf64_ELEMLEN_2        ZTRINGV_NUM(32)
0518 #define HGNTBF64(IDN,VAR,IOFFST,NVAR,IDNEVT,IERROR)\
0519         CCALLSFSUB6(HGNTBF64,hgntbf64,INT,ZTRINGV,LONGV,INT,INT,PINT,IDN,VAR,IOFFST,NVAR,IDNEVT,IERROR)
0520
0521 PROTOCCALLSFSUB6(HGNTBF64,hgntbf64,INT,ZTRINGV,LONGV,INT,INT,PINT)
0522 /* fix the element length of VAR to 32 */
0523 #define hgntbf64_ELEMS_2          ZTRINGV_ARGS(4)
0524 #define hgntbf64_ELEMLEN_2        ZTRINGV_NUM(32)
0525 #define HGNTBF64(IDN,VAR,IOFFST,NVAR,IDNEVT,IERROR)\
0526         CCALLSFSUB6(HGNTBF64,hgntbf64,INT,ZTRINGV,LONGV,INT,INT,PINT,IDN,VAR,IOFFST,NVAR,IDNEVT,IERROR)
0527
0528 PROTOCCALLSFSUB1(HGTDIR,hgtdir,PSTRING)
0529 #define HGTDIR(CHDIR) CCALLSFSUB1(HGTDIR,hgtdir,PSTRING,CHDIR)
0530
0531 PROTOCCALLSFFUN2(LOGICAL,HLABEQ,hlabeq,INT,STRING)
0532 #define HLABEQ(IDD,CHOPT) CCALLSFFUN2(HLABEQ,hlabeq,INT,STRING,IDD,CHOPT)
0533
0534 PROTOCCALLSFFUN2(INT,HLABNB,hlabnb,INT,STRING)
0535 #define HLABNB(IDD,CHOPT) CCALLSFFUN2(HLABNB,hlabnb,INT,STRING,IDD,CHOPT)
0536
0537 PROTOCCALLSFSUB4(HLGNXT,hlgnxt,INT,INT,PSTRING,STRING)
0538 #define HLGNXT(IDD,IPOS,CHLAB,CHOPT) CCALLSFSUB4(HLGNXT,hlgnxt,INT,INT,PSTRING,STRING,IDD,IPOS,CHLAB,CHOPT)
0539
0540 PROTOCCALLSFSUB2(HLOGPF,hlogpf,STRING,PINT)
0541 #define HLOGPF(CHHEAD,ISTAT) CCALLSFSUB2(HLOGPF,hlogpf,STRING,PINT,CHHEAD,ISTAT)
0542
0543 PROTOCCALLSFSUB4(HNTDIM,hntdim,STRING,PINT,INTV,INT)
0544 #define HNTDIM(TVAR,NVDIM,IVDIM,MXVDIM) CCALLSFSUB4(HNTDIM,hntdim,STRING,PINT,INTV,INT,TVAR,NVDIM,IVDIM,MXVDIM)
0545
0546 PROTOCCALLSFSUB7(HNTGET,hntget,INT,STRING,PINT,PINT,PINT,PINT,PINT)
0547 #define HNTGET(ID1,TVAR,INDX,ITYPE,ISIZE,IELEM,IER)\
0548         CCALLSFSUB7(HNTGET,hntget,INT,STRING,PINT,PINT,PINT,PINT,PINT,ID1,TVAR,INDX,ITYPE,ISIZE,IELEM,IER)
0549
0550 PROTOCCALLSFSUB8(HNTGETI,hntgeti,INT,INT,INT,PSTRING,PINT,PINT,PINT,PINT)
0551 #define HNTGETI(ID1,ICOM,INDX,TVAR,ITYPE,ISIZE,IELEM,IER)\
0552         CCALLSFSUB8(HNTGETI,hntgeti,INT,INT,INT,PSTRING,PINT,PINT,PINT,PINT,ID1,ICOM,INDX,TVAR,ITYPE,ISIZE,IELEM,IER)
0553
0554 PROTOCCALLSFFUN1(LOGICAL,HNTNEW,hntnew,INT)
0555 #define HNTNEW(IDN) CCALLSFFUN1(HNTNEW,hntnew,INT,IDN)
0556
0557 PROTOCCALLSFSUB4(HNTRNG,hntrng,STRING,PINT,PINT,PINT)
0558 #define HNTRNG(TVAR,ILOW,IUP,IERR) CCALLSFSUB4(HNTRNG,hntrng,STRING,PINT,PINT,PINT,TVAR,ILOW,IUP,IERR)
0559
0560 PROTOCCALLSFSUB8(HNTVAR,hntvar,INT,INT,PSTRING,PSTRING,PINT,PINT,PINT,PINT)
0561 #define HNTVAR(ID1,IVAR,CHTAG,BLOCK,NSUB,ITYPE,ISIZE,IELEM) \
0562         CCALLSFSUB8(HNTVAR,hntvar,INT,INT,PSTRING,PSTRING,PINT,PINT,PINT,PINT,ID1,IVAR,CHTAG,BLOCK,NSUB,ITYPE,ISIZE,IELEM)
0563
0564 PROTOCCALLSFSUB4(HRNGPF,hrngpf,INT,INT,PINT,PINT)
0565 #define HRNGPF(NSLAV,MYSID,IFIRST,ITO) \
0566     CCALLSFSUB4(HRNGPF,hrngpf,INT,INT,PINT,PINT,NSLAV,MYSID,IFIRST,ITO)
0567
0568 PROTOCCALLSFSUB6(HVXIST,hvxist,STRING,PSTRING,PSTRING,PINT,PINT,PINT)
0569 #define HVXIST(TVAR,BLOCK,CIVAR,ITYPE,ISIZE,IELEM) \
0570     CCALLSFSUB6(HVXIST,hvxist,STRING,PSTRING,PSTRING,PINT,PINT,PINT,\
0571     TVAR,BLOCK,CIVAR,ITYPE,ISIZE,IELEM)
0572
0573 #if defined(vms) || defined(__vms)
0574
0575 PROTOCCALLSFFUN3(INT,HCREATEG,hcreateg,STRING,PINT,INT)
0576 #define HCREATEG(A2,A3,A4)  CCALLSFFUN3(HCREATEG,hcreateg,STRING,PINT,INT,A2,A3,A4)
0577
0578 PROTOCCALLSFFUN3(INT,HMAPG,hmapg,STRING,PINT,PINT)
0579 #define HMAPG(A2,A3,A4)  CCALLSFFUN3(HMAPG,hmapg,STRING,PINT,PINT,A2,A3,A4)
0580
0581 #else
0582
0583 PROTOCCALLSFSUB2(HLIMAP,hlimap,INT,STRING)
0584 #define HLIMAP(A1,A2)  CCALLSFSUB2(HLIMAP,hlimap,INT,STRING,A1,A2)
0585
0586 #endif