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