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