1 2 #include <petscmat.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_SeqBSTRM(Mat); 18 PETSC_EXTERN PetscErrorCode MatCreate_MPIBSTRM(Mat); 19 20 PETSC_EXTERN PetscErrorCode MatCreate_SeqSBSTRM(Mat); 21 PETSC_EXTERN PetscErrorCode MatCreate_MPISBSTRM(Mat); 22 23 PETSC_EXTERN PetscErrorCode MatCreate_SeqDense(Mat); 24 PETSC_EXTERN PetscErrorCode MatCreate_MPIDense(Mat); 25 26 PETSC_EXTERN PetscErrorCode MatCreate_MPIAdj(Mat); 27 PETSC_EXTERN PetscErrorCode MatCreate_Shell(Mat); 28 PETSC_EXTERN PetscErrorCode MatCreate_Composite(Mat); 29 30 PETSC_EXTERN PetscErrorCode MatCreate_SeqAIJPERM(Mat); 31 PETSC_EXTERN PetscErrorCode MatCreate_MPIAIJPERM(Mat); 32 33 PETSC_EXTERN PetscErrorCode MatCreate_SeqAIJCRL(Mat); 34 PETSC_EXTERN PetscErrorCode MatCreate_MPIAIJCRL(Mat); 35 36 PETSC_EXTERN PetscErrorCode MatCreate_Scatter(Mat); 37 PETSC_EXTERN PetscErrorCode MatCreate_BlockMat(Mat); 38 PETSC_EXTERN PetscErrorCode MatCreate_Nest(Mat); 39 40 #if defined PETSC_HAVE_CUSP 41 PETSC_EXTERN PetscErrorCode MatCreate_SeqAIJCUSP(Mat); 42 PETSC_EXTERN PetscErrorCode MatCreate_MPIAIJCUSP(Mat); 43 #endif 44 45 #if defined PETSC_HAVE_CUSP 46 PETSC_EXTERN PetscErrorCode MatCreate_SeqAIJCUSPARSE(Mat); 47 PETSC_EXTERN PetscErrorCode MatCreate_MPIAIJCUSPARSE(Mat); 48 #endif 49 50 #if defined PETSC_HAVE_VIENNACL 51 PETSC_EXTERN PetscErrorCode MatCreate_SeqAIJViennaCL(Mat); 52 PETSC_EXTERN PetscErrorCode MatCreate_MPIAIJViennaCL(Mat); 53 #endif 54 55 #if defined PETSC_HAVE_FFTW 56 PETSC_EXTERN PetscErrorCode MatCreate_FFTW(Mat); 57 #endif 58 PETSC_EXTERN PetscErrorCode MatCreate_Elemental(Mat); 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: MatRegisterDestroy() 79 @*/ 80 PetscErrorCode MatRegisterAll(void) 81 { 82 PetscErrorCode ierr; 83 84 PetscFunctionBegin; 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(MATBSTRM,MATSEQBSTRM,MATMPIBSTRM);CHKERRQ(ierr); 118 ierr = MatRegister(MATMPIBSTRM, MatCreate_MPIBSTRM);CHKERRQ(ierr); 119 ierr = MatRegister(MATSEQBSTRM, MatCreate_SeqBSTRM);CHKERRQ(ierr); 120 121 ierr = MatRegisterBaseName(MATSBSTRM,MATSEQSBSTRM,MATMPISBSTRM);CHKERRQ(ierr); 122 ierr = MatRegister(MATMPISBSTRM, MatCreate_MPISBSTRM);CHKERRQ(ierr); 123 ierr = MatRegister(MATSEQSBSTRM, MatCreate_SeqSBSTRM);CHKERRQ(ierr); 124 125 ierr = MatRegisterBaseName(MATDENSE,MATSEQDENSE,MATMPIDENSE);CHKERRQ(ierr); 126 ierr = MatRegister(MATMPIDENSE, MatCreate_MPIDense);CHKERRQ(ierr); 127 ierr = MatRegister(MATSEQDENSE, MatCreate_SeqDense);CHKERRQ(ierr); 128 129 ierr = MatRegister(MATMPIADJ, MatCreate_MPIAdj);CHKERRQ(ierr); 130 ierr = MatRegister(MATSCATTER, MatCreate_Scatter);CHKERRQ(ierr); 131 ierr = MatRegister(MATBLOCKMAT, MatCreate_BlockMat);CHKERRQ(ierr); 132 ierr = MatRegister(MATNEST, MatCreate_Nest);CHKERRQ(ierr); 133 134 135 #if defined PETSC_HAVE_CUSP 136 ierr = MatRegisterBaseName(MATAIJCUSP,MATSEQAIJCUSP,MATMPIAIJCUSP);CHKERRQ(ierr); 137 ierr = MatRegister(MATSEQAIJCUSP, MatCreate_SeqAIJCUSP);CHKERRQ(ierr); 138 ierr = MatRegister(MATMPIAIJCUSP, MatCreate_MPIAIJCUSP);CHKERRQ(ierr); 139 #endif 140 141 #if defined PETSC_HAVE_CUSP 142 ierr = MatRegisterBaseName(MATAIJCUSPARSE,MATSEQAIJCUSPARSE,MATMPIAIJCUSPARSE);CHKERRQ(ierr); 143 ierr = MatRegister(MATSEQAIJCUSPARSE, MatCreate_SeqAIJCUSPARSE);CHKERRQ(ierr); 144 ierr = MatRegister(MATMPIAIJCUSPARSE, MatCreate_MPIAIJCUSPARSE);CHKERRQ(ierr); 145 #endif 146 147 #if defined PETSC_HAVE_VIENNACL 148 ierr = MatRegisterBaseName(MATAIJVIENNACL,MATSEQAIJVIENNACL,MATMPIAIJVIENNACL);CHKERRQ(ierr); 149 ierr = MatRegister(MATSEQAIJVIENNACL, MatCreate_SeqAIJViennaCL);CHKERRQ(ierr); 150 ierr = MatRegister(MATMPIAIJVIENNACL, MatCreate_MPIAIJViennaCL);CHKERRQ(ierr); 151 #endif 152 153 154 #if defined PETSC_HAVE_FFTW 155 ierr = MatRegister(MATFFTW, MatCreate_FFTW);CHKERRQ(ierr); 156 #endif 157 #if defined PETSC_HAVE_ELEMENTAL 158 ierr = MatRegister(MATELEMENTAL, MatCreate_Elemental);CHKERRQ(ierr); 159 #endif 160 PetscFunctionReturn(0); 161 } 162 163 164