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