1 /*$Id: matregis.c,v 1.8 2001/03/23 23:21:44 balay Exp bsmith $*/ 2 3 #include "petscmat.h" /*I "petscmat.h" I*/ 4 5 EXTERN_C_BEGIN 6 EXTERN int MatCreate_MAIJ(Mat); 7 EXTERN int MatCreate_IS(Mat); 8 EXTERN int MatCreate_MPIRowbs(Mat); 9 EXTERN int MatCreate_SeqAIJ(Mat); 10 EXTERN int MatCreate_MPIAIJ(Mat); 11 EXTERN int MatCreate_SeqBAIJ(Mat); 12 EXTERN int MatCreate_MPIBAIJ(Mat); 13 EXTERN int MatCreate_SeqSBAIJ(Mat); 14 EXTERN int MatCreate_MPISBAIJ(Mat); 15 EXTERN int MatCreate_SeqBDiag(Mat); 16 EXTERN int MatCreate_MPIBDiag(Mat); 17 EXTERN int MatCreate_SeqDense(Mat); 18 EXTERN int MatCreate_MPIDense(Mat); 19 EXTERN int MatCreate_MPIAdj(Mat); 20 EXTERN int MatCreate_Shell(Mat); 21 EXTERN int MatCreate_Adic(Mat); 22 EXTERN_C_END 23 24 /* 25 This is used by MatSetType() to make sure that at least one 26 MatRegisterAll() is called. In general, if there is more than one 27 DLL, then MatRegisterAll() may be called several times. 28 */ 29 EXTERN PetscTruth MatRegisterAllCalled; 30 31 #undef __FUNCT__ 32 #define __FUNCT__ "MatRegisterAll" 33 /*@C 34 MatRegisterAll - Registers all of the matrix types in PETSc 35 36 Not Collective 37 38 Level: advanced 39 40 .keywords: KSP, register, all 41 42 .seealso: MatRegisterDestroy() 43 @*/ 44 int MatRegisterAll(char *path) 45 { 46 int ierr; 47 48 PetscFunctionBegin; 49 MatRegisterAllCalled = PETSC_TRUE; 50 51 ierr = MatRegisterDynamic(MATMPIMAIJ, path,"MatCreate_MAIJ", MatCreate_MAIJ);CHKERRQ(ierr); 52 ierr = MatRegisterDynamic(MATSEQMAIJ, path,"MatCreate_MAIJ", MatCreate_MAIJ);CHKERRQ(ierr); 53 54 ierr = MatRegisterDynamic(MATIS, path,"MatCreate_IS", MatCreate_IS);CHKERRQ(ierr); 55 ierr = MatRegisterDynamic(MATSHELL, path,"MatCreate_Shell", MatCreate_Shell);CHKERRQ(ierr); 56 #if defined(PETSC_HAVE_BLOCKSOLVE) && !defined(__cplusplus) 57 ierr = MatRegisterDynamic(MATMPIROWBS,path,"MatCreate_MPIRowbs",MatCreate_MPIRowbs);CHKERRQ(ierr); 58 #endif 59 60 ierr = MatRegisterDynamic(MATMPIAIJ, path,"MatCreate_MPIAIJ", MatCreate_MPIAIJ);CHKERRQ(ierr); 61 ierr = MatRegisterDynamic(MATSEQAIJ, path,"MatCreate_SeqAIJ", MatCreate_SeqAIJ);CHKERRQ(ierr); 62 63 ierr = MatRegisterDynamic(MATMPIBAIJ, path,"MatCreate_MPIBAIJ", MatCreate_MPIBAIJ);CHKERRQ(ierr); 64 ierr = MatRegisterDynamic(MATSEQBAIJ, path,"MatCreate_SeqBAIJ", MatCreate_SeqBAIJ);CHKERRQ(ierr); 65 66 ierr = MatRegisterDynamic(MATMPISBAIJ, path,"MatCreate_MPISBAIJ", MatCreate_MPISBAIJ);CHKERRQ(ierr); 67 ierr = MatRegisterDynamic(MATSEQSBAIJ, path,"MatCreate_SeqSBAIJ", MatCreate_SeqSBAIJ);CHKERRQ(ierr); 68 69 ierr = MatRegisterDynamic(MATMPIBDIAG, path,"MatCreate_MPIBDiag", MatCreate_MPIBDiag);CHKERRQ(ierr); 70 ierr = MatRegisterDynamic(MATSEQBDIAG, path,"MatCreate_SeqBDiag", MatCreate_SeqBDiag);CHKERRQ(ierr); 71 72 ierr = MatRegisterDynamic(MATMPIDENSE, path,"MatCreate_MPIDense", MatCreate_MPIDense);CHKERRQ(ierr); 73 ierr = MatRegisterDynamic(MATSEQDENSE, path,"MatCreate_SeqDense", MatCreate_SeqDense);CHKERRQ(ierr); 74 75 ierr = MatRegisterDynamic(MATMPIADJ, path,"MatCreate_MPIAdj", MatCreate_MPIAdj);CHKERRQ(ierr); 76 #if defined(PETSC_HAVE_ADIC) 77 ierr = MatRegisterDynamic(MATADIC, path,"MatCreate_Adic", MatCreate_Adic);CHKERRQ(ierr); 78 #endif 79 PetscFunctionReturn(0); 80 } 81 82