1 2 #include <petscdm.h> /*I "petscdm.h" I*/ 3 PETSC_EXTERN PetscErrorCode DMCreate_DA(DM); 4 PETSC_EXTERN PetscErrorCode DMCreate_Composite(DM); 5 PETSC_EXTERN PetscErrorCode DMCreate_Sliced(DM); 6 PETSC_EXTERN PetscErrorCode DMCreate_Shell(DM); 7 PETSC_EXTERN PetscErrorCode DMCreate_ADDA(DM); 8 PETSC_EXTERN PetscErrorCode DMCreate_Redundant(DM); 9 PETSC_EXTERN PetscErrorCode DMCreate_Plex(DM); 10 PETSC_EXTERN PetscErrorCode DMCreate_Patch(DM); 11 #if defined(PETSC_HAVE_SIEVE) 12 PETSC_EXTERN PetscErrorCode DMCreate_Mesh(DM); 13 PETSC_EXTERN PetscErrorCode DMCreate_Cartesian(DM); 14 #endif 15 PETSC_EXTERN PetscErrorCode DMCreate_Moab(DM); 16 17 #undef __FUNCT__ 18 #define __FUNCT__ "DMRegisterAll" 19 /*@C 20 DMRegisterAll - Registers all of the DM components in the DM package. 21 22 Not Collective 23 24 Input parameter: 25 . path - The dynamic library path 26 27 Level: advanced 28 29 .keywords: DM, register, all 30 .seealso: DMRegister(), DMRegisterDestroy() 31 @*/ 32 PetscErrorCode DMRegisterAll() 33 { 34 PetscErrorCode ierr; 35 36 PetscFunctionBegin; 37 DMRegisterAllCalled = PETSC_TRUE; 38 39 ierr = DMRegister(DMDA, DMCreate_DA);CHKERRQ(ierr); 40 ierr = DMRegister(DMCOMPOSITE, DMCreate_Composite);CHKERRQ(ierr); 41 ierr = DMRegister(DMSLICED, DMCreate_Sliced);CHKERRQ(ierr); 42 ierr = DMRegister(DMSHELL, DMCreate_Shell);CHKERRQ(ierr); 43 ierr = DMRegister(DMADDA, DMCreate_ADDA);CHKERRQ(ierr); 44 ierr = DMRegister(DMREDUNDANT, DMCreate_Redundant);CHKERRQ(ierr); 45 ierr = DMRegister(DMPLEX, DMCreate_Plex);CHKERRQ(ierr); 46 ierr = DMRegister(DMPATCH, DMCreate_Patch);CHKERRQ(ierr); 47 #if defined(PETSC_HAVE_SIEVE) 48 ierr = DMRegister(DMMESH, DMCreate_Mesh);CHKERRQ(ierr); 49 ierr = DMRegister(DMCARTESIAN, DMCreate_Cartesian);CHKERRQ(ierr); 50 #endif 51 #if defined(PETSC_HAVE_MOAB) 52 ierr = DMRegister(DMMOAB, DMCreate_Moab);CHKERRQ(ierr); 53 #endif 54 PetscFunctionReturn(0); 55 } 56 #include <petscfe.h> /*I "petscfe.h" I*/ 57 58 PETSC_EXTERN PetscErrorCode PetscSpaceCreate_Polynomial(PetscSpace); 59 PETSC_EXTERN PetscErrorCode PetscSpaceCreate_DG(PetscSpace); 60 61 #undef __FUNCT__ 62 #define __FUNCT__ "PetscSpaceRegisterAll" 63 /*@C 64 PetscSpaceRegisterAll - Registers all of the PetscSpace components in the PetscFE package. 65 66 Not Collective 67 68 Input parameter: 69 . path - The dynamic library path 70 71 Level: advanced 72 73 .keywords: PetscSpace, register, all 74 .seealso: PetscSpaceRegister(), PetscSpaceRegisterDestroy() 75 @*/ 76 PetscErrorCode PetscSpaceRegisterAll() 77 { 78 PetscErrorCode ierr; 79 80 PetscFunctionBegin; 81 PetscSpaceRegisterAllCalled = PETSC_TRUE; 82 83 ierr = PetscSpaceRegister(PETSCSPACEPOLYNOMIAL, PetscSpaceCreate_Polynomial);CHKERRQ(ierr); 84 ierr = PetscSpaceRegister(PETSCSPACEDG, PetscSpaceCreate_DG);CHKERRQ(ierr); 85 PetscFunctionReturn(0); 86 } 87 88 PETSC_EXTERN PetscErrorCode PetscDualSpaceCreate_Lagrange(PetscDualSpace); 89 90 #undef __FUNCT__ 91 #define __FUNCT__ "PetscDualSpaceRegisterAll" 92 /*@C 93 PetscDualSpaceRegisterAll - Registers all of the PetscDualSpace components in the PetscFE package. 94 95 Not Collective 96 97 Input parameter: 98 . path - The dynamic library path 99 100 Level: advanced 101 102 .keywords: PetscDualSpace, register, all 103 .seealso: PetscDualSpaceRegister(), PetscDualSpaceRegisterDestroy() 104 @*/ 105 PetscErrorCode PetscDualSpaceRegisterAll() 106 { 107 PetscErrorCode ierr; 108 109 PetscFunctionBegin; 110 PetscDualSpaceRegisterAllCalled = PETSC_TRUE; 111 112 ierr = PetscDualSpaceRegister(PETSCDUALSPACELAGRANGE, PetscDualSpaceCreate_Lagrange);CHKERRQ(ierr); 113 PetscFunctionReturn(0); 114 } 115 116 PETSC_EXTERN PetscErrorCode PetscFECreate_Basic(PetscFE); 117 #ifdef PETSC_HAVE_OPENCL 118 PETSC_EXTERN PetscErrorCode PetscFECreate_OpenCL(PetscFE); 119 #endif 120 121 #undef __FUNCT__ 122 #define __FUNCT__ "PetscFERegisterAll" 123 /*@C 124 PetscFERegisterAll - Registers all of the PetscFE components in the PetscFE package. 125 126 Not Collective 127 128 Input parameter: 129 . path - The dynamic library path 130 131 Level: advanced 132 133 .keywords: PetscFE, register, all 134 .seealso: PetscFERegister(), PetscFERegisterDestroy() 135 @*/ 136 PetscErrorCode PetscFERegisterAll() 137 { 138 PetscErrorCode ierr; 139 140 PetscFunctionBegin; 141 PetscFERegisterAllCalled = PETSC_TRUE; 142 143 ierr = PetscFERegister(PETSCFEBASIC, PetscFECreate_Basic);CHKERRQ(ierr); 144 #ifdef PETSC_HAVE_OPENCL 145 ierr = PetscFERegister(PETSCFEOPENCL, PetscFECreate_OpenCL);CHKERRQ(ierr); 146 #endif 147 PetscFunctionReturn(0); 148 } 149