static PetscErrorCode PCSetFromOptions_Eisenstat(PC pc)
{
PC_Eisenstat *eis = (PC_Eisenstat*)pc->data;
PetscErrorCode ierr;
PetscBool flg = PETSC_FALSE;
PetscFunctionBegin;
ierr = PetscOptionsHead("Eisenstat SSOR options");CHKERRQ(ierr);
ierr = PetscOptionsReal("-pc_eisenstat_omega","Relaxation factor 0 < omega < 2","PCEisenstatSetOmega",eis->omega,&eis->omega,PETSC_NULL);CHKERRQ(ierr);
ierr = PetscOptionsBool("-pc_eisenstat_no_diagonal_scaling","Do not use standard diagonal scaling","PCEisenstatNoDiagonalScaling",flg,&flg,PETSC_NULL);CHKERRQ(ierr);
if (flg) {
ierr = PCEisenstatNoDiagonalScaling(pc);CHKERRQ(ierr);
}
ierr = PetscOptionsTail();CHKERRQ(ierr);
PetscFunctionReturn(0);
}
void PETSC_STDCALL pceisenstatnodiagonalscaling_(PC pc, int *__ierr ){
*__ierr = PCEisenstatNoDiagonalScaling(
(PC)PetscToPointer((pc) ));
}