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