Searched refs:ksp_min (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/ksp/impls/tsirm/ |
| H A D | tsirm.c | 41 KSP ksp_min; /* KSP for minimization */ in KSPSolve_TSIRM() local
99 PetscCall(KSPCreate(PetscObjectComm((PetscObject)ksp), &ksp_min)); in KSPSolve_TSIRM()
101 PetscCall(KSPSetType(ksp_min, KSPCGLS)); in KSPSolve_TSIRM()
103 PetscCall(KSPSetType(ksp_min, KSPLSQR)); in KSPSolve_TSIRM()
105 PetscCall(KSPSetOperators(ksp_min, AS, AS)); in KSPSolve_TSIRM()
106 …PetscCall(KSPSetTolerances(ksp_min, tsirm->tol_ls, PETSC_CURRENT, PETSC_CURRENT, tsirm->maxiter_ls… in KSPSolve_TSIRM()
107 PetscCall(KSPGetPC(ksp_min, &pc_min)); in KSPSolve_TSIRM()
109 PetscCall(KSPSolve(ksp_min, b, tsirm->Alpha)); /* Find Alpha such that ||AS Alpha = b|| */ in KSPSolve_TSIRM()
110 PetscCall(KSPDestroy(&ksp_min)); in KSPSolve_TSIRM()
|