C++ (Cpp) KSPPIPEFGMRESSetShift Examples

Example #1

File: pipefgmres.c Project: firedrakeproject/petsc

PetscErrorCode KSPSetFromOptions_PIPEFGMRES(PetscOptionItems *PetscOptionsObject,KSP ksp)
{
  PetscErrorCode ierr;
  KSP_PIPEFGMRES *pipefgmres = (KSP_PIPEFGMRES*)ksp->data;
  PetscBool      flg;
  PetscScalar    shift;

  PetscFunctionBegin;
  ierr = KSPSetFromOptions_GMRES(PetscOptionsObject,ksp);CHKERRQ(ierr);
  ierr = PetscOptionsHead(PetscOptionsObject,"KSP pipelined FGMRES Options");CHKERRQ(ierr);
  ierr = PetscOptionsScalar("-ksp_pipefgmres_shift","shift parameter","KSPPIPEFGMRESSetShift",pipefgmres->shift,&shift,&flg);CHKERRQ(ierr);
  if (flg) { ierr = KSPPIPEFGMRESSetShift(ksp,shift);CHKERRQ(ierr); }
  ierr = PetscOptionsTail();CHKERRQ(ierr);
  PetscFunctionReturn(0);
}

Example #2

File: pipefgmresf.c Project: masa-ito/PETScToPoisson

PETSC_EXTERN void PETSC_STDCALL  ksppipefgmressetshift_(KSP ksp,PetscScalar *shift, int *__ierr ){
*__ierr = KSPPIPEFGMRESSetShift(
	(KSP)PetscToPointer((ksp) ),*shift);
}