Searched refs:lowbnd (Results 1 – 1 of 1) sorted by relevance
1866 PetscReal lowbnd, nu, beta; in PCApply_FieldSplit_GKB() local1930 lowbnd = 2 * jac->gkbtol; in PCApply_FieldSplit_GKB()1931 …jac->gkbviewer, "%3" PetscInt_FMT " GKB Lower bound estimate %14.12e\n", iterGKB, (double)lowbnd)); in PCApply_FieldSplit_GKB()1933 while (iterGKB < jac->gkbmaxit && lowbnd > jac->gkbtol) { in PCApply_FieldSplit_GKB()1966 lowbnd = 0.0; in PCApply_FieldSplit_GKB()1967 for (j = 0; j < jac->gkbdelay; j++) lowbnd += PetscAbsScalar(vecz[j] * vecz[j]); in PCApply_FieldSplit_GKB()1968 lowbnd = PetscSqrtReal(lowbnd / PetscAbsScalar(nrmz2)); in PCApply_FieldSplit_GKB()1972 …jac->gkbviewer, "%3" PetscInt_FMT " GKB Lower bound estimate %14.12e\n", iterGKB, (double)lowbnd)); in PCApply_FieldSplit_GKB()