1 2 #include <petsc/private/pcimpl.h> /*I "petscpc.h" I*/ 3 4 PETSC_EXTERN PetscErrorCode PCCreate_Jacobi(PC); 5 PETSC_EXTERN PetscErrorCode PCCreate_BJacobi(PC); 6 PETSC_EXTERN PetscErrorCode PCCreate_PBJacobi(PC); 7 PETSC_EXTERN PetscErrorCode PCCreate_ILU(PC); 8 PETSC_EXTERN PetscErrorCode PCCreate_None(PC); 9 PETSC_EXTERN PetscErrorCode PCCreate_LU(PC); 10 PETSC_EXTERN PetscErrorCode PCCreate_SOR(PC); 11 PETSC_EXTERN PetscErrorCode PCCreate_Shell(PC); 12 PETSC_EXTERN PetscErrorCode PCCreate_MG(PC); 13 PETSC_EXTERN PetscErrorCode PCCreate_Eisenstat(PC); 14 PETSC_EXTERN PetscErrorCode PCCreate_ICC(PC); 15 PETSC_EXTERN PetscErrorCode PCCreate_ASM(PC); 16 PETSC_EXTERN PetscErrorCode PCCreate_GASM(PC); 17 PETSC_EXTERN PetscErrorCode PCCreate_KSP(PC); 18 PETSC_EXTERN PetscErrorCode PCCreate_Composite(PC); 19 PETSC_EXTERN PetscErrorCode PCCreate_Redundant(PC); 20 PETSC_EXTERN PetscErrorCode PCCreate_NN(PC); 21 PETSC_EXTERN PetscErrorCode PCCreate_Cholesky(PC); 22 PETSC_EXTERN PetscErrorCode PCCreate_FieldSplit(PC); 23 PETSC_EXTERN PetscErrorCode PCCreate_Galerkin(PC); 24 PETSC_EXTERN PetscErrorCode PCCreate_Exotic(PC); 25 PETSC_EXTERN PetscErrorCode PCCreate_CP(PC); 26 PETSC_EXTERN PetscErrorCode PCCreate_LSC(PC); 27 PETSC_EXTERN PetscErrorCode PCCreate_Redistribute(PC); 28 PETSC_EXTERN PetscErrorCode PCCreate_SVD(PC); 29 PETSC_EXTERN PetscErrorCode PCCreate_GAMG(PC); 30 PETSC_EXTERN PetscErrorCode PCCreate_Kaczmarz(PC); 31 PETSC_EXTERN PetscErrorCode PCCreate_Telescope(PC); 32 33 #if defined(PETSC_HAVE_ML) 34 PETSC_EXTERN PetscErrorCode PCCreate_ML(PC); 35 #endif 36 #if defined(PETSC_HAVE_SPAI) 37 PETSC_EXTERN PetscErrorCode PCCreate_SPAI(PC); 38 #endif 39 PETSC_EXTERN PetscErrorCode PCCreate_Mat(PC); 40 #if defined(PETSC_HAVE_HYPRE) 41 PETSC_EXTERN PetscErrorCode PCCreate_HYPRE(PC); 42 PETSC_EXTERN PetscErrorCode PCCreate_PFMG(PC); 43 PETSC_EXTERN PetscErrorCode PCCreate_SysPFMG(PC); 44 #endif 45 #if !defined(PETSC_USE_COMPLEX) 46 PETSC_EXTERN PetscErrorCode PCCreate_TFS(PC); 47 #endif 48 #if defined(PETSC_HAVE_VIENNACL) 49 PETSC_EXTERN PetscErrorCode PCCreate_CHOWILUVIENNACL(PC); 50 PETSC_EXTERN PetscErrorCode PCCreate_ROWSCALINGVIENNACL(PC); 51 PETSC_EXTERN PetscErrorCode PCCreate_SAVIENNACL(PC); 52 #endif 53 #if defined(PETSC_HAVE_PARMS) 54 PETSC_EXTERN PetscErrorCode PCCreate_PARMS(PC); 55 #endif 56 PETSC_EXTERN PetscErrorCode PCCreate_BDDC(PC); 57 58 /*@C 59 PCRegisterAll - Registers all of the preconditioners in the PC package. 60 61 Not Collective 62 63 Input Parameter: 64 . path - the library where the routines are to be found (optional) 65 66 Level: advanced 67 68 .keywords: PC, register, all 69 70 .seealso: PCRegister(), PCRegisterDestroy() 71 @*/ 72 PetscErrorCode PCRegisterAll(void) 73 { 74 PetscErrorCode ierr; 75 76 PetscFunctionBegin; 77 if (PCRegisterAllCalled) PetscFunctionReturn(0); 78 PCRegisterAllCalled = PETSC_TRUE; 79 80 ierr = PCRegister(PCNONE ,PCCreate_None);CHKERRQ(ierr); 81 ierr = PCRegister(PCJACOBI ,PCCreate_Jacobi);CHKERRQ(ierr); 82 ierr = PCRegister(PCPBJACOBI ,PCCreate_PBJacobi);CHKERRQ(ierr); 83 ierr = PCRegister(PCBJACOBI ,PCCreate_BJacobi);CHKERRQ(ierr); 84 ierr = PCRegister(PCSOR ,PCCreate_SOR);CHKERRQ(ierr); 85 ierr = PCRegister(PCLU ,PCCreate_LU);CHKERRQ(ierr); 86 ierr = PCRegister(PCSHELL ,PCCreate_Shell);CHKERRQ(ierr); 87 ierr = PCRegister(PCMG ,PCCreate_MG);CHKERRQ(ierr); 88 ierr = PCRegister(PCEISENSTAT ,PCCreate_Eisenstat);CHKERRQ(ierr); 89 ierr = PCRegister(PCILU ,PCCreate_ILU);CHKERRQ(ierr); 90 ierr = PCRegister(PCICC ,PCCreate_ICC);CHKERRQ(ierr); 91 ierr = PCRegister(PCCHOLESKY ,PCCreate_Cholesky);CHKERRQ(ierr); 92 ierr = PCRegister(PCASM ,PCCreate_ASM);CHKERRQ(ierr); 93 ierr = PCRegister(PCGASM ,PCCreate_GASM);CHKERRQ(ierr); 94 ierr = PCRegister(PCKSP ,PCCreate_KSP);CHKERRQ(ierr); 95 ierr = PCRegister(PCCOMPOSITE ,PCCreate_Composite);CHKERRQ(ierr); 96 ierr = PCRegister(PCREDUNDANT ,PCCreate_Redundant);CHKERRQ(ierr); 97 ierr = PCRegister(PCNN ,PCCreate_NN);CHKERRQ(ierr); 98 ierr = PCRegister(PCMAT ,PCCreate_Mat);CHKERRQ(ierr); 99 ierr = PCRegister(PCFIELDSPLIT ,PCCreate_FieldSplit);CHKERRQ(ierr); 100 ierr = PCRegister(PCGALERKIN ,PCCreate_Galerkin);CHKERRQ(ierr); 101 ierr = PCRegister(PCEXOTIC ,PCCreate_Exotic);CHKERRQ(ierr); 102 ierr = PCRegister(PCCP ,PCCreate_CP);CHKERRQ(ierr); 103 ierr = PCRegister(PCLSC ,PCCreate_LSC);CHKERRQ(ierr); 104 ierr = PCRegister(PCREDISTRIBUTE ,PCCreate_Redistribute);CHKERRQ(ierr); 105 ierr = PCRegister(PCSVD ,PCCreate_SVD);CHKERRQ(ierr); 106 ierr = PCRegister(PCGAMG ,PCCreate_GAMG);CHKERRQ(ierr); 107 ierr = PCRegister(PCKACZMARZ ,PCCreate_Kaczmarz);CHKERRQ(ierr); 108 ierr = PCRegister(PCTELESCOPE,PCCreate_Telescope);CHKERRQ(ierr); 109 #if defined(PETSC_HAVE_ML) 110 ierr = PCRegister(PCML ,PCCreate_ML);CHKERRQ(ierr); 111 #endif 112 #if defined(PETSC_HAVE_SPAI) 113 ierr = PCRegister(PCSPAI ,PCCreate_SPAI);CHKERRQ(ierr); 114 #endif 115 #if defined(PETSC_HAVE_HYPRE) 116 ierr = PCRegister(PCHYPRE ,PCCreate_HYPRE);CHKERRQ(ierr); 117 ierr = PCRegister(PCPFMG ,PCCreate_PFMG);CHKERRQ(ierr); 118 ierr = PCRegister(PCSYSPFMG ,PCCreate_SysPFMG);CHKERRQ(ierr); 119 #endif 120 #if !defined(PETSC_USE_COMPLEX) 121 ierr = PCRegister(PCTFS ,PCCreate_TFS);CHKERRQ(ierr); 122 #endif 123 #if defined(PETSC_HAVE_VIENNACL) 124 ierr = PCRegister(PCCHOWILUVIENNACL,PCCreate_CHOWILUVIENNACL);CHKERRQ(ierr); 125 ierr = PCRegister(PCROWSCALINGVIENNACL,PCCreate_ROWSCALINGVIENNACL);CHKERRQ(ierr); 126 ierr = PCRegister(PCSAVIENNACL ,PCCreate_SAVIENNACL);CHKERRQ(ierr); 127 #endif 128 #if defined(PETSC_HAVE_PARMS) 129 ierr = PCRegister(PCPARMS ,PCCreate_PARMS);CHKERRQ(ierr); 130 #endif 131 ierr = PCRegister(PCBDDC ,PCCreate_BDDC);CHKERRQ(ierr); 132 PetscFunctionReturn(0); 133 } 134