Actual source code: dlregis.c
2: #include petscksp.h
6: /*@C
7: PCInitializePackage - This function initializes everything in the PC package. It is called
8: from PetscDLLibraryRegister() when using dynamic libraries, and on the first call to PCCreate()
9: when using static libraries.
11: Input Parameter:
12: path - The dynamic library path, or PETSC_NULL
14: Level: developer
16: .keywords: PC, initialize, package
17: .seealso: PetscInitialize()
18: @*/
19: PetscErrorCode PCInitializePackage(const char path[]) {
20: static PetscTruth initialized = PETSC_FALSE;
21: char logList[256];
22: char *className;
23: PetscTruth opt;
27: if (initialized == PETSC_TRUE) return(0);
28: initialized = PETSC_TRUE;
29: /* Register Classes */
30: PetscLogClassRegister(&PC_COOKIE, "Preconditioner");
31: /* Register Constructors */
32: PCRegisterAll(path);
33: /* Register Events */
34: PetscLogEventRegister(&PC_SetUp, "PCSetUp", PC_COOKIE);
35: PetscLogEventRegister(&PC_SetUpOnBlocks, "PCSetUpOnBlocks", PC_COOKIE);
36: PetscLogEventRegister(&PC_Apply, "PCApply", PC_COOKIE);
37: PetscLogEventRegister(&PC_ApplyCoarse, "PCApplyCoarse", PC_COOKIE);
38: PetscLogEventRegister(&PC_ApplyMultiple, "PCApplyMultiple", PC_COOKIE);
39: PetscLogEventRegister(&PC_ApplySymmetricLeft, "PCApplySymmLeft", PC_COOKIE);
40: PetscLogEventRegister(&PC_ApplySymmetricRight, "PCApplySymmRight", PC_COOKIE);
41: PetscLogEventRegister(&PC_ModifySubMatrices, "PCModifySubMatri", PC_COOKIE);
42: /* Process info exclusions */
43: PetscOptionsGetString(PETSC_NULL, "-log_info_exclude", logList, 256, &opt);
44: if (opt == PETSC_TRUE) {
45: PetscStrstr(logList, "pc", &className);
46: if (className) {
47: PetscLogInfoDeactivateClass(PC_COOKIE);
48: }
49: }
50: /* Process summary exclusions */
51: PetscOptionsGetString(PETSC_NULL, "-log_summary_exclude", logList, 256, &opt);
52: if (opt == PETSC_TRUE) {
53: PetscStrstr(logList, "pc", &className);
54: if (className) {
55: PetscLogEventDeactivateClass(PC_COOKIE);
56: }
57: }
58: return(0);
59: }
63: /*@C
64: KSPInitializePackage - This function initializes everything in the KSP package. It is called
65: from PetscDLLibraryRegister() when using dynamic libraries, and on the first call to KSPCreate()
66: when using static libraries.
68: Input Parameter:
69: path - The dynamic library path, or PETSC_NULL
71: Level: developer
73: .keywords: KSP, initialize, package
74: .seealso: PetscInitialize()
75: @*/
76: PetscErrorCode KSPInitializePackage(const char path[]) {
77: static PetscTruth initialized = PETSC_FALSE;
78: char logList[256];
79: char *className;
80: PetscTruth opt;
84: if (initialized == PETSC_TRUE) return(0);
85: initialized = PETSC_TRUE;
86: /* Register Classes */
87: PetscLogClassRegister(&KSP_COOKIE, "Krylov Solver");
88: /* Register Constructors */
89: KSPRegisterAll(path);
90: /* Register Events */
91: PetscLogEventRegister(&KSP_GMRESOrthogonalization, "KSPGMRESOrthog", KSP_COOKIE);
92: PetscLogEventRegister(&KSP_SetUp, "KSPSetup", KSP_COOKIE);
93: PetscLogEventRegister(&KSP_Solve, "KSPSolve", KSP_COOKIE);
94: /* Process info exclusions */
95: PetscOptionsGetString(PETSC_NULL, "-log_info_exclude", logList, 256, &opt);
96: if (opt == PETSC_TRUE) {
97: PetscStrstr(logList, "ksp", &className);
98: if (className) {
99: PetscLogInfoDeactivateClass(KSP_COOKIE);
100: }
101: }
102: /* Process summary exclusions */
103: PetscOptionsGetString(PETSC_NULL, "-log_summary_exclude", logList, 256, &opt);
104: if (opt == PETSC_TRUE) {
105: PetscStrstr(logList, "ksp", &className);
106: if (className) {
107: PetscLogEventDeactivateClass(KSP_COOKIE);
108: }
109: }
110: return(0);
111: }
113: #ifdef PETSC_USE_DYNAMIC_LIBRARIES
117: /*
118: PetscDLLibraryRegister - This function is called when the dynamic library it is in is opened.
120: This one registers all the KSP and PC methods that are in the basic PETSc libpetscksp
121: library.
123: Input Parameter:
124: path - library path
125: */
126: PetscErrorCode PetscDLLibraryRegister(char *path)
127: {
130: PetscInitializeNoArguments(); if (ierr) return 1;
133: /*
134: If we got here then PETSc was properly loaded
135: */
136: PCInitializePackage(path);
137: KSPInitializePackage(path);
138: return(0);
139: }
142: /* --------------------------------------------------------------------------*/
143: static const char *contents = "PETSc Krylov subspace method and preconditioner library.\n\
144: GMRES, PCG, Bi-CG-stab, ...\n\
145: Jacobi, ILU, Block Jacobi, LU, Additive Schwarz, ...\n";
146: static const char *authors = PETSC_AUTHOR_INFO;
148: #include src/sys/src/utils/dlregis.h
150: #endif /* PETSC_USE_DYNAMIC_LIBRARIES */