int TaoLinearSolverPetsc::GetMinEig(double *e_min) { const KSPType ktype; int info; PetscTruth flg; PetscFunctionBegin; *e_min = 0.0; info = KSPGetType(ksp, &ktype); CHKERRQ(info); info = PetscStrcmp((char *)ktype, KSPGLTR, &flg); CHKERRQ(info); if (flg == PETSC_TRUE) { info = KSPGLTRGetMinEig(ksp, e_min); CHKERRQ(info); } PetscFunctionReturn(0); }
void PETSC_STDCALL kspgltrgetmineig_(KSP ksp,PetscReal *e_min, int *__ierr ){ *__ierr = KSPGLTRGetMinEig( (KSP)PetscToPointer((ksp) ),e_min); }