| Line 48... |
Line 48... |
|
|
#include "veccomp0.h"
|
#include "veccomp0.h"
|
|
|
#define __WITH_MPI__
|
#define __WITH_MPI__
|
#include "veccomp0.h"
|
#include "veccomp0.h"
|
|
|
#undef __FUNCT__
|
|
#define __FUNCT__ "VecRegister_Comp"
|
|
PetscErrorCode VecRegister_Comp(const char path[])
|
|
{
|
|
PetscErrorCode ierr;
|
|
|
|
PetscFunctionBegin;
|
|
ierr = VecRegisterDynamic(VECCOMP,path,"VecCreate_Comp",VecCreate_Comp);CHKERRQ(ierr);
|
|
PetscFunctionReturn(0);
|
|
}
|
|
|
|
|
|
#undef __FUNCT__
|
#undef __FUNCT__
|
#define __FUNCT__ "VecDestroy_Comp"
|
#define __FUNCT__ "VecDestroy_Comp"
|
PetscErrorCode VecDestroy_Comp(Vec v)
|
PetscErrorCode VecDestroy_Comp(Vec v)
|
{
|
{
|
| Line 213... |
Line 201... |
PetscFunctionBegin;
|
PetscFunctionBegin;
|
ierr = VecCreate_Comp_Private(V,PETSC_NULL,0,PETSC_FALSE,PETSC_NULL);CHKERRQ(ierr);
|
ierr = VecCreate_Comp_Private(V,PETSC_NULL,0,PETSC_FALSE,PETSC_NULL);CHKERRQ(ierr);
|
PetscFunctionReturn(0);
|
PetscFunctionReturn(0);
|
}
|
}
|
EXTERN_C_END
|
EXTERN_C_END
|
|
|
|
#undef __FUNCT__
|
|
#define __FUNCT__ "VecRegister_Comp"
|
|
PetscErrorCode VecRegister_Comp(const char path[])
|
|
{
|
|
PetscErrorCode ierr;
|
|
|
|
PetscFunctionBegin;
|
|
ierr = VecRegisterDynamic(VECCOMP,path,"VecCreate_Comp",VecCreate_Comp);CHKERRQ(ierr);
|
|
PetscFunctionReturn(0);
|
|
}
|
|
|
#undef __FUNCT__
|
#undef __FUNCT__
|
#define __FUNCT__ "VecCreateComp"
|
#define __FUNCT__ "VecCreateComp"
|
PetscErrorCode VecCreateComp(MPI_Comm comm,PetscInt *Nx,PetscInt n,const VecType t,Vec Vparent,Vec *V)
|
PetscErrorCode VecCreateComp(MPI_Comm comm,PetscInt *Nx,PetscInt n,const VecType t,Vec Vparent,Vec *V)
|
{
|
{
|