Subversion Repositories slepc-dev

Rev

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

Rev 2823 Rev 2835
Line 258... Line 258... 
    eps->nconv = k;
 
    eps->nconv = k;
 
    ierr = EPSMonitor(eps,eps->its,eps->nconv,eps->eigr,eps->eigi,eps->errest,nv);CHKERRQ(ierr);
 
    ierr = EPSMonitor(eps,eps->its,eps->nconv,eps->eigr,eps->eigi,eps->errest,nv);CHKERRQ(ierr);
 
  }
 
  }
 
 
 
 
 
  if (harmonic) { ierr = PetscFree(g);CHKERRQ(ierr); }
 
  if (harmonic) { ierr = PetscFree(g);CHKERRQ(ierr); }
 
 
 
  /* truncate Schur decomposition and change the state to raw so that
 
 
 
     PSVectors() computes eigenvectors from scratch */
 
 
 
  ierr = PSSetDimensions(eps->ps,eps->nconv,0,0);CHKERRQ(ierr);
 
 
 
  ierr = PSSetState(eps->ps,PS_STATE_RAW);CHKERRQ(ierr);
 
  PetscFunctionReturn(0);
 
  PetscFunctionReturn(0);
 
}
 
}
 
 
 
 
 
EXTERN_C_BEGIN
 
EXTERN_C_BEGIN
 
#undef __FUNCT__  
 
#undef __FUNCT__