Esempio n. 1
0
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;
}
Esempio n. 2
0
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;
}