void bfd_btran(BFD *bfd, double x[]) { if (!bfd->valid) xfault("bfd_btran: the factorization is not valid\n"); if (bfd->fhv != NULL) fhv_btran(bfd->fhv, x); else if (bfd->lpf != NULL) lpf_btran(bfd->lpf, x); else xassert(bfd != bfd); return; }
void bfd_btran(BFD *bfd, double x[]) { xassert(bfd != NULL); xassert(bfd->valid); #if 0 /* 27/IV-2013 */ if (bfd->fhv != NULL) fhv_btran(bfd->fhv, x); #else if (bfd->fi != NULL) fhvint_btran(bfd->fi, x); #endif else if (bfd->lpf != NULL) lpf_btran(bfd->lpf, x); else xassert(bfd != bfd); return; }