| #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__ |
| #define __FUNCT__ "VecDestroy_Comp" |
| PetscErrorCode VecDestroy_Comp(Vec v) |
| { |
| 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__ |
| #define __FUNCT__ "VecCreateComp" |
| PetscErrorCode VecCreateComp(MPI_Comm comm,PetscInt *Nx,PetscInt n,const VecType t,Vec Vparent,Vec *V) |
| { |