Actual source code: dlregisdmdm.c
1: #include <petscao.h>
2: #include <petsc/private/dmlabelimpl.h>
3: #include <petsc/private/dmfieldimpl.h>
4: #include <petsc/private/dmpleximpl.h>
5: #include <petsc/private/dmplextransformimpl.h>
6: #include <petsc/private/petscdsimpl.h>
7: #include <petsc/private/petscfeimpl.h>
8: #include <petsc/private/petscfvimpl.h>
9: #include <petsc/private/dmswarmimpl.h>
10: #include <petsc/private/dmnetworkimpl.h>
12: static PetscBool DMPackageInitialized = PETSC_FALSE;
13: /*@C
14: DMFinalizePackage - This function finalizes everything in the `DM` package. It is called
15: from `PetscFinalize()`.
17: Level: developer
19: .seealso: `PetscInitialize()`
20: @*/
21: PetscErrorCode DMFinalizePackage(void)
22: {
23: PetscFunctionBegin;
24: PetscCall(PetscFunctionListDestroy(&DMList));
25: DMPackageInitialized = PETSC_FALSE;
26: DMRegisterAllCalled = PETSC_FALSE;
27: PetscFunctionReturn(PETSC_SUCCESS);
28: }
30: #if defined(PETSC_HAVE_HYPRE)
31: PETSC_EXTERN PetscErrorCode MatCreate_HYPREStruct(Mat);
32: PETSC_EXTERN PetscErrorCode MatCreate_HYPRESStruct(Mat);
33: #endif
35: /*@C
36: DMInitializePackage - This function initializes everything in the `DM` package. It is called
37: from `PetscDLLibraryRegister_petscdm()` when using dynamic libraries, and on the first call to `DMCreate()`
38: or similar routines when using shared or static libraries.
40: Level: developer
42: Note:
43: This function never needs to be called by PETSc users.
45: .seealso: `PetscInitialize()`
46: @*/
47: PetscErrorCode DMInitializePackage(void)
48: {
49: char logList[256];
50: PetscBool opt, pkg;
52: PetscFunctionBegin;
53: if (DMPackageInitialized) PetscFunctionReturn(PETSC_SUCCESS);
54: DMPackageInitialized = PETSC_TRUE;
56: /* Register Classes */
57: PetscCall(PetscClassIdRegister("Distributed Mesh", &DM_CLASSID));
58: PetscCall(PetscClassIdRegister("DM Label", &DMLABEL_CLASSID));
59: PetscCall(PetscClassIdRegister("Quadrature", &PETSCQUADRATURE_CLASSID));
60: PetscCall(PetscClassIdRegister("Mesh Transform", &DMPLEXTRANSFORM_CLASSID));
61: PetscCall(PetscClassIdRegister("Swarm Sort Ctx", &DMSWARMSORT_CLASSID));
62: PetscCall(PetscClassIdRegister("Swarm Cell DM", &DMSWARMCELLDM_CLASSID));
64: #if defined(PETSC_HAVE_HYPRE)
65: PetscCall(MatRegister(MATHYPRESTRUCT, MatCreate_HYPREStruct));
66: PetscCall(MatRegister(MATHYPRESSTRUCT, MatCreate_HYPRESStruct));
67: #endif
68: PetscCall(PetscSectionSymRegister(PETSCSECTIONSYMLABEL, PetscSectionSymCreate_Label));
70: /* Register Constructors */
71: PetscCall(DMRegisterAll());
72: /* Register Events */
73: PetscCall(PetscLogEventRegister("DMConvert", DM_CLASSID, &DM_Convert));
74: PetscCall(PetscLogEventRegister("DMGlobalToLocal", DM_CLASSID, &DM_GlobalToLocal));
75: PetscCall(PetscLogEventRegister("DMLocalToGlobal", DM_CLASSID, &DM_LocalToGlobal));
76: PetscCall(PetscLogEventRegister("DMLocatePoints", DM_CLASSID, &DM_LocatePoints));
77: PetscCall(PetscLogEventRegister("DMCoarsen", DM_CLASSID, &DM_Coarsen));
78: PetscCall(PetscLogEventRegister("DMRefine", DM_CLASSID, &DM_Refine));
79: PetscCall(PetscLogEventRegister("DMCreateInterp", DM_CLASSID, &DM_CreateInterpolation));
80: PetscCall(PetscLogEventRegister("DMCreateRestrict", DM_CLASSID, &DM_CreateRestriction));
81: PetscCall(PetscLogEventRegister("DMCreateInject", DM_CLASSID, &DM_CreateInjection));
82: PetscCall(PetscLogEventRegister("DMCreateMat", DM_CLASSID, &DM_CreateMatrix));
83: PetscCall(PetscLogEventRegister("DMCreateMassMat", DM_CLASSID, &DM_CreateMassMatrix));
84: PetscCall(PetscLogEventRegister("DMLoad", DM_CLASSID, &DM_Load));
85: PetscCall(PetscLogEventRegister("DMView", DM_CLASSID, &DM_View));
86: PetscCall(PetscLogEventRegister("DMAdaptInterp", DM_CLASSID, &DM_AdaptInterpolator));
87: PetscCall(PetscLogEventRegister("DMProjectFunc", DM_CLASSID, &DM_ProjectFunction));
89: PetscCall(PetscLogEventRegister("DMPlexBuFrCeLi", DM_CLASSID, &DMPLEX_BuildFromCellList));
90: PetscCall(PetscLogEventRegister("DMPlexBuCoFrCeLi", DM_CLASSID, &DMPLEX_BuildCoordinatesFromCellList));
91: PetscCall(PetscLogEventRegister("DMPlexCreateGmsh", DM_CLASSID, &DMPLEX_CreateGmsh));
92: PetscCall(PetscLogEventRegister("DMPlexCrBoxSFC", DM_CLASSID, &DMPLEX_CreateBoxSFC));
93: PetscCall(PetscLogEventRegister("DMPlexCrFromFile", DM_CLASSID, &DMPLEX_CreateFromFile));
94: PetscCall(PetscLogEventRegister("DMPlexCrFromOpts", DM_CLASSID, &DMPLEX_CreateFromOptions));
95: PetscCall(PetscLogEventRegister("Mesh Partition", DM_CLASSID, &DMPLEX_Partition));
96: PetscCall(PetscLogEventRegister("Mesh Migration", DM_CLASSID, &DMPLEX_Migrate));
97: PetscCall(PetscLogEventRegister("DMPlexPartSelf", DM_CLASSID, &DMPLEX_PartSelf));
98: PetscCall(PetscLogEventRegister("DMPlexPartLblInv", DM_CLASSID, &DMPLEX_PartLabelInvert));
99: PetscCall(PetscLogEventRegister("DMPlexPartLblSF", DM_CLASSID, &DMPLEX_PartLabelCreateSF));
100: PetscCall(PetscLogEventRegister("DMPlexPartStrtSF", DM_CLASSID, &DMPLEX_PartStratSF));
101: PetscCall(PetscLogEventRegister("DMPlexPointSF", DM_CLASSID, &DMPLEX_CreatePointSF));
102: PetscCall(PetscLogEventRegister("DMPlexInterp", DM_CLASSID, &DMPLEX_Interpolate));
103: PetscCall(PetscLogEventRegister("DMPlexDistribute", DM_CLASSID, &DMPLEX_Distribute));
104: PetscCall(PetscLogEventRegister("DMPlexDistMS", DM_CLASSID, &DMPLEX_DistributeMultistage));
105: PetscCall(PetscLogEventRegister("DMPlexDistCones", DM_CLASSID, &DMPLEX_DistributeCones));
106: PetscCall(PetscLogEventRegister("DMPlexDistLabels", DM_CLASSID, &DMPLEX_DistributeLabels));
107: PetscCall(PetscLogEventRegister("DMPlexDistSF", DM_CLASSID, &DMPLEX_DistributeSF));
108: PetscCall(PetscLogEventRegister("DMPlexDistOvrlp", DM_CLASSID, &DMPLEX_DistributeOverlap));
109: PetscCall(PetscLogEventRegister("DMPlexDistField", DM_CLASSID, &DMPLEX_DistributeField));
110: PetscCall(PetscLogEventRegister("DMPlexDistData", DM_CLASSID, &DMPLEX_DistributeData));
111: PetscCall(PetscLogEventRegister("DMPlexInterpSF", DM_CLASSID, &DMPLEX_InterpolateSF));
112: PetscCall(PetscLogEventRegister("DMPlexGToNBegin", DM_CLASSID, &DMPLEX_GlobalToNaturalBegin));
113: PetscCall(PetscLogEventRegister("DMPlexGToNEnd", DM_CLASSID, &DMPLEX_GlobalToNaturalEnd));
114: PetscCall(PetscLogEventRegister("DMPlexNToGBegin", DM_CLASSID, &DMPLEX_NaturalToGlobalBegin));
115: PetscCall(PetscLogEventRegister("DMPlexNToGEnd", DM_CLASSID, &DMPLEX_NaturalToGlobalEnd));
116: PetscCall(PetscLogEventRegister("DMPlexStratify", DM_CLASSID, &DMPLEX_Stratify));
117: PetscCall(PetscLogEventRegister("DMPlexSymmetrize", DM_CLASSID, &DMPLEX_Symmetrize));
118: PetscCall(PetscLogEventRegister("DMPlexPrealloc", DM_CLASSID, &DMPLEX_Preallocate));
119: PetscCall(PetscLogEventRegister("DMPlexResidualFE", DM_CLASSID, &DMPLEX_ResidualFEM));
120: PetscCall(PetscLogEventRegister("DMPlexJacobianFE", DM_CLASSID, &DMPLEX_JacobianFEM));
121: PetscCall(PetscLogEventRegister("DMPlexInterpFE", DM_CLASSID, &DMPLEX_InterpolatorFEM));
122: PetscCall(PetscLogEventRegister("DMPlexInjectorFE", DM_CLASSID, &DMPLEX_InjectorFEM));
123: PetscCall(PetscLogEventRegister("DMPlexIntegralFE", DM_CLASSID, &DMPLEX_IntegralFEM));
124: PetscCall(PetscLogEventRegister("DMPlexRebalance", DM_CLASSID, &DMPLEX_RebalanceSharedPoints));
125: PetscCall(PetscLogEventRegister("DMPlexLocatePoints", DM_CLASSID, &DMPLEX_LocatePoints));
126: PetscCall(PetscLogEventRegister("DMPlexTopologyView", DM_CLASSID, &DMPLEX_TopologyView));
127: PetscCall(PetscLogEventRegister("DMPlexLabelsView", DM_CLASSID, &DMPLEX_LabelsView));
128: PetscCall(PetscLogEventRegister("DMPlexCoordinatesView", DM_CLASSID, &DMPLEX_CoordinatesView));
129: PetscCall(PetscLogEventRegister("DMPlexSectionView", DM_CLASSID, &DMPLEX_SectionView));
130: PetscCall(PetscLogEventRegister("DMPlexGlobalVectorView", DM_CLASSID, &DMPLEX_GlobalVectorView));
131: PetscCall(PetscLogEventRegister("DMPlexLocalVectorView", DM_CLASSID, &DMPLEX_LocalVectorView));
132: PetscCall(PetscLogEventRegister("DMPlexTopologyLoad", DM_CLASSID, &DMPLEX_TopologyLoad));
133: #if defined(PETSC_HAVE_HDF5)
134: PetscCall(PetscLogEventRegister("DMPlexDistributionView", DM_CLASSID, &DMPLEX_DistributionView));
135: PetscCall(PetscLogEventRegister("DMPlexDistributionLoad", DM_CLASSID, &DMPLEX_DistributionLoad));
136: #endif
137: PetscCall(PetscLogEventRegister("DMPlexLabelsLoad", DM_CLASSID, &DMPLEX_LabelsLoad));
138: PetscCall(PetscLogEventRegister("DMPlexCoordinatesLoad", DM_CLASSID, &DMPLEX_CoordinatesLoad));
139: PetscCall(PetscLogEventRegister("DMPlexSectionLoad", DM_CLASSID, &DMPLEX_SectionLoad));
140: PetscCall(PetscLogEventRegister("DMPlexGlobalVectorLoad", DM_CLASSID, &DMPLEX_GlobalVectorLoad));
141: PetscCall(PetscLogEventRegister("DMPlexLocalVectorLoad", DM_CLASSID, &DMPLEX_LocalVectorLoad));
142: PetscCall(PetscLogEventRegister("DMPlexMetricEnforceSPD", DM_CLASSID, &DMPLEX_MetricEnforceSPD));
143: PetscCall(PetscLogEventRegister("DMPlexMetricNormalize", DM_CLASSID, &DMPLEX_MetricNormalize));
144: PetscCall(PetscLogEventRegister("DMPlexMetricAverage", DM_CLASSID, &DMPLEX_MetricAverage));
145: PetscCall(PetscLogEventRegister("DMPlexMetricIntersect", DM_CLASSID, &DMPLEX_MetricIntersection));
146: PetscCall(PetscLogEventRegister("DMPlexGenerate", DM_CLASSID, &DMPLEX_Generate));
147: PetscCall(PetscLogEventRegister("DMPlexGetLocOff", DM_CLASSID, &DMPLEX_GetLocalOffsets));
149: PetscCall(PetscLogEventRegister("RebalBuildGraph", DM_CLASSID, &DMPLEX_RebalBuildGraph));
150: PetscCall(PetscLogEventRegister("RebalGatherGraph", DM_CLASSID, &DMPLEX_RebalGatherGraph));
151: PetscCall(PetscLogEventRegister("RebalPartition", DM_CLASSID, &DMPLEX_RebalPartition));
152: PetscCall(PetscLogEventRegister("RebalScatterPart", DM_CLASSID, &DMPLEX_RebalScatterPart));
153: PetscCall(PetscLogEventRegister("RebalRewriteSF", DM_CLASSID, &DMPLEX_RebalRewriteSF));
154: PetscCall(PetscLogEventRegister("DMPlexUninterp", DM_CLASSID, &DMPLEX_Uninterpolate));
156: PetscCall(PetscLogEventRegister("DMPlexTrSetUp", DM_CLASSID, &DMPLEXTRANSFORM_SetUp));
157: PetscCall(PetscLogEventRegister("DMPlexTrApply", DM_CLASSID, &DMPLEXTRANSFORM_Apply));
158: PetscCall(PetscLogEventRegister("DMPlexTrSizes", DM_CLASSID, &DMPLEXTRANSFORM_SetConeSizes));
159: PetscCall(PetscLogEventRegister("DMPlexTrCones", DM_CLASSID, &DMPLEXTRANSFORM_SetCones));
160: PetscCall(PetscLogEventRegister("DMPlexTrSF", DM_CLASSID, &DMPLEXTRANSFORM_CreateSF));
161: PetscCall(PetscLogEventRegister("DMPlexTrLabels", DM_CLASSID, &DMPLEXTRANSFORM_CreateLabels));
162: PetscCall(PetscLogEventRegister("DMPlexTrCoords", DM_CLASSID, &DMPLEXTRANSFORM_SetCoordinates));
164: PetscCall(PetscLogEventRegister("DMSwarmMigrate", DM_CLASSID, &DMSWARM_Migrate));
165: PetscCall(PetscLogEventRegister("DMSwarmDETSetup", DM_CLASSID, &DMSWARM_DataExchangerTopologySetup));
166: PetscCall(PetscLogEventRegister("DMSwarmDExBegin", DM_CLASSID, &DMSWARM_DataExchangerBegin));
167: PetscCall(PetscLogEventRegister("DMSwarmDExEnd", DM_CLASSID, &DMSWARM_DataExchangerEnd));
168: PetscCall(PetscLogEventRegister("DMSwarmDESendCnt", DM_CLASSID, &DMSWARM_DataExchangerSendCount));
169: PetscCall(PetscLogEventRegister("DMSwarmDEPack", DM_CLASSID, &DMSWARM_DataExchangerPack));
170: PetscCall(PetscLogEventRegister("DMSwarmAddPnts", DM_CLASSID, &DMSWARM_AddPoints));
171: PetscCall(PetscLogEventRegister("DMSwarmRmvPnts", DM_CLASSID, &DMSWARM_RemovePoints));
172: PetscCall(PetscLogEventRegister("DMSwarmSort", DM_CLASSID, &DMSWARM_Sort));
173: PetscCall(PetscLogEventRegister("DMSwarmSetSizes", DM_CLASSID, &DMSWARM_SetSizes));
175: PetscCall(PetscLogEventRegister("DMNtLayoutSetUp", DM_CLASSID, &DMNetwork_LayoutSetUp));
176: PetscCall(PetscLogEventRegister("DMNtSetUp", DM_CLASSID, &DMNetwork_SetUpNetwork));
177: PetscCall(PetscLogEventRegister("DMNtDistribute", DM_CLASSID, &DMNetwork_Distribute));
178: /* Process Info */
179: {
180: PetscClassId classids[1];
182: classids[0] = DM_CLASSID;
183: PetscCall(PetscInfoProcessClass("dm", 1, classids));
184: }
186: /* Process summary exclusions */
187: PetscCall(PetscOptionsGetString(NULL, NULL, "-log_exclude", logList, sizeof(logList), &opt));
188: if (opt) {
189: PetscCall(PetscStrInList("dm", logList, ',', &pkg));
190: if (pkg) PetscCall(PetscLogEventExcludeClass(DM_CLASSID));
191: }
193: PetscCall(DMGenerateRegisterAll());
194: PetscCall(PetscRegisterFinalize(DMGenerateRegisterDestroy));
195: PetscCall(DMGeomModelRegisterAll());
196: PetscCall(PetscRegisterFinalize(DMGeomModelRegisterDestroy));
197: PetscCall(DMPlexTransformRegisterAll());
198: PetscCall(PetscRegisterFinalize(DMPlexTransformRegisterDestroy));
199: PetscCall(DMLabelRegisterAll());
200: PetscCall(PetscRegisterFinalize(DMLabelRegisterDestroy));
201: PetscCall(PetscRegisterFinalize(DMFinalizePackage));
202: PetscFunctionReturn(PETSC_SUCCESS);
203: }
204: #include <petscfe.h>
206: static PetscBool PetscFEPackageInitialized = PETSC_FALSE;
208: /*@C
209: PetscFEFinalizePackage - This function finalizes everything in the `PetscFE` package. It is called
210: from `PetscFinalize()`.
212: Level: developer
214: .seealso: `PetscInitialize()`
215: @*/
216: PetscErrorCode PetscFEFinalizePackage(void)
217: {
218: PetscFunctionBegin;
219: PetscCall(PetscFunctionListDestroy(&PetscSpaceList));
220: PetscCall(PetscFunctionListDestroy(&PetscDualSpaceList));
221: PetscCall(PetscFunctionListDestroy(&PetscFEList));
222: PetscFEPackageInitialized = PETSC_FALSE;
223: PetscSpaceRegisterAllCalled = PETSC_FALSE;
224: PetscDualSpaceRegisterAllCalled = PETSC_FALSE;
225: PetscFERegisterAllCalled = PETSC_FALSE;
226: PetscFunctionReturn(PETSC_SUCCESS);
227: }
229: /*@C
230: PetscFEInitializePackage - This function initializes everything in the `PetscFE` package. It is called
231: from `PetscDLLibraryRegister()` when using dynamic libraries, and on the first call to `PetscSpaceCreate()`
232: when using static libraries.
234: Level: developer
236: .seealso: `PetscInitialize()`
237: @*/
238: PetscErrorCode PetscFEInitializePackage(void)
239: {
240: char logList[256];
241: PetscBool opt, pkg;
243: PetscFunctionBegin;
244: if (PetscFEPackageInitialized) PetscFunctionReturn(PETSC_SUCCESS);
245: PetscFEPackageInitialized = PETSC_TRUE;
247: /* Register Classes */
248: PetscCall(PetscClassIdRegister("Linear Space", &PETSCSPACE_CLASSID));
249: PetscCall(PetscClassIdRegister("Dual Space", &PETSCDUALSPACE_CLASSID));
250: PetscCall(PetscClassIdRegister("FE Space", &PETSCFE_CLASSID));
251: /* Register Constructors */
252: PetscCall(PetscSpaceRegisterAll());
253: PetscCall(PetscDualSpaceRegisterAll());
254: PetscCall(PetscFERegisterAll());
255: /* Register Events */
256: PetscCall(PetscLogEventRegister("DualSpaceSetUp", PETSCDUALSPACE_CLASSID, &PETSCDUALSPACE_SetUp));
257: PetscCall(PetscLogEventRegister("FESetUp", PETSCFE_CLASSID, &PETSCFE_SetUp));
258: /* Process Info */
259: {
260: PetscClassId classids[3];
262: classids[0] = PETSCFE_CLASSID;
263: classids[1] = PETSCSPACE_CLASSID;
264: classids[2] = PETSCDUALSPACE_CLASSID;
265: PetscCall(PetscInfoProcessClass("fe", 1, classids));
266: PetscCall(PetscInfoProcessClass("space", 1, &classids[1]));
267: PetscCall(PetscInfoProcessClass("dualspace", 1, &classids[2]));
268: }
269: /* Process summary exclusions */
270: PetscCall(PetscOptionsGetString(NULL, NULL, "-log_exclude", logList, sizeof(logList), &opt));
271: if (opt) {
272: PetscCall(PetscStrInList("fe", logList, ',', &pkg));
273: if (pkg) PetscCall(PetscLogEventExcludeClass(PETSCFE_CLASSID));
274: }
275: /* Register package finalizer */
276: PetscCall(PetscRegisterFinalize(PetscFEFinalizePackage));
277: PetscFunctionReturn(PETSC_SUCCESS);
278: }
279: #include <petscfv.h>
281: static PetscBool PetscFVPackageInitialized = PETSC_FALSE;
283: /*@C
284: PetscFVFinalizePackage - This function finalizes everything in the `PetscFV` package. It is called
285: from `PetscFinalize()`.
287: Level: developer
289: .seealso: `PetscInitialize()`
290: @*/
291: PetscErrorCode PetscFVFinalizePackage(void)
292: {
293: PetscFunctionBegin;
294: PetscCall(PetscFunctionListDestroy(&PetscLimiterList));
295: PetscCall(PetscFunctionListDestroy(&PetscFVList));
296: PetscFVPackageInitialized = PETSC_FALSE;
297: PetscFVRegisterAllCalled = PETSC_FALSE;
298: PetscLimiterRegisterAllCalled = PETSC_FALSE;
299: PetscFunctionReturn(PETSC_SUCCESS);
300: }
302: /*@C
303: PetscFVInitializePackage - This function initializes everything in the `PetscFV` package. It is called
304: from `PetscDLLibraryRegister()` when using dynamic libraries, and on the first call to `PetscFVCreate()`
305: when using static libraries.
307: Level: developer
309: .seealso: `PetscInitialize()`
310: @*/
311: PetscErrorCode PetscFVInitializePackage(void)
312: {
313: char logList[256];
314: PetscBool opt, pkg;
316: PetscFunctionBegin;
317: if (PetscFVPackageInitialized) PetscFunctionReturn(PETSC_SUCCESS);
318: PetscFVPackageInitialized = PETSC_TRUE;
320: /* Register Classes */
321: PetscCall(PetscClassIdRegister("FV Space", &PETSCFV_CLASSID));
322: PetscCall(PetscClassIdRegister("Limiter", &PETSCLIMITER_CLASSID));
323: /* Register Constructors */
324: PetscCall(PetscFVRegisterAll());
325: /* Register Events */
326: /* Process Info */
327: {
328: PetscClassId classids[2];
330: classids[0] = PETSCFV_CLASSID;
331: classids[1] = PETSCLIMITER_CLASSID;
332: PetscCall(PetscInfoProcessClass("fv", 1, classids));
333: PetscCall(PetscInfoProcessClass("limiter", 1, &classids[1]));
334: }
335: /* Process summary exclusions */
336: PetscCall(PetscOptionsGetString(NULL, NULL, "-log_exclude", logList, sizeof(logList), &opt));
337: if (opt) {
338: PetscCall(PetscStrInList("fv", logList, ',', &pkg));
339: if (pkg) PetscCall(PetscLogEventExcludeClass(PETSCFV_CLASSID));
340: PetscCall(PetscStrInList("limiter", logList, ',', &pkg));
341: if (pkg) PetscCall(PetscLogEventExcludeClass(PETSCLIMITER_CLASSID));
342: }
343: /* Register package finalizer */
344: PetscCall(PetscRegisterFinalize(PetscFVFinalizePackage));
345: PetscFunctionReturn(PETSC_SUCCESS);
346: }
347: #include <petscds.h>
349: static PetscBool PetscDSPackageInitialized = PETSC_FALSE;
351: /*@C
352: PetscDSFinalizePackage - This function finalizes everything in the `PetscDS` package. It is called
353: from `PetscFinalize()`.
355: Level: developer
357: .seealso: `PetscInitialize()`
358: @*/
359: PetscErrorCode PetscDSFinalizePackage(void)
360: {
361: PetscFunctionBegin;
362: PetscCall(PetscFunctionListDestroy(&PetscDSList));
363: PetscDSPackageInitialized = PETSC_FALSE;
364: PetscDSRegisterAllCalled = PETSC_FALSE;
365: PetscFunctionReturn(PETSC_SUCCESS);
366: }
368: /*@C
369: PetscDSInitializePackage - This function initializes everything in the `PetscDS` package. It is called
370: from `PetscDLLibraryRegister()` when using dynamic libraries, and on the first call to `PetscDSCreate()`
371: when using static libraries.
373: Level: developer
375: .seealso: `PetscInitialize()`
376: @*/
377: PetscErrorCode PetscDSInitializePackage(void)
378: {
379: char logList[256];
380: PetscBool opt, pkg;
382: PetscFunctionBegin;
383: if (PetscDSPackageInitialized) PetscFunctionReturn(PETSC_SUCCESS);
384: PetscDSPackageInitialized = PETSC_TRUE;
386: /* Register Classes */
387: PetscCall(PetscClassIdRegister("Discrete System", &PETSCDS_CLASSID));
388: PetscCall(PetscClassIdRegister("Weak Form", &PETSCWEAKFORM_CLASSID));
389: /* Register Constructors */
390: PetscCall(PetscDSRegisterAll());
391: /* Register Events */
392: /* Process Info */
393: {
394: PetscClassId classids[1];
396: classids[0] = PETSCDS_CLASSID;
397: PetscCall(PetscInfoProcessClass("ds", 1, classids));
398: }
399: /* Process summary exclusions */
400: PetscCall(PetscOptionsGetString(NULL, NULL, "-log_exclude", logList, sizeof(logList), &opt));
401: if (opt) {
402: PetscCall(PetscStrInList("ds", logList, ',', &pkg));
403: if (pkg) PetscCall(PetscLogEventExcludeClass(PETSCDS_CLASSID));
404: }
405: /* Register package finalizer */
406: PetscCall(PetscRegisterFinalize(PetscDSFinalizePackage));
407: PetscFunctionReturn(PETSC_SUCCESS);
408: }
410: #if defined(PETSC_HAVE_DYNAMIC_LIBRARIES)
411: /*
412: PetscDLLibraryRegister - This function is called when the dynamic library it is in is opened.
414: This one registers all the mesh generators and partitioners that are in
415: the basic DM library.
417: */
418: PETSC_EXTERN PetscErrorCode PetscDLLibraryRegister_petscdm(void)
419: {
420: PetscFunctionBegin;
421: PetscCall(AOInitializePackage());
422: PetscCall(PetscPartitionerInitializePackage());
423: PetscCall(DMInitializePackage());
424: PetscCall(PetscFEInitializePackage());
425: PetscCall(PetscFVInitializePackage());
426: PetscCall(DMFieldInitializePackage());
427: PetscCall(PetscDSInitializePackage());
428: PetscFunctionReturn(PETSC_SUCCESS);
429: }
431: #endif /* PETSC_HAVE_DYNAMIC_LIBRARIES */