3 #ifndef HBOOKCNV_NTUPLEINFO_H 4 #define HBOOKCNV_NTUPLEINFO_H 1 28 double frange[512][2];
30 void getBounds(
long i, TYPE& min, TYPE& max, TYPE& null)
const {
32 min = (type[i]==
'R') ? TYPE(frange[i][0]) : TYPE(irange[i][0]);
33 max = (type[i]==
'R') ? TYPE(frange[i][1]) : TYPE(irange[i][1]);
41 TEMPLATE_SPECIALIZATION
42 void getBounds(
long ,
bool& min,
bool& max,
bool& null )
const {
47 bool isRangeWithin(
long i, TYPE min, TYPE max)
const {
49 return min <= (TYPE)irange[i][0] && (TYPE)irange[i][1] <= max;
51 else if ( type[i] ==
'I' || type[i] ==
'U' ) {
56 TEMPLATE_SPECIALIZATION
57 bool isRangeWithin(
long i,
float ,
float )
const {
58 if ( size[i] == 32 )
return true;
61 TEMPLATE_SPECIALIZATION
62 bool isRangeWithin(
long i,
double ,
double )
const {
63 if ( size[i] == 64 )
return true;
66 TEMPLATE_SPECIALIZATION
67 bool isRangeWithin(
long ,
bool min,
bool max)
const {
68 return min ==
false && max ==
true;
70 long idist(
long i)
const {
71 return irange[i][1] - irange[i][0];
73 double fdist(
long i)
const {
74 return frange[i][1] - frange[i][0];
78 long getIndex(
const char* nam)
const {
80 for (
int i = 0; i < numVar; i++ ) {
81 if (
strncmp(name[i], nam,
sizeof(name[i])) == 0 ) {
89 #endif // HBOOKCNV_NTUPLEINFO_H 112 STRUCTURE /NTUPLEINFO/
118 RECORD /NTUPLEVAR/ VAR(512)
122 CHARACTER*64
VNAME(512)
127 CHARACTER*1
VTYPE(512)
146 c TYPE(NTUPLEVAR) VAR(512)
147 c END TYPE NTUPLEINFO
c TYPE NTUPLEVAR CHARACTER INTEGER NTTITLE
c TYPE NTUPLEVAR CHARACTER INTEGER VSIZE
static TYP min()
Minimal number of data.
c TYPE NTUPLEVAR CHARACTER INTEGER VTHEDIM
c TYPE NTUPLEVAR CHARACTER INTEGER VTYPE
c TYPE NTUPLEVAR CHARACTER INTEGER & NTID
c TYPE NTUPLEVAR CHARACTER INTEGER VNDIM
c TYPE NTUPLEVAR CHARACTER INTEGER VINDEX
static TYP max()
Maximal number of data.
c TYPE NTUPLEVAR CHARACTER INTEGER VIMAX
c TYPE NTUPLEVAR CHARACTER * VNAME(512) INTEGER VNDIM(512) INTEGER VTHEDIM(512
c TYPE NTUPLEVAR CHARACTER INTEGER VIMIN
c TYPE NTUPLEVAR CHARACTER INTEGER VFMAX
c TYPE NTUPLEVAR CHARACTER INTEGER VFMIN
c TYPE NTUPLEVAR CHARACTER INTEGER & VHASRANGE
c TYPE NTUPLEVAR CHARACTER INTEGER NTNDIM
c TYPE NTUPLEVAR CHARACTER INTEGER & VHASINDEX