| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcfetidp.c | 498 PetscBLASInt *pivots, B_lwork, B_N, B_ierr; in PCBDDCSetupFETIDPMatContext() local
521 B_lwork = 0; in PCBDDCSetupFETIDPMatContext()
525 B_lwork = -1; in PCBDDCSetupFETIDPMatContext()
528 … PetscCallBLAS("LAPACKgetri", LAPACKgetri_(&B_N, &dummy, &B_N, &B_N, &lwork, &B_lwork, &B_ierr)); in PCBDDCSetupFETIDPMatContext()
531 PetscCall(PetscBLASIntCast((PetscInt)PetscRealPart(lwork), &B_lwork)); in PCBDDCSetupFETIDPMatContext()
533 PetscCall(PetscMalloc3(mss * mss, &W, mss, &pivots, B_lwork, &Bwork)); in PCBDDCSetupFETIDPMatContext()
547 PetscCallBLAS("LAPACKgetri", LAPACKgetri_(&B_N, W, &B_N, pivots, Bwork, &B_lwork, &B_ierr)); in PCBDDCSetupFETIDPMatContext()
|
| H A D | bddcschurs.c | 396 PetscBLASInt B_N, B_ierr, B_lwork, *pivots; in PCBDDCSubSchursSetUp() local
627 B_lwork = -1; in PCBDDCSubSchursSetUp()
631 …("LAPACKsytrf", LAPACKsytrf_("L", &B_N, &dummyscalar, &B_N, &dummyint, &lwork, &B_lwork, &B_ierr)); in PCBDDCSubSchursSetUp()
634 …lBLAS("LAPACKgetri", LAPACKgetri_(&B_N, &dummyscalar, &B_N, &dummyint, &lwork, &B_lwork, &B_ierr)); in PCBDDCSubSchursSetUp()
638 PetscCall(PetscBLASIntCast((PetscInt)PetscRealPart(lwork), &B_lwork)); in PCBDDCSubSchursSetUp()
639 PetscCall(PetscMalloc2(B_lwork, &Bwork, B_N, &pivots)); in PCBDDCSubSchursSetUp()
1724 …scCallBLAS("LAPACKsytrf", LAPACKsytrf_("L", &B_N, S_data, &B_N, pivots, Bwork, &B_lwork, &B_ierr)); in PCBDDCSubSchursSetUp()
1731 … PetscCallBLAS("LAPACKgetri", LAPACKgetri_(&B_N, S_data, &B_N, pivots, Bwork, &B_lwork, &B_ierr)); in PCBDDCSubSchursSetUp()
2008 …lBLAS("LAPACKsytrf", LAPACKsytrf_("L", &B_N, array + cum, &B_N, pivots, Bwork, &B_lwork, &B_ierr)); in PCBDDCSubSchursSetUp()
2015 …scCallBLAS("LAPACKgetri", LAPACKgetri_(&B_N, array + cum, &B_N, pivots, Bwork, &B_lwork, &B_ierr)); in PCBDDCSubSchursSetUp()
|
| H A D | bddcprivate.c | 3355 PetscBLASInt B_neigs, B_ierr, B_lwork; in PCBDDCAdaptiveSelection() local
3425 B_lwork = -1; in PCBDDCAdaptiveSelection()
3439 …o, &thresh, B_iwork, B_iwork, &eps, &B_neigs, eigs, eigv, &B_N, &lwork, &B_lwork, rwork, B_iwork, … in PCBDDCAdaptiveSelection()
3441 …o, &thresh, B_iwork, B_iwork, &eps, &B_neigs, eigs, eigv, &B_N, &lwork, &B_lwork, B_iwork, B_ifail… in PCBDDCAdaptiveSelection()
3451 PetscCall(PetscBLASIntCast((PetscInt)PetscRealPart(lwork), &B_lwork)); in PCBDDCAdaptiveSelection()
3453 …PetscCall(PetscMalloc5(mss * mss, &eigv, mss, &eigs, B_lwork, &work, 5 * mss, &B_iwork, mss, &B_if… in PCBDDCAdaptiveSelection()
3597 …, &lower, &upper, &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N, work, &B_lwork, rwork, B_iwork, … in PCBDDCAdaptiveSelection()
3599 …, &lower, &upper, &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N, work, &B_lwork, B_iwork, B_ifail… in PCBDDCAdaptiveSelection()
3617 …, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N, work, &B_lwork, rwork, B_iwork, … in PCBDDCAdaptiveSelection()
3619 …, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N, work, &B_lwork, B_iwork, B_ifail… in PCBDDCAdaptiveSelection()
[all …]
|