147     KSP         check_ksp;  in PCBDDCNullSpaceAssembleCorrection()  local
157     PetscCall(KSPCreate(PETSC_COMM_SELF, &check_ksp));  in PCBDDCNullSpaceAssembleCorrection()
158     PetscCall(KSPSetNestLevel(check_ksp, pc->kspnestlevel));  in PCBDDCNullSpaceAssembleCorrection()
160     if (isset && isspd) PetscCall(KSPSetType(check_ksp, KSPCG));  in PCBDDCNullSpaceAssembleCorrection()
161     PetscCall(PetscObjectIncrementTabLevel((PetscObject)check_ksp, (PetscObject)local_ksp, 0));  in PCBDDCNullSpaceAssembleCorrection()
163     PetscCall(KSPSetOptionsPrefix(check_ksp, prefix));  in PCBDDCNullSpaceAssembleCorrection()
164     PetscCall(KSPAppendOptionsPrefix(check_ksp, "approximate_scale_"));  in PCBDDCNullSpaceAssembleCorrection()
165     PetscCall(KSPSetErrorIfNotConverged(check_ksp, PETSC_FALSE));  in PCBDDCNullSpaceAssembleCorrection()
166     PetscCall(KSPSetOperators(check_ksp, local_mat, local_pmat));  in PCBDDCNullSpaceAssembleCorrection()
167     PetscCall(KSPSetComputeSingularValues(check_ksp, PETSC_TRUE));  in PCBDDCNullSpaceAssembleCorrection()
168     PetscCall(KSPSetPreSolve(check_ksp, PCBDDCNullSpaceCorrPreSolve, shell_ctx));  in PCBDDCNullSpaceAssembleCorrection()
169     PetscCall(KSPSetPostSolve(check_ksp, PCBDDCNullSpaceCorrPostSolve, shell_ctx));  in PCBDDCNullSpaceAssembleCorrection()
170     PetscCall(KSPSetTolerances(check_ksp, PETSC_SMALL, PETSC_SMALL, PETSC_CURRENT, PETSC_CURRENT));  in PCBDDCNullSpaceAssembleCorrection()
171     PetscCall(KSPSetFromOptions(check_ksp));  in PCBDDCNullSpaceAssembleCorrection()
173     PetscCall(KSPSetUp(check_ksp));  in PCBDDCNullSpaceAssembleCorrection()
175     PetscCall(KSPSetPC(check_ksp, local_pc));  in PCBDDCNullSpaceAssembleCorrection()
176     PetscCall(KSPGetTolerances(check_ksp, NULL, NULL, NULL, &maxit));  in PCBDDCNullSpaceAssembleCorrection()
177 …PetscCall(KSPSetTolerances(check_ksp, PETSC_CURRENT, PETSC_CURRENT, PETSC_CURRENT, PetscMin(10, ma…  in PCBDDCNullSpaceAssembleCorrection()
180     PetscCall(KSPSolve(check_ksp, work1, work1));  in PCBDDCNullSpaceAssembleCorrection()
181     PetscCall(KSPCheckSolve(check_ksp, pc, work1));  in PCBDDCNullSpaceAssembleCorrection()
184     PetscCall(KSPComputeExtremeSingularValues(check_ksp, &lambda_max, &lambda_min));  in PCBDDCNullSpaceAssembleCorrection()
185     PetscCall(KSPGetIterationNumber(check_ksp, &k));  in PCBDDCNullSpaceAssembleCorrection()
200       PetscCall(PCCreate(PetscObjectComm((PetscObject)check_ksp), &new_pc));  in PCBDDCNullSpaceAssembleCorrection()
204       PetscCall(KSPSetPC(check_ksp, new_pc));  in PCBDDCNullSpaceAssembleCorrection()
206       PetscCall(KSPSetTolerances(check_ksp, PETSC_CURRENT, PETSC_CURRENT, PETSC_CURRENT, maxit));  in PCBDDCNullSpaceAssembleCorrection()
207       PetscCall(KSPSetPreSolve(check_ksp, NULL, NULL));  in PCBDDCNullSpaceAssembleCorrection()
208       PetscCall(KSPSetPostSolve(check_ksp, NULL, NULL));  in PCBDDCNullSpaceAssembleCorrection()
209       PetscCall(KSPSolve(check_ksp, work1, work1));  in PCBDDCNullSpaceAssembleCorrection()
210       PetscCall(KSPCheckSolve(check_ksp, pc, work1));  in PCBDDCNullSpaceAssembleCorrection()
213       PetscCall(KSPComputeExtremeSingularValues(check_ksp, &lambda_max, &lambda_min));  in PCBDDCNullSpaceAssembleCorrection()
214       PetscCall(KSPGetIterationNumber(check_ksp, &k));  in PCBDDCNullSpaceAssembleCorrection()
223     PetscCall(KSPDestroy(&check_ksp));  in PCBDDCNullSpaceAssembleCorrection()