double hypotD2plus(const double p[D3], const double q[D3], double add);
double magnD(const double pq[D3]);
+double magnD2(const double pq[D3]);
void xprod(double r[D3], const double a[D3], const double b[D3]);
double dotprod(const double a[D3], const double b[D3]);
+void xprod_norm(double r[D3], const double a[D3], const double b[D3],
+ double absepsilon, double one);
void flushoutput(void);
void diee(const char *what);