| [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 |  | 
|---|
|  | 23 | PROTOCCALLSFSUB3(HARRAY,harray,INT,INT,PINT) | 
|---|
|  | 24 | #define HARRAY(A1,A2,A3)  CCALLSFSUB3(HARRAY,harray,INT,INT,PINT,A1,A2,A3) | 
|---|
|  | 25 |  | 
|---|
|  | 26 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 29 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 32 | PROTOCCALLSFSUB1(HBARX,hbarx,INT) | 
|---|
|  | 33 | #define HBARX(A1)  CCALLSFSUB1(HBARX,hbarx,INT,A1) | 
|---|
|  | 34 |  | 
|---|
|  | 35 | PROTOCCALLSFSUB1(HBARY,hbary,INT) | 
|---|
|  | 36 | #define HBARY(A1)  CCALLSFSUB1(HBARY,hbary,INT,A1) | 
|---|
|  | 37 |  | 
|---|
|  | 38 | PROTOCCALLSFSUB6(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 |  | 
|---|
|  | 41 | PROTOCCALLSFSUB9(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 |  | 
|---|
|  | 44 | PROTOCCALLSFSUB2(HBIGBI,hbigbi,INT,INT) | 
|---|
|  | 45 | #define HBIGBI(A1,A2)  CCALLSFSUB2(HBIGBI,hbigbi,INT,INT,A1,A2) | 
|---|
|  | 46 |  | 
|---|
|  | 47 | PROTOCCALLSFSUB2(HRENID,hrenid,INT,INT) | 
|---|
|  | 48 | #define HRENID(A1,A2)  CCALLSFSUB2(HRENID,hrenid,INT,INT,A1,A2) | 
|---|
|  | 49 |  | 
|---|
|  | 50 | PROTOCCALLSFSUB1(HBINSZ,hbinsz,STRING) | 
|---|
|  | 51 | #define HBINSZ(A1)  CCALLSFSUB1(HBINSZ,hbinsz,STRING,A1) | 
|---|
|  | 52 |  | 
|---|
|  | 53 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 68 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 71 | PROTOCCALLSFSUB3(HBNT,hbnt,INT,STRING,STRING) | 
|---|
|  | 72 | #define HBNT(A1,A2,A3)  CCALLSFSUB3(HBNT,hbnt,INT,STRING,STRING,A1,A2,A3) | 
|---|
|  | 73 |  | 
|---|
|  | 74 | PROTOCCALLSFSUB5(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 |  | 
|---|
|  | 77 | PROTOCCALLSFSUB5(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 |  | 
|---|
|  | 80 | PROTOCCALLSFSUB6(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 |  | 
|---|
|  | 83 | PROTOCCALLSFSUB6(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 |  | 
|---|
|  | 86 | PROTOCCALLSFSUB9(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 |  | 
|---|
|  | 89 | PROTOCCALLSFSUB2(HBPRO,hbpro,INT,FLOAT) | 
|---|
|  | 90 | #define HBPRO(A1,A2)  CCALLSFSUB2(HBPRO,hbpro,INT,FLOAT,A1,A2) | 
|---|
|  | 91 |  | 
|---|
|  | 92 | PROTOCCALLSFSUB8(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 |  | 
|---|
|  | 95 | PROTOCCALLSFSUB2(HBPROX,hbprox,INT,FLOAT) | 
|---|
|  | 96 | #define HBPROX(A1,A2)  CCALLSFSUB2(HBPROX,hbprox,INT,FLOAT,A1,A2) | 
|---|
|  | 97 |  | 
|---|
|  | 98 | PROTOCCALLSFSUB2(HBPROY,hbproy,INT,FLOAT) | 
|---|
|  | 99 | #define HBPROY(A1,A2)  CCALLSFSUB2(HBPROY,hbproy,INT,FLOAT,A1,A2) | 
|---|
|  | 100 |  | 
|---|
|  | 101 | PROTOCCALLSFSUB3(HBSET,hbset,STRING,INT,PINT) | 
|---|
|  | 102 | #define HBSET(A1,A2,A3)  CCALLSFSUB3(HBSET,hbset,STRING,INT,PINT,A1,A2,A3) | 
|---|
|  | 103 |  | 
|---|
|  | 104 | PROTOCCALLSFSUB3(HBSLIX,hbslix,INT,INT,FLOAT) | 
|---|
|  | 105 | #define HBSLIX(A1,A2,A3)  CCALLSFSUB3(HBSLIX,hbslix,INT,INT,FLOAT,A1,A2,A3) | 
|---|
|  | 106 |  | 
|---|
|  | 107 | PROTOCCALLSFSUB3(HBSLIY,hbsliy,INT,INT,FLOAT) | 
|---|
|  | 108 | #define HBSLIY(A1,A2,A3)  CCALLSFSUB3(HBSLIY,hbsliy,INT,INT,FLOAT,A1,A2,A3) | 
|---|
|  | 109 |  | 
|---|
|  | 110 | PROTOCCALLSFSUB2(HCDIR,hcdir,PSTRING,STRING) | 
|---|
|  | 111 | #define HCDIR(A1,A2)  CCALLSFSUB2(HCDIR,hcdir,PSTRING,STRING,A1,A2) | 
|---|
|  | 112 |  | 
|---|
|  | 113 | PROTOCCALLSFSUB2(HCOMPA,hcompa,INTV,INT) | 
|---|
|  | 114 | #define HCOMPA(A1,A2)  CCALLSFSUB2(HCOMPA,hcompa,INTV,INT,A1,A2) | 
|---|
|  | 115 |  | 
|---|
|  | 116 | PROTOCCALLSFSUB3(HCOPY,hcopy,INT,INT,STRING) | 
|---|
|  | 117 | #define HCOPY(A1,A2,A3)  CCALLSFSUB3(HCOPY,hcopy,INT,INT,STRING,A1,A2,A3) | 
|---|
|  | 118 |  | 
|---|
|  | 119 | PROTOCCALLSFSUB8(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 |  | 
|---|
|  | 122 | PROTOCCALLSFSUB3(HCOPYM,hcopym,INT,INTV,INT) | 
|---|
|  | 123 | #define HCOPYM(A1,A2,A3)  CCALLSFSUB3(HCOPYM,hcopym,INT,INTV,INT,A1,A2,A3) | 
|---|
|  | 124 |  | 
|---|
|  | 125 | PROTOCCALLSFSUB1(HDELET,hdelet,INT) | 
|---|
|  | 126 | #define HDELET(A1)  CCALLSFSUB1(HDELET,hdelet,INT,A1) | 
|---|
|  | 127 |  | 
|---|
|  | 128 | PROTOCCALLSFSUB1(HDERIV,hderiv,FLOATV) | 
|---|
|  | 129 | #define HDERIV(A1)  CCALLSFSUB1(HDERIV,hderiv,FLOATV,A1) | 
|---|
|  | 130 |  | 
|---|
|  | 131 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 134 | PROTOCCALLSFSUB7(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 |  | 
|---|
|  | 137 | PROTOCCALLSFSUB1(HDUMP,hdump,INT) | 
|---|
|  | 138 | #define HDUMP(A1)  CCALLSFSUB1(HDUMP,hdump,INT,A1) | 
|---|
|  | 139 |  | 
|---|
|  | 140 | PROTOCCALLSFSUB1(HERMES,hermes,INT) | 
|---|
|  | 141 | #define HERMES(A1)  CCALLSFSUB1(HERMES,hermes,INT,A1) | 
|---|
|  | 142 |  | 
|---|
|  | 143 | PROTOCCALLSFSUB7(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 |  | 
|---|
|  | 146 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 149 | PROTOCCALLSFSUB5(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 |  | 
|---|
|  | 152 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 155 | PROTOCCALLSFSUB3(HFINAM,hfinam,INT,STRINGV,INT) | 
|---|
|  | 156 | #define HFINAM(A1,A2,A3)  CCALLSFSUB3(HFINAM,hfinam,INT,STRINGV,INT,A1,A2,A3) | 
|---|
|  | 157 |  | 
|---|
|  | 158 | PROTOCCALLSFSUB6(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 |  | 
|---|
|  | 161 | PROTOCCALLSFSUB7(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 |  | 
|---|
|  | 164 | PROTOCCALLSFSUB10(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 |  | 
|---|
|  | 167 | PROTOCCALLSFSUB10(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 |  | 
|---|
|  | 170 | PROTOCCALLSFSUB11(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 |  | 
|---|
|  | 173 | PROTOCCALLSFSUB16(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 |  | 
|---|
|  | 176 | PROTOCCALLSFSUB6(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 |  | 
|---|
|  | 179 | PROTOCCALLSFSUB7(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 |  | 
|---|
|  | 182 | PROTOCCALLSFSUB15(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 |  | 
|---|
|  | 185 | PROTOCCALLSFSUB10(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 |  | 
|---|
|  | 188 | PROTOCCALLSFSUB2(HFN,hfn,INT,FLOATV) | 
|---|
|  | 189 | #define HFN(A1,A2)  CCALLSFSUB2(HFN,hfn,INT,FLOATV,A1,A2) | 
|---|
|  | 190 |  | 
|---|
|  | 191 | PROTOCCALLSFSUB1(HFNT,hfnt,INT) | 
|---|
|  | 192 | #define HFNT(A1)  CCALLSFSUB1(HFNT,hfnt,INT,A1) | 
|---|
|  | 193 |  | 
|---|
|  | 194 | PROTOCCALLSFSUB2(HFNTB,hfntb,INT,STRING) | 
|---|
|  | 195 | #define HFNTB(A1,A2)  CCALLSFSUB2(HFNTB,hfntb,INT,STRING,A1,A2) | 
|---|
|  | 196 |  | 
|---|
|  | 197 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 200 | PROTOCCALLSFSUB2(HFUNC,hfunc,INT,ROUTINE) | 
|---|
|  | 201 | #define HFUNC(A1,A2)  CCALLSFSUB2(HFUNC,hfunc,INT,ROUTINE,A1,A2) | 
|---|
|  | 202 |  | 
|---|
|  | 203 | PROTOCCALLSFSUB3(HF1,hf1,INT,FLOAT,FLOAT) | 
|---|
|  | 204 | #define HF1(A1,A2,A3)  CCALLSFSUB3(HF1,hf1,INT,FLOAT,FLOAT,A1,A2,A3) | 
|---|
|  | 205 |  | 
|---|
|  | 206 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 209 | PROTOCCALLSFSUB7(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 |  | 
|---|
|  | 212 | PROTOCCALLSFSUB10(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 |  | 
|---|
|  | 215 | PROTOCCALLSFSUB6(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 |  | 
|---|
|  | 218 | PROTOCCALLSFSUB3(HKIND,hkind,INT,INTV,STRING) | 
|---|
|  | 219 | #define HKIND(A1,A2,A3)  CCALLSFSUB3(HKIND,hkind,INT,INTV,STRING,A1,A2,A3) | 
|---|
|  | 220 |  | 
|---|
|  | 221 | PROTOCCALLSFSUB5(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 |  | 
|---|
|  | 224 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 227 | PROTOCCALLSFSUB2(HGNPAR,hgnpar,INT,STRING) | 
|---|
|  | 228 | #define HGNPAR(A1,A2)  CCALLSFSUB2(HGNPAR,hgnpar,INT,STRING,A1,A2) | 
|---|
|  | 229 |  | 
|---|
|  | 230 | PROTOCCALLSFSUB3(HGNT,hgnt,INT,INT,INT) | 
|---|
|  | 231 | #define HGNT(A1,A2,A3)  CCALLSFSUB3(HGNT,hgnt,INT,INT,INT,A1,A2,A3) | 
|---|
|  | 232 |  | 
|---|
|  | 233 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 236 | PROTOCCALLSFSUB3(HGNTF,hgntf,INT,INT,PINT) | 
|---|
|  | 237 | #define HGNTF(A1,A2,A3)  CCALLSFSUB3(HGNTF,hgntf,INT,INT,PINT,A1,A2,A3) | 
|---|
|  | 238 |  | 
|---|
|  | 239 | PROTOCCALLSFSUB5(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 |  | 
|---|
|  | 242 | PROTOCCALLSFSUB2(HIDALL,hidall,INTV,PINT) | 
|---|
|  | 243 | #define HIDALL(A1,A2)  CCALLSFSUB2(HIDALL,hidall,INTV,PINT,A1,A2) | 
|---|
|  | 244 |  | 
|---|
|  | 245 | PROTOCCALLSFSUB2(HIDOPT,hidopt,INT,STRING) | 
|---|
|  | 246 | #define HIDOPT(A1,A2)  CCALLSFSUB2(HIDOPT,hidopt,INT,STRING,A1,A2) | 
|---|
|  | 247 |  | 
|---|
|  | 248 | PROTOCCALLSFSUB2(HID1,hid1,INTV,PINT) | 
|---|
|  | 249 | #define HID1(A1,A2)  CCALLSFSUB2(HID1,hid1,INTV,PINT,A1,A2) | 
|---|
|  | 250 |  | 
|---|
|  | 251 | PROTOCCALLSFSUB2(HID2,hid2,INTV,PINT) | 
|---|
|  | 252 | #define HID2(A1,A2)  CCALLSFSUB2(HID2,hid2,INTV,PINT,A1,A2) | 
|---|
|  | 253 |  | 
|---|
|  | 254 | PROTOCCALLSFSUB5(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 |  | 
|---|
|  | 257 | PROTOCCALLSFSUB0(HINDEX,hindex) | 
|---|
|  | 258 | #define HINDEX() CCALLSFSUB0(HINDEX,hindex) | 
|---|
|  | 259 |  | 
|---|
|  | 260 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 263 | PROTOCCALLSFSUB0(HISTDO,histdo) | 
|---|
|  | 264 | #define HISTDO() CCALLSFSUB0(HISTDO,histdo) | 
|---|
|  | 265 |  | 
|---|
|  | 266 | PROTOCCALLSFSUB3(HIX,hix,INT,INT,PFLOAT) | 
|---|
|  | 267 | #define HIX(A1,A2,A3)  CCALLSFSUB3(HIX,hix,INT,INT,PFLOAT,A1,A2,A3) | 
|---|
|  | 268 |  | 
|---|
|  | 269 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 272 | PROTOCCALLSFSUB2(HLDIR,hldir,STRING,STRING) | 
|---|
|  | 273 | #define HLDIR(A1,A2)  CCALLSFSUB2(HLDIR,hldir,STRING,STRING,A1,A2) | 
|---|
|  | 274 |  | 
|---|
|  | 275 | PROTOCCALLSFSUB1(HLIMIT,hlimit,INT) | 
|---|
|  | 276 | #define HLIMIT(A1)  CCALLSFSUB1(HLIMIT,hlimit,INT,A1) | 
|---|
|  | 277 |  | 
|---|
|  | 278 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 281 | PROTOCCALLSFSUB2(HLOCAT,hlocat,INT,PINT) | 
|---|
|  | 282 | #define HLOCAT(A1,A2)  CCALLSFSUB2(HLOCAT,hlocat,INT,PINT,A1,A2) | 
|---|
|  | 283 |  | 
|---|
|  | 284 | PROTOCCALLSFSUB2(HMAXIM,hmaxim,INT,FLOAT) | 
|---|
|  | 285 | #define HMAXIM(A1,A2)  CCALLSFSUB2(HMAXIM,hmaxim,INT,FLOAT,A1,A2) | 
|---|
|  | 286 |  | 
|---|
|  | 287 | PROTOCCALLSFSUB2(HMDIR,hmdir,STRING,STRING) | 
|---|
|  | 288 | #define HMDIR(A1,A2)  CCALLSFSUB2(HMDIR,hmdir,STRING,STRING,A1,A2) | 
|---|
|  | 289 |  | 
|---|
|  | 290 | PROTOCCALLSFSUB2(HMINIM,hminim,INT,FLOAT) | 
|---|
|  | 291 | #define HMINIM(A1,A2)  CCALLSFSUB2(HMINIM,hminim,INT,FLOAT,A1,A2) | 
|---|
|  | 292 |  | 
|---|
|  | 293 | PROTOCCALLSFSUB2(HNOENT,hnoent,INT,PINT) | 
|---|
|  | 294 | #define HNOENT(A1,A2)  CCALLSFSUB2(HNOENT,hnoent,INT,PINT,A1,A2) | 
|---|
|  | 295 |  | 
|---|
|  | 296 | PROTOCCALLSFSUB2(HNORMA,hnorma,INT,FLOAT) | 
|---|
|  | 297 | #define HNORMA(A1,A2)  CCALLSFSUB2(HNORMA,hnorma,INT,FLOAT,A1,A2) | 
|---|
|  | 298 |  | 
|---|
|  | 299 | PROTOCCALLSFSUB6(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 |  | 
|---|
|  | 302 | PROTOCCALLSFSUB1(HOUTPU,houtpu,INT) | 
|---|
|  | 303 | #define HOUTPU(A1)  CCALLSFSUB1(HOUTPU,houtpu,INT,A1) | 
|---|
|  | 304 |  | 
|---|
|  | 305 | PROTOCCALLSFSUB1(HPAGSZ,hpagsz,INT) | 
|---|
|  | 306 | #define HPAGSZ(A1)  CCALLSFSUB1(HPAGSZ,hpagsz,INT,A1) | 
|---|
|  | 307 |  | 
|---|
|  | 308 | PROTOCCALLSFSUB2(HPAK,hpak,INT,FLOATV) | 
|---|
|  | 309 | #define HPAK(A1,A2)  CCALLSFSUB2(HPAK,hpak,INT,FLOATV,A1,A2) | 
|---|
|  | 310 |  | 
|---|
|  | 311 | PROTOCCALLSFSUB2(HPAKAD,hpakad,INT,FLOATV) | 
|---|
|  | 312 | #define HPAKAD(A1,A2)  CCALLSFSUB2(HPAKAD,hpakad,INT,FLOATV,A1,A2) | 
|---|
|  | 313 |  | 
|---|
|  | 314 | PROTOCCALLSFSUB2(HPAKE,hpake,INT,FLOATV) | 
|---|
|  | 315 | #define HPAKE(A1,A2)  CCALLSFSUB2(HPAKE,hpake,INT,FLOATV,A1,A2) | 
|---|
|  | 316 |  | 
|---|
|  | 317 | PROTOCCALLSFSUB7(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 |  | 
|---|
|  | 320 | PROTOCCALLSFSUB11(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 |  | 
|---|
|  | 323 | PROTOCCALLSFSUB2(HPCHAR,hpchar,INTV,INTV) | 
|---|
|  | 324 | #define HPCHAR(A1,A2)  CCALLSFSUB2(HPCHAR,hpchar,INTV,INTV,A1,A2) | 
|---|
|  | 325 |  | 
|---|
|  | 326 | PROTOCCALLSFSUB2(HPDIR,hpdir,STRING,STRING) | 
|---|
|  | 327 | #define HPDIR(A1,A2)  CCALLSFSUB2(HPDIR,hpdir,STRING,STRING,A1,A2) | 
|---|
|  | 328 |  | 
|---|
|  | 329 | PROTOCCALLSFSUB3(HPHIST,hphist,INT,STRING,INT) | 
|---|
|  | 330 | #define HPHIST(A1,A2,A3)  CCALLSFSUB3(HPHIST,hphist,INT,STRING,INT,A1,A2,A3) | 
|---|
|  | 331 |  | 
|---|
|  | 332 | PROTOCCALLSFSUB1(HPHS,hphs,INT) | 
|---|
|  | 333 | #define HPHS(A1)  CCALLSFSUB1(HPHS,hphs,INT,A1) | 
|---|
|  | 334 |  | 
|---|
|  | 335 | PROTOCCALLSFSUB1(HPHST,hphst,INT) | 
|---|
|  | 336 | #define HPHST(A1)  CCALLSFSUB1(HPHST,hphst,INT,A1) | 
|---|
|  | 337 |  | 
|---|
|  | 338 | PROTOCCALLSFSUB0(HPONCE,hponce) | 
|---|
|  | 339 | #define HPONCE() CCALLSFSUB0(HPONCE,hponce) | 
|---|
|  | 340 |  | 
|---|
|  | 341 | PROTOCCALLSFSUB1(HPRINT,hprint,INT) | 
|---|
|  | 342 | #define HPRINT(A1)  CCALLSFSUB1(HPRINT,hprint,INT,A1) | 
|---|
|  | 343 |  | 
|---|
|  | 344 | PROTOCCALLSFSUB1(HPRNT,hprnt,INT) | 
|---|
|  | 345 | #define HPRNT(A1)  CCALLSFSUB1(HPRNT,hprnt,INT,A1) | 
|---|
|  | 346 |  | 
|---|
|  | 347 | PROTOCCALLSFSUB7(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 |  | 
|---|
|  | 350 | PROTOCCALLSFSUB8(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 |  | 
|---|
|  | 353 | PROTOCCALLSFSUB3(HPROT,hprot,INT,STRING,INT) | 
|---|
|  | 354 | #define HPROT(A1,A2,A3)  CCALLSFSUB3(HPROT,hprot,INT,STRING,INT,A1,A2,A3) | 
|---|
|  | 355 |  | 
|---|
|  | 356 | PROTOCCALLSFSUB1(HPSCAT,hpscat,INT) | 
|---|
|  | 357 | #define HPSCAT(A1)  CCALLSFSUB1(HPSCAT,hpscat,INT,A1) | 
|---|
|  | 358 |  | 
|---|
|  | 359 | PROTOCCALLSFSUB1(HPTAB,hptab,INT) | 
|---|
|  | 360 | #define HPTAB(A1)  CCALLSFSUB1(HPTAB,hptab,INT,A1) | 
|---|
|  | 361 |  | 
|---|
|  | 362 | PROTOCCALLSFSUB11(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 |  | 
|---|
|  | 365 | PROTOCCALLSFSUB3(HRDIR,hrdir,INT,PSTRINGV,PINT) | 
|---|
|  | 366 | #define HRDIR(A1,A2,A3)  CCALLSFSUB3(HRDIR,hrdir,INT,PSTRINGV,PINT,A1,A2,A3) | 
|---|
|  | 367 |  | 
|---|
|  | 368 | PROTOCCALLSFSUB8(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 |  | 
|---|
|  | 371 | PROTOCCALLSFSUB2(HRECOV,hrecov,INT,STRING) | 
|---|
|  | 372 | #define HRECOV(A1,A2)  CCALLSFSUB2(HRECOV,hrecov,INT,STRING,A1,A2) | 
|---|
|  | 373 |  | 
|---|
|  | 374 | PROTOCCALLSFSUB1(HREND,hrend,STRING) | 
|---|
|  | 375 | #define HREND(A1)  CCALLSFSUB1(HREND,hrend,STRING,A1) | 
|---|
|  | 376 |  | 
|---|
|  | 377 | PROTOCCALLSFSUB1(HRENDC,hrendc,STRING) | 
|---|
|  | 378 | #define HRENDC(A1)  CCALLSFSUB1(HRENDC,hrendc,STRING,A1) | 
|---|
|  | 379 |  | 
|---|
|  | 380 | PROTOCCALLSFSUB2(HRESET,hreset,INT,STRING) | 
|---|
|  | 381 | #define HRESET(A1,A2)  CCALLSFSUB2(HRESET,hreset,INT,STRING,A1,A2) | 
|---|
|  | 382 |  | 
|---|
|  | 383 | PROTOCCALLSFSUB3(HRFILE,hrfile,INT,STRING,STRING) | 
|---|
|  | 384 | #define HRFILE(A1,A2,A3)  CCALLSFSUB3(HRFILE,hrfile,INT,STRING,STRING,A1,A2,A3) | 
|---|
|  | 385 |  | 
|---|
|  | 386 | PROTOCCALLSFSUB3(HRGET,hrget,INT,STRING,STRING) | 
|---|
|  | 387 | #define HRGET(A1,A2,A3)  CCALLSFSUB3(HRGET,hrget,INT,STRING,STRING,A1,A2,A3) | 
|---|
|  | 388 |  | 
|---|
|  | 389 | PROTOCCALLSFSUB3(HRIN,hrin,INT,INT,INT) | 
|---|
|  | 390 | #define HRIN(A1,A2,A3)  CCALLSFSUB3(HRIN,hrin,INT,INT,INT,A1,A2,A3) | 
|---|
|  | 391 |  | 
|---|
|  | 392 | PROTOCCALLSFSUB3(HRNDM2,hrndm2,INT,PFLOAT,PFLOAT) | 
|---|
|  | 393 | #define HRNDM2(A1,A2,A3)  CCALLSFSUB3(HRNDM2,hrndm2,INT,PFLOAT,PFLOAT,A1,A2,A3) | 
|---|
|  | 394 |  | 
|---|
|  | 395 | PROTOCCALLSFSUB6(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 |  | 
|---|
|  | 398 | PROTOCCALLSFSUB3(HROUT,hrout,INT,PINT,STRING) | 
|---|
|  | 399 | #define HROUT(A1,A2,A3)  CCALLSFSUB3(HROUT,hrout,INT,PINT,STRING,A1,A2,A3) | 
|---|
|  | 400 |  | 
|---|
|  | 401 | PROTOCCALLSFSUB3(HRPUT,hrput,INT,STRING,STRING) | 
|---|
|  | 402 | #define HRPUT(A1,A2,A3)  CCALLSFSUB3(HRPUT,hrput,INT,STRING,STRING,A1,A2,A3) | 
|---|
|  | 403 |  | 
|---|
|  | 404 | PROTOCCALLSFSUB2(HSCALE,hscale,INT,FLOAT) | 
|---|
|  | 405 | #define HSCALE(A1,A2)  CCALLSFSUB2(HSCALE,hscale,INT,FLOAT,A1,A2) | 
|---|
|  | 406 |  | 
|---|
|  | 407 | PROTOCCALLSFSUB3(HSCR,hscr,INT,INT,STRING) | 
|---|
|  | 408 | #define HSCR(A1,A2,A3)  CCALLSFSUB3(HSCR,hscr,INT,INT,STRING,A1,A2,A3) | 
|---|
|  | 409 |  | 
|---|
|  | 410 | PROTOCCALLSFSUB2(HSETPR,hsetpr,STRING,FLOAT) | 
|---|
|  | 411 | #define HSETPR(A1,A2)  CCALLSFSUB2(HSETPR,hsetpr,STRING,FLOAT,A1,A2) | 
|---|
|  | 412 |  | 
|---|
|  | 413 | PROTOCCALLSFSUB3(HSMOOF,hsmoof,INT,INT,FLOAT) | 
|---|
|  | 414 | #define HSMOOF(A1,A2,A3)  CCALLSFSUB3(HSMOOF,hsmoof,INT,INT,FLOAT,A1,A2,A3) | 
|---|
|  | 415 |  | 
|---|
|  | 416 | PROTOCCALLSFSUB5(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 |  | 
|---|
|  | 419 | PROTOCCALLSFSUB5(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 |  | 
|---|
|  | 422 | PROTOCCALLSFSUB1(HSQUEZ,hsquez,STRING) | 
|---|
|  | 423 | #define HSQUEZ(A1)  CCALLSFSUB1(HSQUEZ,hsquez,STRING,A1) | 
|---|
|  | 424 |  | 
|---|
|  | 425 | PROTOCCALLSFSUB1(HTITLE,htitle,STRING) | 
|---|
|  | 426 | #define HTITLE(A1)  CCALLSFSUB1(HTITLE,htitle,STRING,A1) | 
|---|
|  | 427 |  | 
|---|
|  | 428 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 431 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 434 | PROTOCCALLSFSUB5(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 |  | 
|---|
|  | 437 | PROTOCCALLSFSUB3(HXI,hxi,INT,FLOAT,PINT) | 
|---|
|  | 438 | #define HXI(A1,A2,A3)  CCALLSFSUB3(HXI,hxi,INT,FLOAT,PINT,A1,A2,A3) | 
|---|
|  | 439 |  | 
|---|
|  | 440 | PROTOCCALLSFSUB5(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 |  | 
|---|
|  | 443 | PROTOCCALLSFFUN1(LOGICAL,HEXIST,hexist,INT) | 
|---|
|  | 444 | #define HEXIST(A2)  CCALLSFFUN1(HEXIST,hexist,INT,A2) | 
|---|
|  | 445 |  | 
|---|
|  | 446 | PROTOCCALLSFFUN2(FLOAT,HI,hi,INT,INT) | 
|---|
|  | 447 | #define HI(A2,A3)  CCALLSFFUN2(HI,hi,INT,INT,A2,A3) | 
|---|
|  | 448 |  | 
|---|
|  | 449 | PROTOCCALLSFFUN2(FLOAT,HIE,hie,INT,INT) | 
|---|
|  | 450 | #define HIE(A2,A3)  CCALLSFFUN2(HIE,hie,INT,INT,A2,A3) | 
|---|
|  | 451 |  | 
|---|
|  | 452 | PROTOCCALLSFFUN2(FLOAT,HIF,hif,INT,INT) | 
|---|
|  | 453 | #define HIF(A2,A3)  CCALLSFFUN2(HIF,hif,INT,INT,A2,A3) | 
|---|
|  | 454 |  | 
|---|
|  | 455 | PROTOCCALLSFFUN3(FLOAT,HIJ,hij,INT,INT,INT) | 
|---|
|  | 456 | #define HIJ(A2,A3,A4)  CCALLSFFUN3(HIJ,hij,INT,INT,INT,A2,A3,A4) | 
|---|
|  | 457 |  | 
|---|
|  | 458 | PROTOCCALLSFFUN3(FLOAT,HIJE,hije,INT,INT,INT) | 
|---|
|  | 459 | #define HIJE(A2,A3,A4)  CCALLSFFUN3(HIJE,hije,INT,INT,INT,A2,A3,A4) | 
|---|
|  | 460 |  | 
|---|
|  | 461 | PROTOCCALLSFFUN1(FLOAT,HMAX,hmax,INT) | 
|---|
|  | 462 | #define HMAX(A2)  CCALLSFFUN1(HMAX,hmax,INT,A2) | 
|---|
|  | 463 |  | 
|---|
|  | 464 | PROTOCCALLSFFUN1(FLOAT,HMIN,hmin,INT) | 
|---|
|  | 465 | #define HMIN(A2)  CCALLSFFUN1(HMIN,hmin,INT,A2) | 
|---|
|  | 466 |  | 
|---|
|  | 467 | PROTOCCALLSFFUN1(FLOAT,HRNDM1,hrndm1,INT) | 
|---|
|  | 468 | #define HRNDM1(A2)  CCALLSFFUN1(HRNDM1,hrndm1,INT,A2) | 
|---|
|  | 469 |  | 
|---|
|  | 470 | PROTOCCALLSFFUN4(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 |  | 
|---|
|  | 473 | PROTOCCALLSFFUN4(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 |  | 
|---|
|  | 476 | PROTOCCALLSFFUN1(FLOAT,HSUM,hsum,INT) | 
|---|
|  | 477 | #define HSUM(A2)  CCALLSFFUN1(HSUM,hsum,INT,A2) | 
|---|
|  | 478 |  | 
|---|
|  | 479 | PROTOCCALLSFFUN2(FLOAT,HX,hx,INT,FLOAT) | 
|---|
|  | 480 | #define HX(A2,A3)  CCALLSFFUN2(HX,hx,INT,FLOAT,A2,A3) | 
|---|
|  | 481 |  | 
|---|
|  | 482 | PROTOCCALLSFFUN2(FLOAT,HXE,hxe,INT,FLOAT) | 
|---|
|  | 483 | #define HXE(A2,A3)  CCALLSFFUN2(HXE,hxe,INT,FLOAT,A2,A3) | 
|---|
|  | 484 |  | 
|---|
|  | 485 | PROTOCCALLSFFUN3(FLOAT,HXY,hxy,INT,FLOAT,FLOAT) | 
|---|
|  | 486 | #define HXY(A2,A3,A4)  CCALLSFFUN3(HXY,hxy,INT,FLOAT,FLOAT,A2,A3,A4) | 
|---|
|  | 487 |  | 
|---|
|  | 488 | PROTOCCALLSFSUB11(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 |  | 
|---|
|  | 492 | PROTOCCALLSFSUB1(HBFREE,hbfree,INT) | 
|---|
|  | 493 | #define HBFREE(LUN) CCALLSFSUB1(HBFREE,hbfree,INT,LUN) | 
|---|
|  | 494 |  | 
|---|
|  | 495 | PROTOCCALLSFSUB1(HBINIT1,hbinit1,INT) | 
|---|
|  | 496 | #define HBINIT1(IFLAG) CCALLSFSUB1(HBINIT1,hbinit1,INT,IFLAG) | 
|---|
|  | 497 |  | 
|---|
|  | 498 | PROTOCCALLSFSUB0(HDCOFL,hdcofl) | 
|---|
|  | 499 | #define HDCOFL() CCALLSFSUB0(HDCOFL,hdcofl) | 
|---|
|  | 500 |  | 
|---|
|  | 501 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 504 | PROTOCCALLSFSUB6(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 |  | 
|---|
|  | 511 | PROTOCCALLSFSUB1(HGTDIR,hgtdir,PSTRING) | 
|---|
|  | 512 | #define HGTDIR(CHDIR) CCALLSFSUB1(HGTDIR,hgtdir,PSTRING,CHDIR) | 
|---|
|  | 513 |  | 
|---|
|  | 514 | PROTOCCALLSFFUN2(LOGICAL,HLABEQ,hlabeq,INT,STRING) | 
|---|
|  | 515 | #define HLABEQ(IDD,CHOPT) CCALLSFFUN2(HLABEQ,hlabeq,INT,STRING,IDD,CHOPT) | 
|---|
|  | 516 |  | 
|---|
|  | 517 | PROTOCCALLSFFUN2(INT,HLABNB,hlabnb,INT,STRING) | 
|---|
|  | 518 | #define HLABNB(IDD,CHOPT) CCALLSFFUN2(HLABNB,hlabnb,INT,STRING,IDD,CHOPT) | 
|---|
|  | 519 |  | 
|---|
|  | 520 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 523 | PROTOCCALLSFSUB2(HLOGPF,hlogpf,STRING,PINT) | 
|---|
|  | 524 | #define HLOGPF(CHHEAD,ISTAT) CCALLSFSUB2(HLOGPF,hlogpf,STRING,PINT,CHHEAD,ISTAT) | 
|---|
|  | 525 |  | 
|---|
|  | 526 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 529 | PROTOCCALLSFSUB7(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 |  | 
|---|
|  | 533 | PROTOCCALLSFSUB8(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 |  | 
|---|
|  | 537 | PROTOCCALLSFFUN1(LOGICAL,HNTNEW,hntnew,INT) | 
|---|
|  | 538 | #define HNTNEW(IDN) CCALLSFFUN1(HNTNEW,hntnew,INT,IDN) | 
|---|
|  | 539 |  | 
|---|
|  | 540 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 543 | PROTOCCALLSFSUB8(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 |  | 
|---|
|  | 547 | PROTOCCALLSFSUB4(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 |  | 
|---|
|  | 551 | PROTOCCALLSFSUB6(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 |  | 
|---|
|  | 558 | PROTOCCALLSFFUN3(INT,HCREATEG,hcreateg,STRING,PINT,INT) | 
|---|
|  | 559 | #define HCREATEG(A2,A3,A4)  CCALLSFFUN3(HCREATEG,hcreateg,STRING,PINT,INT,A2,A3,A4) | 
|---|
|  | 560 |  | 
|---|
|  | 561 | PROTOCCALLSFFUN3(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 |  | 
|---|
|  | 566 | PROTOCCALLSFSUB2(HLIMAP,hlimap,INT,STRING) | 
|---|
|  | 567 | #define HLIMAP(A1,A2)  CCALLSFSUB2(HLIMAP,hlimap,INT,STRING,A1,A2) | 
|---|
|  | 568 |  | 
|---|
|  | 569 | #endif | 
|---|