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);
}
예제 #2
0
파일: gltrf.c 프로젝트: Kun-Qu/petsc
void PETSC_STDCALL  kspgltrgetmineig_(KSP ksp,PetscReal *e_min, int *__ierr ){
*__ierr = KSPGLTRGetMinEig(
	(KSP)PetscToPointer((ksp) ),e_min);
}