Subversion Repositories slepc-dev

Rev

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

Rev 2341 Rev 2344
Line 122... Line 122... 
  PetscErrorCode ierr;
 
  PetscErrorCode ierr;
 
  PetscInt       i;
 
  PetscInt       i;
 
 
 
 
 
  PetscFunctionBegin;
 
  PetscFunctionBegin;
 
  PetscValidPointer(V,2);
 
  PetscValidPointer(V,2);
 
 
 
  if (!*V) PetscFunctionReturn(0);
 
  if (m <= 0) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"m must be > 0: m = %D",m);
 
  if (m <= 0) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"m must be > 0: m = %D",m);
 
  SlepcValidVecsContiguous(*V,m,2);
 
  SlepcValidVecsContiguous(*V,m,2);
 
  for (i=0;i<m;i++) {
 
  for (i=0;i<m;i++) {
 
    ierr = VecDestroy(*V+i);CHKERRQ(ierr);
 
    ierr = VecDestroy(*V+i);CHKERRQ(ierr);
 
  }
 
  }