1 2 #include <petscvec.h> 3 PETSC_EXTERN_C PetscErrorCode VecCreate_Seq(Vec); 4 PETSC_EXTERN_C PetscErrorCode VecCreate_MPI(Vec); 5 PETSC_EXTERN_C PetscErrorCode VecCreate_Standard(Vec); 6 PETSC_EXTERN_C PetscErrorCode VecCreate_Shared(Vec); 7 #if defined(PETSC_HAVE_CUSP) 8 PETSC_EXTERN_C PetscErrorCode VecCreate_SeqCUSP(Vec); 9 PETSC_EXTERN_C PetscErrorCode VecCreate_MPICUSP(Vec); 10 PETSC_EXTERN_C PetscErrorCode VecCreate_CUSP(Vec); 11 #endif 12 #if 0 13 #if defined(PETSC_HAVE_SIEVE) 14 PETSC_EXTERN_C PetscErrorCode VecCreate_Sieve(Vec); 15 #endif 16 #endif 17 18 #undef __FUNCT__ 19 #define __FUNCT__ "VecRegisterAll" 20 /*@C 21 VecRegisterAll - Registers all of the vector components in the Vec package. 22 23 Not Collective 24 25 Input parameter: 26 . path - The dynamic library path 27 28 Level: advanced 29 30 .keywords: Vec, register, all 31 .seealso: VecRegister(), VecRegisterDestroy(), VecRegisterDynamic() 32 @*/ 33 PetscErrorCode VecRegisterAll(const char path[]) 34 { 35 PetscErrorCode ierr; 36 37 PetscFunctionBegin; 38 VecRegisterAllCalled = PETSC_TRUE; 39 40 ierr = VecRegisterDynamic(VECSEQ, path, "VecCreate_Seq", VecCreate_Seq);CHKERRQ(ierr); 41 ierr = VecRegisterDynamic(VECMPI, path, "VecCreate_MPI", VecCreate_MPI);CHKERRQ(ierr); 42 ierr = VecRegisterDynamic(VECSTANDARD, path, "VecCreate_Standard", VecCreate_Standard);CHKERRQ(ierr); 43 ierr = VecRegisterDynamic(VECSHARED, path, "VecCreate_Shared", VecCreate_Shared);CHKERRQ(ierr); 44 #if defined PETSC_HAVE_CUSP 45 ierr = VecRegisterDynamic(VECSEQCUSP, path, "VecCreate_SeqCUSP", VecCreate_SeqCUSP);CHKERRQ(ierr); 46 ierr = VecRegisterDynamic(VECMPICUSP, path, "VecCreate_MPICUSP", VecCreate_MPICUSP);CHKERRQ(ierr); 47 ierr = VecRegisterDynamic(VECCUSP, path, "VecCreate_CUSP", VecCreate_CUSP);CHKERRQ(ierr); 48 #endif 49 #if 0 50 #if defined(PETSC_HAVE_SIEVE) 51 ierr = VecRegisterDynamic(VECSIEVE, path, "VecCreate_Sieve", VecCreate_Sieve);CHKERRQ(ierr); 52 #endif 53 #endif 54 PetscFunctionReturn(0); 55 } 56 57