Actual source code: dlregissf.c
1: #include <petsc/private/sfimpl.h>
3: static PetscBool PetscSFPackageInitialized = PETSC_FALSE;
5: PetscClassId PETSCSF_CLASSID;
7: PetscLogEvent PETSCSF_SetGraph;
8: PetscLogEvent PETSCSF_SetUp;
9: PetscLogEvent PETSCSF_BcastBegin;
10: PetscLogEvent PETSCSF_BcastEnd;
11: PetscLogEvent PETSCSF_ReduceBegin;
12: PetscLogEvent PETSCSF_ReduceEnd;
13: PetscLogEvent PETSCSF_FetchAndOpBegin;
14: PetscLogEvent PETSCSF_FetchAndOpEnd;
15: PetscLogEvent PETSCSF_EmbedSF;
16: PetscLogEvent PETSCSF_DistSect;
17: PetscLogEvent PETSCSF_SectSF;
18: PetscLogEvent PETSCSF_RemoteOff;
19: PetscLogEvent PETSCSF_Pack;
20: PetscLogEvent PETSCSF_Unpack;
22: /*@C
23: PetscSFInitializePackage - Initialize SF package
25: Logically Collective
27: Level: developer
29: .seealso: PetscSFFinalizePackage()
30: @*/
31: PetscErrorCode PetscSFInitializePackage(void)
32: {
33: char logList[256];
34: PetscBool opt,pkg;
36: if (PetscSFPackageInitialized) return 0;
37: PetscSFPackageInitialized = PETSC_TRUE;
38: /* Register Class */
39: PetscClassIdRegister("Star Forest Graph", &PETSCSF_CLASSID);
40: /* Register Constructors */
41: PetscSFRegisterAll();
42: /* Register Events */
43: PetscLogEventRegister("SFSetGraph" , PETSCSF_CLASSID, &PETSCSF_SetGraph);
44: PetscLogEventRegister("SFSetUp" , PETSCSF_CLASSID, &PETSCSF_SetUp);
45: PetscLogEventRegister("SFBcastBegin" , PETSCSF_CLASSID, &PETSCSF_BcastBegin);
46: PetscLogEventRegister("SFBcastEnd" , PETSCSF_CLASSID, &PETSCSF_BcastEnd);
47: PetscLogEventRegister("SFReduceBegin" , PETSCSF_CLASSID, &PETSCSF_ReduceBegin);
48: PetscLogEventRegister("SFReduceEnd" , PETSCSF_CLASSID, &PETSCSF_ReduceEnd);
49: PetscLogEventRegister("SFFetchOpBegin" , PETSCSF_CLASSID, &PETSCSF_FetchAndOpBegin);
50: PetscLogEventRegister("SFFetchOpEnd" , PETSCSF_CLASSID, &PETSCSF_FetchAndOpEnd);
51: PetscLogEventRegister("SFCreateEmbed" , PETSCSF_CLASSID, &PETSCSF_EmbedSF);
52: PetscLogEventRegister("SFDistSection" , PETSCSF_CLASSID, &PETSCSF_DistSect);
53: PetscLogEventRegister("SFSectionSF" , PETSCSF_CLASSID, &PETSCSF_SectSF);
54: PetscLogEventRegister("SFRemoteOff" , PETSCSF_CLASSID, &PETSCSF_RemoteOff);
55: PetscLogEventRegister("SFPack" , PETSCSF_CLASSID, &PETSCSF_Pack);
56: PetscLogEventRegister("SFUnpack" , PETSCSF_CLASSID, &PETSCSF_Unpack);
57: /* Process Info */
58: {
59: PetscClassId classids[1];
61: classids[0] = PETSCSF_CLASSID;
62: PetscInfoProcessClass("sf", 1, classids);
63: }
64: /* Process summary exclusions */
65: PetscOptionsGetString(NULL,NULL,"-log_exclude",logList,sizeof(logList),&opt);
66: if (opt) {
67: PetscStrInList("sf",logList,',',&pkg);
68: if (pkg) PetscLogEventExcludeClass(PETSCSF_CLASSID);
69: }
70: /* Register package finalizer */
71: PetscRegisterFinalize(PetscSFFinalizePackage);
72: return 0;
73: }
75: /*@C
76: PetscSFFinalizePackage - Finalize PetscSF package, it is called from PetscFinalize()
78: Logically Collective
80: Level: developer
82: .seealso: PetscSFInitializePackage()
83: @*/
84: PetscErrorCode PetscSFFinalizePackage(void)
85: {
86: PetscFunctionListDestroy(&PetscSFList);
87: PetscSFPackageInitialized = PETSC_FALSE;
88: PetscSFRegisterAllCalled = PETSC_FALSE;
89: return 0;
90: }