1 2 #include <petsc/private/matimpl.h> /*I "petscmat.h" I*/ 3 4 PETSC_EXTERN PetscErrorCode MatCreate_MFFD(Mat); 5 PETSC_EXTERN PetscErrorCode MatCreate_MAIJ(Mat); 6 PETSC_EXTERN PetscErrorCode MatCreate_IS(Mat); 7 8 PETSC_EXTERN PetscErrorCode MatCreate_SeqAIJ(Mat); 9 PETSC_EXTERN PetscErrorCode MatCreate_MPIAIJ(Mat); 10 11 PETSC_EXTERN PetscErrorCode MatCreate_SeqBAIJ(Mat); 12 PETSC_EXTERN PetscErrorCode MatCreate_MPIBAIJ(Mat); 13 14 PETSC_EXTERN PetscErrorCode MatCreate_SeqSBAIJ(Mat); 15 PETSC_EXTERN PetscErrorCode MatCreate_MPISBAIJ(Mat); 16 17 PETSC_EXTERN PetscErrorCode MatCreate_SeqDense(Mat); 18 PETSC_EXTERN PetscErrorCode MatCreate_MPIDense(Mat); 19 20 PETSC_EXTERN PetscErrorCode MatCreate_MPIAdj(Mat); 21 PETSC_EXTERN PetscErrorCode MatCreate_Shell(Mat); 22 PETSC_EXTERN PetscErrorCode MatCreate_Composite(Mat); 23 24 PETSC_EXTERN PetscErrorCode MatCreate_SeqAIJPERM(Mat); 25 PETSC_EXTERN PetscErrorCode MatCreate_MPIAIJPERM(Mat); 26 27 PETSC_EXTERN PetscErrorCode MatCreate_SeqAIJCRL(Mat); 28 PETSC_EXTERN PetscErrorCode MatCreate_MPIAIJCRL(Mat); 29 30 PETSC_EXTERN PetscErrorCode MatCreate_Scatter(Mat); 31 PETSC_EXTERN PetscErrorCode MatCreate_BlockMat(Mat); 32 PETSC_EXTERN PetscErrorCode MatCreate_Nest(Mat); 33 34 #if defined PETSC_HAVE_CUSP 35 PETSC_EXTERN PetscErrorCode MatCreate_SeqAIJCUSP(Mat); 36 PETSC_EXTERN PetscErrorCode MatCreate_MPIAIJCUSP(Mat); 37 #endif 38 39 #if defined PETSC_HAVE_VECCUDA 40 PETSC_EXTERN PetscErrorCode MatCreate_SeqAIJCUSPARSE(Mat); 41 PETSC_EXTERN PetscErrorCode MatCreate_MPIAIJCUSPARSE(Mat); 42 #endif 43 44 #if defined PETSC_HAVE_VIENNACL 45 PETSC_EXTERN PetscErrorCode MatCreate_SeqAIJViennaCL(Mat); 46 PETSC_EXTERN PetscErrorCode MatCreate_MPIAIJViennaCL(Mat); 47 #endif 48 49 #if defined PETSC_HAVE_FFTW 50 PETSC_EXTERN PetscErrorCode MatCreate_FFTW(Mat); 51 #endif 52 PETSC_EXTERN PetscErrorCode MatCreate_Elemental(Mat); 53 54 PETSC_EXTERN PetscErrorCode MatCreate_Preallocator(Mat); 55 PETSC_EXTERN PetscErrorCode MatCreate_Dummy(Mat); 56 57 #if defined PETSC_HAVE_HYPRE 58 PETSC_EXTERN PetscErrorCode MatCreate_HYPRE(Mat); 59 #endif 60 61 /* 62 This is used by MatSetType() to make sure that at least one 63 MatRegisterAll() is called. In general, if there is more than one 64 DLL, then MatRegisterAll() may be called several times. 65 */ 66 extern PetscBool MatRegisterAllCalled; 67 68 /*@C 69 MatRegisterAll - Registers all of the matrix types in PETSc 70 71 Not Collective 72 73 Level: advanced 74 75 .keywords: KSP, register, all 76 77 .seealso: MatRegister() 78 @*/ 79 PetscErrorCode MatRegisterAll(void) 80 { 81 PetscErrorCode ierr; 82 83 PetscFunctionBegin; 84 if (MatRegisterAllCalled) PetscFunctionReturn(0); 85 MatRegisterAllCalled = PETSC_TRUE; 86 87 ierr = MatRegister(MATMFFD, MatCreate_MFFD);CHKERRQ(ierr); 88 89 ierr = MatRegister(MATMPIMAIJ, MatCreate_MAIJ);CHKERRQ(ierr); 90 ierr = MatRegister(MATSEQMAIJ, MatCreate_MAIJ);CHKERRQ(ierr); 91 ierr = MatRegister(MATMAIJ, MatCreate_MAIJ);CHKERRQ(ierr); 92 93 ierr = MatRegister(MATIS, MatCreate_IS);CHKERRQ(ierr); 94 ierr = MatRegister(MATSHELL, MatCreate_Shell);CHKERRQ(ierr); 95 ierr = MatRegister(MATCOMPOSITE, MatCreate_Composite);CHKERRQ(ierr); 96 97 ierr = MatRegisterBaseName(MATAIJ,MATSEQAIJ,MATMPIAIJ);CHKERRQ(ierr); 98 ierr = MatRegister(MATMPIAIJ, MatCreate_MPIAIJ);CHKERRQ(ierr); 99 ierr = MatRegister(MATSEQAIJ, MatCreate_SeqAIJ);CHKERRQ(ierr); 100 101 ierr = MatRegisterBaseName(MATAIJPERM,MATSEQAIJPERM,MATMPIAIJPERM);CHKERRQ(ierr); 102 ierr = MatRegister(MATMPIAIJPERM, MatCreate_MPIAIJPERM);CHKERRQ(ierr); 103 ierr = MatRegister(MATSEQAIJPERM, MatCreate_SeqAIJPERM);CHKERRQ(ierr); 104 105 ierr = MatRegisterBaseName(MATAIJCRL,MATSEQAIJCRL,MATMPIAIJCRL);CHKERRQ(ierr); 106 ierr = MatRegister(MATSEQAIJCRL, MatCreate_SeqAIJCRL);CHKERRQ(ierr); 107 ierr = MatRegister(MATMPIAIJCRL, MatCreate_MPIAIJCRL);CHKERRQ(ierr); 108 109 ierr = MatRegisterBaseName(MATBAIJ,MATSEQBAIJ,MATMPIBAIJ);CHKERRQ(ierr); 110 ierr = MatRegister(MATMPIBAIJ, MatCreate_MPIBAIJ);CHKERRQ(ierr); 111 ierr = MatRegister(MATSEQBAIJ, MatCreate_SeqBAIJ);CHKERRQ(ierr); 112 113 ierr = MatRegisterBaseName(MATSBAIJ,MATSEQSBAIJ,MATMPISBAIJ);CHKERRQ(ierr); 114 ierr = MatRegister(MATMPISBAIJ, MatCreate_MPISBAIJ);CHKERRQ(ierr); 115 ierr = MatRegister(MATSEQSBAIJ, MatCreate_SeqSBAIJ);CHKERRQ(ierr); 116 117 ierr = MatRegisterBaseName(MATDENSE,MATSEQDENSE,MATMPIDENSE);CHKERRQ(ierr); 118 ierr = MatRegister(MATMPIDENSE, MatCreate_MPIDense);CHKERRQ(ierr); 119 ierr = MatRegister(MATSEQDENSE, MatCreate_SeqDense);CHKERRQ(ierr); 120 121 ierr = MatRegister(MATMPIADJ, MatCreate_MPIAdj);CHKERRQ(ierr); 122 ierr = MatRegister(MATSCATTER, MatCreate_Scatter);CHKERRQ(ierr); 123 ierr = MatRegister(MATBLOCKMAT, MatCreate_BlockMat);CHKERRQ(ierr); 124 ierr = MatRegister(MATNEST, MatCreate_Nest);CHKERRQ(ierr); 125 126 #if defined PETSC_HAVE_CUSP 127 ierr = MatRegisterBaseName(MATAIJCUSP,MATSEQAIJCUSP,MATMPIAIJCUSP);CHKERRQ(ierr); 128 ierr = MatRegister(MATSEQAIJCUSP, MatCreate_SeqAIJCUSP);CHKERRQ(ierr); 129 ierr = MatRegister(MATMPIAIJCUSP, MatCreate_MPIAIJCUSP);CHKERRQ(ierr); 130 #endif 131 132 #if defined PETSC_HAVE_VECCUDA 133 ierr = MatRegisterBaseName(MATAIJCUSPARSE,MATSEQAIJCUSPARSE,MATMPIAIJCUSPARSE);CHKERRQ(ierr); 134 ierr = MatRegister(MATSEQAIJCUSPARSE, MatCreate_SeqAIJCUSPARSE);CHKERRQ(ierr); 135 ierr = MatRegister(MATMPIAIJCUSPARSE, MatCreate_MPIAIJCUSPARSE);CHKERRQ(ierr); 136 #endif 137 138 #if defined PETSC_HAVE_VIENNACL 139 ierr = MatRegisterBaseName(MATAIJVIENNACL,MATSEQAIJVIENNACL,MATMPIAIJVIENNACL);CHKERRQ(ierr); 140 ierr = MatRegister(MATSEQAIJVIENNACL, MatCreate_SeqAIJViennaCL);CHKERRQ(ierr); 141 ierr = MatRegister(MATMPIAIJVIENNACL, MatCreate_MPIAIJViennaCL);CHKERRQ(ierr); 142 #endif 143 144 #if defined PETSC_HAVE_FFTW 145 ierr = MatRegister(MATFFTW, MatCreate_FFTW);CHKERRQ(ierr); 146 #endif 147 #if defined PETSC_HAVE_ELEMENTAL 148 ierr = MatRegister(MATELEMENTAL, MatCreate_Elemental);CHKERRQ(ierr); 149 #endif 150 151 ierr = MatRegister(MATPREALLOCATOR, MatCreate_Preallocator);CHKERRQ(ierr); 152 ierr = MatRegister(MATDUMMY, MatCreate_Dummy);CHKERRQ(ierr); 153 154 #if defined PETSC_HAVE_HYPRE 155 ierr = MatRegister(MATHYPRE, MatCreate_HYPRE);CHKERRQ(ierr); 156 #endif 157 PetscFunctionReturn(0); 158 } 159 160 161