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