14 #ifndef _DYLP_VECTOR_H 15 #define _DYLP_VECTOR_H 111 #ifdef WORDS_BIGENDIAN 113 (
unsigned char)
'\377',
114 (
unsigned char)
'\377',
115 (
unsigned char)
'\377',
116 (
unsigned char)
'\377',
117 (
unsigned char)
'\377',
118 (
unsigned char)
'\377',
119 (
unsigned char)
'\376' } } ;
121 (
unsigned char)
'\360',
122 (
unsigned char)
'\0',
123 (
unsigned char)
'\0',
124 (
unsigned char)
'\0',
125 (
unsigned char)
'\0',
126 (
unsigned char)
'\0',
127 (
unsigned char)
'\001' } } ;
129 (
unsigned char)
'\360',
130 (
unsigned char)
'\0',
131 (
unsigned char)
'\0',
132 (
unsigned char)
'\0',
133 (
unsigned char)
'\0',
134 (
unsigned char)
'\0',
135 (
unsigned char)
'\0' } } ;
138 (
unsigned char)
'\377',
139 (
unsigned char)
'\377',
140 (
unsigned char)
'\377',
141 (
unsigned char)
'\377',
142 (
unsigned char)
'\377',
143 (
unsigned char)
'\377',
144 (
unsigned char)
'\177' } } ;
146 (
unsigned char)
'\0',
147 (
unsigned char)
'\0',
148 (
unsigned char)
'\0',
149 (
unsigned char)
'\0',
150 (
unsigned char)
'\0',
151 (
unsigned char)
'\360',
152 (
unsigned char)
'\177' } } ;
154 (
unsigned char)
'\0',
155 (
unsigned char)
'\0',
156 (
unsigned char)
'\0',
157 (
unsigned char)
'\0',
158 (
unsigned char)
'\0',
159 (
unsigned char)
'\360',
160 (
unsigned char)
'\177' } } ;
167 #ifndef DYLP_HAS_QUIET_NAN 168 # define quiet_nan(zz_dummy_zz) (QNaNbits.fpdbl) 177 #define HUGE_VAL (Infbits.fpdbl) 195 # define finite DYLP_ISFINITE 198 # define isnan DYLP_ISNAN 231 typedef struct {
int ndx ;
234 typedef struct {
int ndx ;
pkvec_struct * pkvec_new(int sze)
bool pkvec_resize(pkvec_struct *pkvec, int sze)
double exvec_2norm(double *vec, int len)
double exvec_infnorm(double *vec, int len, int *p_jmax)
double pkvec_2norm(pkvec_struct *vec)
double pkvec_dotexvec(pkvec_struct *pkvec, double *exvec)
static fpunion_t QNaNbits UNUSED
void pkvec_free(pkvec_struct *pkvec)
bool pkvec_check(pkvec_struct *pkvec, const char *caller)
double exvec_1norm(double *vec, int len)
double exvec_ssq(double *vec, int len)