1 /*$Id: pcregis.c,v 1.66 2001/08/10 03:32:21 bsmith Exp $*/ 2 3 #include "src/ksp/pc/pcimpl.h" /*I "petscpc.h" I*/ 4 5 EXTERN_C_BEGIN 6 EXTERN int PCCreate_Jacobi(PC); 7 EXTERN int PCCreate_BJacobi(PC); 8 EXTERN int PCCreate_PBJacobi(PC); 9 EXTERN int PCCreate_PBSOR(PC); 10 EXTERN int PCCreate_ILU(PC); 11 EXTERN int PCCreate_None(PC); 12 EXTERN int PCCreate_LU(PC); 13 EXTERN int PCCreate_SOR(PC); 14 EXTERN int PCCreate_Shell(PC); 15 EXTERN int PCCreate_MG(PC); 16 EXTERN int PCCreate_Eisenstat(PC); 17 EXTERN int PCCreate_ICC(PC); 18 EXTERN int PCCreate_ASM(PC); 19 EXTERN int PCCreate_KSP(PC); 20 EXTERN int PCCreate_Composite(PC); 21 EXTERN int PCCreate_Redundant(PC); 22 EXTERN int PCCreate_NN(PC); 23 EXTERN int PCCreate_Cholesky(PC); 24 #if defined(PETSC_HAVE_SPAI) && !defined(PETSC_USE_COMPLEX) && !defined(PETSC_USE_SINGLE) 25 EXTERN int PCCreate_SPAI(PC); 26 #endif 27 #if defined(PETSC_HAVE_RAMG) && !defined(PETSC_USE_COMPLEX) && !defined(PETSC_USE_SINGLE) 28 EXTERN int PCCreate_RAMG(PC); 29 #endif 30 #if defined(PETSC_HAVE_SAMG) && !defined(PETSC_USE_COMPLEX) && !defined(PETSC_USE_SINGLE) 31 EXTERN int PCCreate_SAMG(PC); 32 #endif 33 EXTERN int PCCreate_mILU(PC); 34 EXTERN int PCCreate_PetscESI(PC); 35 EXTERN int PCCreate_ESI(PC); 36 EXTERN int PCCreate_Mat(PC); 37 #if defined(PETSC_HAVE_HYPRE) && !defined(PETSC_USE_COMPLEX) && !defined(PETSC_USE_SINGLE) 38 EXTERN int PCCreate_HYPRE(PC); 39 #endif 40 EXTERN_C_END 41 42 #undef __FUNCT__ 43 #define __FUNCT__ "PCRegisterAll" 44 /*@C 45 PCRegisterAll - Registers all of the preconditioners in the PC package. 46 47 Not Collective 48 49 Input Parameter: 50 . path - the library where the routines are to be found (optional) 51 52 Level: advanced 53 54 .keywords: PC, register, all 55 56 .seealso: PCRegisterDynamic(), PCRegisterDestroy() 57 @*/ 58 int PCRegisterAll(const char path[]) 59 { 60 int ierr; 61 62 PetscFunctionBegin; 63 PCRegisterAllCalled = PETSC_TRUE; 64 65 ierr = PCRegisterDynamic(PCNONE ,path,"PCCreate_None",PCCreate_None);CHKERRQ(ierr); 66 ierr = PCRegisterDynamic(PCJACOBI ,path,"PCCreate_Jacobi",PCCreate_Jacobi);CHKERRQ(ierr); 67 ierr = PCRegisterDynamic(PCPBJACOBI ,path,"PCCreate_PBJacobi",PCCreate_PBJacobi);CHKERRQ(ierr); 68 ierr = PCRegisterDynamic(PCBJACOBI ,path,"PCCreate_BJacobi",PCCreate_BJacobi);CHKERRQ(ierr); 69 ierr = PCRegisterDynamic(PCSOR ,path,"PCCreate_SOR",PCCreate_SOR);CHKERRQ(ierr); 70 ierr = PCRegisterDynamic(PCPBSOR ,path,"PCCreate_PBSOR",PCCreate_PBSOR);CHKERRQ(ierr); 71 ierr = PCRegisterDynamic(PCLU ,path,"PCCreate_LU",PCCreate_LU);CHKERRQ(ierr); 72 ierr = PCRegisterDynamic(PCSHELL ,path,"PCCreate_Shell",PCCreate_Shell);CHKERRQ(ierr); 73 ierr = PCRegisterDynamic(PCMG ,path,"PCCreate_MG",PCCreate_MG);CHKERRQ(ierr); 74 ierr = PCRegisterDynamic(PCEISENSTAT ,path,"PCCreate_Eisenstat",PCCreate_Eisenstat);CHKERRQ(ierr); 75 ierr = PCRegisterDynamic(PCILU ,path,"PCCreate_ILU",PCCreate_ILU);CHKERRQ(ierr); 76 ierr = PCRegisterDynamic(PCICC ,path,"PCCreate_ICC",PCCreate_ICC);CHKERRQ(ierr); 77 ierr = PCRegisterDynamic(PCCHOLESKY ,path,"PCCreate_Cholesky",PCCreate_Cholesky);CHKERRQ(ierr); 78 ierr = PCRegisterDynamic(PCASM ,path,"PCCreate_ASM",PCCreate_ASM);CHKERRQ(ierr); 79 ierr = PCRegisterDynamic(PCKSP ,path,"PCCreate_KSP",PCCreate_KSP);CHKERRQ(ierr); 80 ierr = PCRegisterDynamic(PCCOMPOSITE ,path,"PCCreate_Composite",PCCreate_Composite);CHKERRQ(ierr); 81 ierr = PCRegisterDynamic(PCREDUNDANT ,path,"PCCreate_Redundant",PCCreate_Redundant);CHKERRQ(ierr); 82 ierr = PCRegisterDynamic(PCNN ,path,"PCCreate_NN",PCCreate_NN);CHKERRQ(ierr); 83 ierr = PCRegisterDynamic(PCMAT ,path,"PCCreate_Mat",PCCreate_Mat);CHKERRQ(ierr); 84 #if defined(PETSC_HAVE_SPAI) && !defined(PETSC_USE_COMPLEX) && !defined(PETSC_USE_SINGLE) 85 ierr = PCRegisterDynamic(PCSPAI ,path,"PCCreate_SPAI",PCCreate_SPAI);CHKERRQ(ierr); 86 #endif 87 #if defined(PETSC_HAVE_RAMG) && !defined(PETSC_USE_COMPLEX) && !defined(PETSC_USE_SINGLE) 88 ierr = PCRegisterDynamic(PCRAMG ,path,"PCCreate_RAMG",PCCreate_RAMG);CHKERRQ(ierr); 89 #endif 90 #if defined(PETSC_HAVE_SAMG) && !defined(PETSC_USE_COMPLEX) && !defined(PETSC_USE_SINGLE) 91 ierr = PCRegisterDynamic(PCSAMG ,path,"PCCreate_SAMG",PCCreate_SAMG);CHKERRQ(ierr); 92 #endif 93 ierr = PCRegisterDynamic(PCMILU ,path,"PCCreate_mILU",PCCreate_mILU);CHKERRQ(ierr); 94 #if defined(__cplusplus) && !defined(PETSC_USE_SINGLE) && !defined (PETSC_USE_COMPLEX) && defined(PETSC_HAVE_CXX_NAMESPACE) 95 ierr = PCRegisterDynamic(PCESI ,path,"PCCreate_ESI",PCCreate_ESI);CHKERRQ(ierr); 96 ierr = PCRegisterDynamic(PCPETSCESI ,path,"PCCreate_PetscESI",PCCreate_PetscESI);CHKERRQ(ierr); 97 #endif 98 #if defined(PETSC_HAVE_HYPRE) && !defined(PETSC_USE_COMPLEX) && !defined(PETSC_USE_SINGLE) 99 ierr = PCRegisterDynamic(PCHYPRE ,path,"PCCreate_HYPRE",PCCreate_HYPRE);CHKERRQ(ierr); 100 #endif 101 PetscFunctionReturn(0); 102 } 103 104 105 106 107