Searched refs:dpest (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/ksp/ksp/impls/tfqmr/ |
| H A D | tfqmr.c | 15 PetscReal dp, dpold, w, dpest, tau, psi, cm; in KSPSolve_TFQMR() local
92 dpest = PetscSqrtReal(2 * i + m + 2.0) * tau; in KSPSolve_TFQMR()
94 if (ksp->normtype != KSP_NORM_NONE) ksp->rnorm = dpest; in KSPSolve_TFQMR()
|
| /petsc/src/ksp/pc/impls/bjacobi/bjkokkos/ |
| H A D | bjkokkos.kokkos.cxx | 93 PetscReal dp, dpold, w, dpest, tau, psi, cm, r0; in BJSolve_TFQMR() local
248 dpest = PetscSqrtReal(2 * it + m + 2.0) * tau; in BJSolve_TFQMR()
250 …okkos::PerTeam(team), [=]() { printf("%3d KSP Residual norm %14.12e\n", it + 1, (double)dpest); }); in BJSolve_TFQMR()
252 if (dpest < atol) { in BJSolve_TFQMR()
256 if (dpest / r0 < rtol) { in BJSolve_TFQMR()
261 if (dpest / r0 > dtol) { in BJSolve_TFQMR()
263 … printf("ERROR block %d diverged: %d it, res=%e, r_0=%e\n", team.league_rank(), it, dpest, r0); }); in BJSolve_TFQMR()
267 if (dpest / r0 > dtol) { in BJSolve_TFQMR()
275 … TFQMR %d:%d it, res=%e, r_0=%e r_res=%e\n", team.league_rank(), it, m, dpest, r0, dpest / r0); }); in BJSolve_TFQMR()
|