Esempi in C++ (Cpp) per EPSLanczosSetReorthog

Esempio n. 1

PetscErrorCode EPSSetFromOptions_Lanczos(EPS eps)
{
  PetscErrorCode         ierr;
  EPS_LANCZOS            *lanczos = (EPS_LANCZOS*)eps->data;
  PetscBool              flg;
  EPSLanczosReorthogType reorthog;

  PetscFunctionBegin;
  ierr = PetscOptionsHead("EPS Lanczos Options");CHKERRQ(ierr);
  ierr = PetscOptionsEnum("-eps_lanczos_reorthog","Lanczos reorthogonalization","EPSLanczosSetReorthog",EPSLanczosReorthogTypes,(PetscEnum)lanczos->reorthog,(PetscEnum*)&reorthog,&flg);CHKERRQ(ierr);
  if (flg) {
    ierr = EPSLanczosSetReorthog(eps,reorthog);CHKERRQ(ierr);
  }
  ierr = PetscOptionsTail();CHKERRQ(ierr);
  PetscFunctionReturn(0);
}

Esempio n. 2

File: lanczosf.c Progetto: OpenCMISS-Dependencies/slepc

PETSC_EXTERN void PETSC_STDCALL  epslanczossetreorthog_(EPS *eps,EPSLanczosReorthogType *reorthog, int *__ierr ){
*__ierr = EPSLanczosSetReorthog(*eps,*reorthog);
}