Subversion Repositories slepc-dev

Rev

Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2810 Rev 2823
Line 243... Line 243... 
{
 
{
 
  PetscBool      target;
 
  PetscBool      target;
 
  PetscErrorCode ierr;
 
  PetscErrorCode ierr;
 
 
 
 
 
  PetscFunctionBegin;
 
  PetscFunctionBegin;
 
  ierr = PetscTypeCompareAny((PetscObject)eps->OP,&target,STSINVERT,STCAYLEY,STFOLD,"");CHKERRQ(ierr);
 
  ierr = PetscObjectTypeCompareAny((PetscObject)eps->OP,&target,STSINVERT,STCAYLEY,STFOLD,"");CHKERRQ(ierr);
 
  if (target) eps->which = EPS_TARGET_MAGNITUDE;
 
  if (target) eps->which = EPS_TARGET_MAGNITUDE;
 
  else eps->which = EPS_LARGEST_MAGNITUDE;
 
  else eps->which = EPS_LARGEST_MAGNITUDE;
 
  PetscFunctionReturn(0);
 
  PetscFunctionReturn(0);
 
}
 
}