Subversion Repositories slepc-dev

Rev

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

Rev 2717 Rev 2823
Line 105... Line 105... 
 
 
 
 
  /*
 
  /*
 
     Use shift-and-invert to avoid solving linear systems with a singular B
 
     Use shift-and-invert to avoid solving linear systems with a singular B
 
     in case nulldim>0
 
     in case nulldim>0
 
  */
 
  */
 
  ierr = PetscTypeCompareAny((PetscObject)eps,&flag,EPSGD,EPSJD,EPSBLOPEX,"");CHKERRQ(ierr);
 
  ierr = PetscObjectTypeCompareAny((PetscObject)eps,&flag,EPSGD,EPSJD,EPSBLOPEX,"");CHKERRQ(ierr);
 
  if (!flag) {
 
  if (!flag) {
 
    ierr = EPSGetST(eps,&st);CHKERRQ(ierr);
 
    ierr = EPSGetST(eps,&st);CHKERRQ(ierr);
 
    ierr = STSetType(st,STSINVERT);CHKERRQ(ierr);
 
    ierr = STSetType(st,STSINVERT);CHKERRQ(ierr);
 
  }
 
  }