Subversion Repositories slepc-dev

Rev

Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2005 Rev 2074
Line 113... Line 113...
{
{
  PetscErrorCode ierr;
  PetscErrorCode ierr;
 
 
  PetscFunctionBegin;
  PetscFunctionBegin;
  if (st->mat) { ierr = MatDestroy(st->mat);CHKERRQ(ierr); }
  if (st->mat) { ierr = MatDestroy(st->mat);CHKERRQ(ierr); }
 
 
 
  /* if the user did not set the shift, use the target value */
 
  if (!st->sigma_set) st->sigma = st->defsigma;
 
 
  switch (st->shift_matrix) {
  switch (st->shift_matrix) {
  case ST_MATMODE_INPLACE:
  case ST_MATMODE_INPLACE:
    st->mat = PETSC_NULL;
    st->mat = PETSC_NULL;
    if (st->sigma != 0.0) {
    if (st->sigma != 0.0) {