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 */