Lines Matching refs:r0
93 PetscReal dp, dpold, w, dpest, tau, psi, cm, r0;
166 r0 = dp = PetscSqrtReal(PetscRealPart(dpi));
256 if (dpest / r0 < rtol) {
261 if (dpest / r0 > dtol) {
263 Kokkos::single(Kokkos::PerTeam(team), [=]() { printf("ERROR block %d diverged: %d it, res=%e, r_0=%e\n", team.league_rank(), it, dpest, r0); });
267 if (dpest / r0 > dtol) {
275 Kokkos::single(Kokkos::PerTeam(team), [=]() { printf("ERROR block %d diverged: TFQMR %d:%d it, res=%e, r_0=%e r_res=%e\n", team.league_rank(), it, m, dpest, r0, dpest / r0); });
335 PetscReal dp, r0;
398 r0 = dp = PetscSqrtReal(PetscRealPart(dpi));
477 if (dp / r0 < rtol) {
482 if (dp / r0 > dtol) {
484 Kokkos::single(Kokkos::PerTeam(team), [=]() { printf("ERROR block %d diverged: %d it, res=%e, r_0=%e (BICG does this)\n", team.league_rank(), it, dp, r0); });
488 if (dp / r0 > dtol) {
496 Kokkos::single(Kokkos::PerTeam(team), [=]() { printf("ERROR block %d diverged: BICG %d it, res=%e, r_0=%e r_res=%e\n", team.league_rank(), it, dp, r0, dp / r0); });