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 56 #if defined PETSC_HAVE_HYPRE 57 PETSC_EXTERN PetscErrorCode MatCreate_HYPRE(Mat); 58 #endif 59 60 /* 61 This is used by MatSetType() to make sure that at least one 62 MatRegisterAll() is called. In general, if there is more than one 63 DLL, then MatRegisterAll() may be called several times. 64 */ 65 extern PetscBool MatRegisterAllCalled; 66 67 #undef __FUNCT__ 68 #define __FUNCT__ "MatRegisterAll" 69 /*@C 70 MatRegisterAll - Registers all of the matrix types in PETSc 71 72 Not Collective 73 74 Level: advanced 75 76 .keywords: KSP, register, all 77 78 .seealso: MatRegister() 79 @*/ 80 PetscErrorCode MatRegisterAll(void) 81 { 82 PetscErrorCode ierr; 83 84 PetscFunctionBegin; 85 if (MatRegisterAllCalled) PetscFunctionReturn(0); 86 MatRegisterAllCalled = PETSC_TRUE; 87 88 ierr = MatRegister(MATMFFD, MatCreate_MFFD);CHKERRQ(ierr); 89 90 ierr = MatRegister(MATMPIMAIJ, MatCreate_MAIJ);CHKERRQ(ierr); 91 ierr = MatRegister(MATSEQMAIJ, MatCreate_MAIJ);CHKERRQ(ierr); 92 ierr = MatRegister(MATMAIJ, MatCreate_MAIJ);CHKERRQ(ierr); 93 94 ierr = MatRegister(MATIS, MatCreate_IS);CHKERRQ(ierr); 95 ierr = MatRegister(MATSHELL, MatCreate_Shell);CHKERRQ(ierr); 96 ierr = MatRegister(MATCOMPOSITE, MatCreate_Composite);CHKERRQ(ierr); 97 98 ierr = MatRegisterBaseName(MATAIJ,MATSEQAIJ,MATMPIAIJ);CHKERRQ(ierr); 99 ierr = MatRegister(MATMPIAIJ, MatCreate_MPIAIJ);CHKERRQ(ierr); 100 ierr = MatRegister(MATSEQAIJ, MatCreate_SeqAIJ);CHKERRQ(ierr); 101 102 ierr = MatRegisterBaseName(MATAIJPERM,MATSEQAIJPERM,MATMPIAIJPERM);CHKERRQ(ierr); 103 ierr = MatRegister(MATMPIAIJPERM, MatCreate_MPIAIJPERM);CHKERRQ(ierr); 104 ierr = MatRegister(MATSEQAIJPERM, MatCreate_SeqAIJPERM);CHKERRQ(ierr); 105 106 ierr = MatRegisterBaseName(MATAIJCRL,MATSEQAIJCRL,MATMPIAIJCRL);CHKERRQ(ierr); 107 ierr = MatRegister(MATSEQAIJCRL, MatCreate_SeqAIJCRL);CHKERRQ(ierr); 108 ierr = MatRegister(MATMPIAIJCRL, MatCreate_MPIAIJCRL);CHKERRQ(ierr); 109 110 ierr = MatRegisterBaseName(MATBAIJ,MATSEQBAIJ,MATMPIBAIJ);CHKERRQ(ierr); 111 ierr = MatRegister(MATMPIBAIJ, MatCreate_MPIBAIJ);CHKERRQ(ierr); 112 ierr = MatRegister(MATSEQBAIJ, MatCreate_SeqBAIJ);CHKERRQ(ierr); 113 114 ierr = MatRegisterBaseName(MATSBAIJ,MATSEQSBAIJ,MATMPISBAIJ);CHKERRQ(ierr); 115 ierr = MatRegister(MATMPISBAIJ, MatCreate_MPISBAIJ);CHKERRQ(ierr); 116 ierr = MatRegister(MATSEQSBAIJ, MatCreate_SeqSBAIJ);CHKERRQ(ierr); 117 118 ierr = MatRegisterBaseName(MATDENSE,MATSEQDENSE,MATMPIDENSE);CHKERRQ(ierr); 119 ierr = MatRegister(MATMPIDENSE, MatCreate_MPIDense);CHKERRQ(ierr); 120 ierr = MatRegister(MATSEQDENSE, MatCreate_SeqDense);CHKERRQ(ierr); 121 122 ierr = MatRegister(MATMPIADJ, MatCreate_MPIAdj);CHKERRQ(ierr); 123 ierr = MatRegister(MATSCATTER, MatCreate_Scatter);CHKERRQ(ierr); 124 ierr = MatRegister(MATBLOCKMAT, MatCreate_BlockMat);CHKERRQ(ierr); 125 ierr = MatRegister(MATNEST, MatCreate_Nest);CHKERRQ(ierr); 126 127 #if defined PETSC_HAVE_CUSP 128 ierr = MatRegisterBaseName(MATAIJCUSP,MATSEQAIJCUSP,MATMPIAIJCUSP);CHKERRQ(ierr); 129 ierr = MatRegister(MATSEQAIJCUSP, MatCreate_SeqAIJCUSP);CHKERRQ(ierr); 130 ierr = MatRegister(MATMPIAIJCUSP, MatCreate_MPIAIJCUSP);CHKERRQ(ierr); 131 #endif 132 133 #if defined PETSC_HAVE_VECCUDA 134 ierr = MatRegisterBaseName(MATAIJCUSPARSE,MATSEQAIJCUSPARSE,MATMPIAIJCUSPARSE);CHKERRQ(ierr); 135 ierr = MatRegister(MATSEQAIJCUSPARSE, MatCreate_SeqAIJCUSPARSE);CHKERRQ(ierr); 136 ierr = MatRegister(MATMPIAIJCUSPARSE, MatCreate_MPIAIJCUSPARSE);CHKERRQ(ierr); 137 #endif 138 139 #if defined PETSC_HAVE_VIENNACL 140 ierr = MatRegisterBaseName(MATAIJVIENNACL,MATSEQAIJVIENNACL,MATMPIAIJVIENNACL);CHKERRQ(ierr); 141 ierr = MatRegister(MATSEQAIJVIENNACL, MatCreate_SeqAIJViennaCL);CHKERRQ(ierr); 142 ierr = MatRegister(MATMPIAIJVIENNACL, MatCreate_MPIAIJViennaCL);CHKERRQ(ierr); 143 #endif 144 145 #if defined PETSC_HAVE_FFTW 146 ierr = MatRegister(MATFFTW, MatCreate_FFTW);CHKERRQ(ierr); 147 #endif 148 #if defined PETSC_HAVE_ELEMENTAL 149 ierr = MatRegister(MATELEMENTAL, MatCreate_Elemental);CHKERRQ(ierr); 150 #endif 151 152 ierr = MatRegister(MATPREALLOCATOR, MatCreate_Preallocator);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