Subversion Repositories slepc-dev

Compare Revisions

Ignore whitespace Rev 2713 → Rev 2716

/trunk/src/eps/impls/krylov/krylovschur/ks-slice.c
155,7 → 155,7
dir*=sr->dir;
k = 0;
for(i=0;i<sr->nS;i++){
if(dir*sr->S[i] >0){
if(dir*PetscRealPart(sr->S[i])>0.0){
sr->S[k] = sr->S[i];
sr->S[sr->nS+k] = sr->S[sr->nS+i];
ierr = VecCopy(eps->V[eps->nconv+i],eps->V[k++]);CHKERRQ(ierr);