Subversion Repositories slepc-dev

Rev

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

Rev 1672 Rev 1925
Line 308... Line 308... 
  }
 
  }
 
  if (cross->diag) {
 
  if (cross->diag) {
 
    ierr = VecDestroy(cross->diag);CHKERRQ(ierr);
 
    ierr = VecDestroy(cross->diag);CHKERRQ(ierr);
 
  }
 
  }
 
  ierr = PetscFree(svd->data);CHKERRQ(ierr);
 
  ierr = PetscFree(svd->data);CHKERRQ(ierr);
 
 
 
  ierr = PetscObjectComposeFunctionDynamic((PetscObject)svd,"SVDCrossSetEPS_C","",PETSC_NULL);CHKERRQ(ierr);
 
 
 
  ierr = PetscObjectComposeFunctionDynamic((PetscObject)svd,"SVDCrossGetEPS_C","",PETSC_NULL);CHKERRQ(ierr);
 
  PetscFunctionReturn(0);
 
  PetscFunctionReturn(0);
 
}
 
}
 
 
 
 
 
EXTERN_C_BEGIN
 
EXTERN_C_BEGIN
 
#undef __FUNCT__  
 
#undef __FUNCT__