| Line 257... |
Line 257... |
Mat A,B;
|
Mat A,B;
|
PetscErrorCode ierr;
|
PetscErrorCode ierr;
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
ierr = STGetOperators(st,&A,&B);CHKERRQ(ierr);
|
ierr = STGetOperators(st,&A,&B);CHKERRQ(ierr);
|
if (B) { SETERRQ(0,"Warning: This transformation is not intended for generalized problems"); }
|
if (B) { SETERRQ(((PetscObject)st)->comm,0,"Warning: This transformation is not intended for generalized problems"); }
|
ierr = KSPSetOperators(shell->ksp,A,A,DIFFERENT_NONZERO_PATTERN);CHKERRQ(ierr);
|
ierr = KSPSetOperators(shell->ksp,A,A,DIFFERENT_NONZERO_PATTERN);CHKERRQ(ierr);
|
ierr = KSPSetFromOptions(shell->ksp);CHKERRQ(ierr);
|
ierr = KSPSetFromOptions(shell->ksp);CHKERRQ(ierr);
|
PetscFunctionReturn(0);
|
PetscFunctionReturn(0);
|
}
|
}
|
/* ------------------------------------------------------------------- */
|
/* ------------------------------------------------------------------- */
|