| Line 291... |
Line 291... |
PetscErrorCode ierr;
|
PetscErrorCode ierr;
|
PetscInt i;
|
PetscInt i;
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
PetscValidHeaderSpecific(qep,QEP_CLASSID,1);
|
PetscValidHeaderSpecific(qep,QEP_CLASSID,1);
|
|
PetscValidLogicalCollectiveInt(qep,n,2);
|
if (n<0) SETERRQ(((PetscObject)qep)->comm,PETSC_ERR_ARG_OUTOFRANGE,"Argument n cannot be negative");
|
if (n<0) SETERRQ(((PetscObject)qep)->comm,PETSC_ERR_ARG_OUTOFRANGE,"Argument n cannot be negative");
|
|
|
/* free previous non-processed vectors */
|
/* free previous non-processed vectors */
|
if (qep->nini<0) {
|
if (qep->nini<0) {
|
for (i=0;i<-qep->nini;i++) {
|
for (i=0;i<-qep->nini;i++) {
|
| Line 351... |
Line 352... |
PetscErrorCode ierr;
|
PetscErrorCode ierr;
|
PetscInt i;
|
PetscInt i;
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
PetscValidHeaderSpecific(qep,QEP_CLASSID,1);
|
PetscValidHeaderSpecific(qep,QEP_CLASSID,1);
|
|
PetscValidLogicalCollectiveInt(qep,n,2);
|
if (n<0) SETERRQ(((PetscObject)qep)->comm,PETSC_ERR_ARG_OUTOFRANGE,"Argument n cannot be negative");
|
if (n<0) SETERRQ(((PetscObject)qep)->comm,PETSC_ERR_ARG_OUTOFRANGE,"Argument n cannot be negative");
|
|
|
/* free previous non-processed vectors */
|
/* free previous non-processed vectors */
|
if (qep->ninil<0) {
|
if (qep->ninil<0) {
|
for (i=0;i<-qep->ninil;i++) {
|
for (i=0;i<-qep->ninil;i++) {
|