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__