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