do { \
double result = expr; \
if(fabs((result - value) / value) > acc) { \
fprintf(stderr, "%s: expected %.17g, got %.17g (fractional error is %g; upto %g allowed)\n", msg, value, result, fabs((result - value) / value), acc); \
exit(1); \
fprintf(stderr, "%s: expected %.17g, got %.17g (fractional error is %g; upto %g allowed)\n", msg, value, result, fabs((result - value) / value), acc); \
} \
fprintf(stderr, "%s: returned error\n", msg); \
exit(1); \
} \
} while(0)
int XLALGetBaseErrno(void)
Gets the XLAL base error number ignoring the internal-function-failed flag.