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