Actual source code: dlregismat.c

  2: #include <private/matimpl.h>

  4: const char *MatOptions[] = {"ROW_ORIENTED","NEW_NONZERO_LOCATIONS",
  5:               "SYMMETRIC",
  6:               "STRUCTURALLY_SYMMETRIC",
  7:               "NEW_DIAGONALS",
  8:               "IGNORE_OFF_PROC_ENTRIES",
  9:               "NEW_NONZERO_LOCATION_ERR",
 10:               "NEW_NONZERO_ALLOCATION_ERR","USE_HASH_TABLE",
 11:               "KEEP_NONZERO_PATTERN","IGNORE_ZERO_ENTRIES","USE_INODES",
 12:               "HERMITIAN",
 13:               "SYMMETRY_ETERNAL",
 14:               "CHECK_COMPRESSED_ROW",
 15:               "IGNORE_LOWER_TRIANGULAR","ERROR_LOWER_TRIANGULAR","GETROW_UPPERTRIANGULAR","SPD","NO_OFF_PROC_ENTRIES","NO_OFF_PROC_ZERO_ROWS","MatOption","MAT_",0};
 16: const char *MatFactorShiftTypes[] = {"NONE","NONZERO","POSITIVE_DEFINITE","INBLOCKS","MatFactorShiftType","PC_FACTOR_",0};
 17: const char *MPPTScotchStrategyTypes[] = {"QUALITY","SPEED","BALANCE","SAFETY","SCALABILITY","MPPTScotchStrategyType","MP_PTSCOTCH_",0};
 18: const char *MPChacoGlobalTypes[] = {"","MULTILEVEL","SPECTRAL","","LINEAR","RANDOM","SCATTERED","MPChacoGlobalType","MP_CHACO_",0};
 19: const char *MPChacoLocalTypes[] = {"","KERNIGHAN","NONE","MPChacoLocalType","MP_CHACO_",0};
 20: const char *MPChacoEigenTypes[] = {"LANCZOS","RQI","MPChacoEigenType","MP_CHACO_",0};

 23: static PetscBool  MatPackageInitialized = PETSC_FALSE;
 26: /*@C
 27:   MatFinalizePackage - This function destroys everything in the Petsc interface to the Mat package. It is
 28:   called from PetscFinalize().

 30:   Level: developer

 32: .keywords: Petsc, destroy, package, mathematica
 33: .seealso: PetscFinalize()
 34: @*/
 35: PetscErrorCode  MatFinalizePackage(void)
 36: {
 37:   MatBaseName    nnames,names = MatBaseNameList;

 41:   while (names) {
 42:     nnames = names->next;
 43:     PetscFree(names->bname);
 44:     PetscFree(names->sname);
 45:     PetscFree(names->mname);
 46:     PetscFree(names);
 47:     names = nnames;
 48:   }
 49:   MatBaseNameList                  = PETSC_NULL;
 50:   MatPackageInitialized            = PETSC_FALSE;
 51:   MatRegisterAllCalled             = PETSC_FALSE;
 52:   MatList                          = PETSC_NULL;
 53:   MatOrderingRegisterAllCalled     = PETSC_FALSE;
 54:   MatOrderingList                  = PETSC_NULL;
 55:   MatColoringList                  = PETSC_NULL;
 56:   MatColoringRegisterAllCalled     = PETSC_FALSE;
 57:   MatPartitioningList              = PETSC_NULL;
 58:   MatPartitioningRegisterAllCalled = PETSC_FALSE;
 59:   return(0);
 60: }

 64: /*@C
 65:   MatInitializePackage - This function initializes everything in the Mat package. It is called
 66:   from PetscDLLibraryRegister() when using dynamic libraries, and on the first call to MatCreate()
 67:   when using static libraries.

 69:   Input Parameter:
 70:   path - The dynamic library path, or PETSC_NULL

 72:   Level: developer

 74: .keywords: Mat, initialize, package
 75: .seealso: PetscInitialize()
 76: @*/
 77: PetscErrorCode  MatInitializePackage(const char path[])
 78: {
 79:   char              logList[256];
 80:   char              *className;
 81:   PetscBool         opt;
 82:   PetscErrorCode    ierr;

 85:   if (MatPackageInitialized) return(0);
 86:   MatPackageInitialized = PETSC_TRUE;
 87:   /* Inialize subpackage */
 88:   MatMFFDInitializePackage(path);
 89:   /* Register Classes */
 90:   PetscClassIdRegister("Matrix",&MAT_CLASSID);
 91:   PetscClassIdRegister("Matrix FD Coloring",&MAT_FDCOLORING_CLASSID);
 92:   PetscClassIdRegister("Matrix Partitioning",&MAT_PARTITIONING_CLASSID);
 93:   PetscClassIdRegister("Matrix Null Space",&MAT_NULLSPACE_CLASSID);
 94:   /* Register Constructors */
 95:   MatRegisterAll(path);
 96:   MatOrderingRegisterAll(path);
 97:   MatColoringRegisterAll(path);
 98:   MatPartitioningRegisterAll(path);
 99:   /* Register Events */
100:   PetscLogEventRegister("MatMult",          MAT_CLASSID,&MAT_Mult);
101:   PetscLogEventRegister("MatMults",         MAT_CLASSID,&MAT_Mults);
102:   PetscLogEventRegister("MatMultConstr",    MAT_CLASSID,&MAT_MultConstrained);
103:   PetscLogEventRegister("MatMultAdd",       MAT_CLASSID,&MAT_MultAdd);
104:   PetscLogEventRegister("MatMultTranspose", MAT_CLASSID,&MAT_MultTranspose);
105:   PetscLogEventRegister("MatMultTrConstr",  MAT_CLASSID,&MAT_MultTransposeConstrained);
106:   PetscLogEventRegister("MatMultTrAdd",     MAT_CLASSID,&MAT_MultTransposeAdd);
107:   PetscLogEventRegister("MatSolve",         MAT_CLASSID,&MAT_Solve);
108:   PetscLogEventRegister("MatSolves",        MAT_CLASSID,&MAT_Solves);
109:   PetscLogEventRegister("MatSolveAdd",      MAT_CLASSID,&MAT_SolveAdd);
110:   PetscLogEventRegister("MatSolveTranspos", MAT_CLASSID,&MAT_SolveTranspose);
111:   PetscLogEventRegister("MatSolveTrAdd",    MAT_CLASSID,&MAT_SolveTransposeAdd);
112:   PetscLogEventRegister("MatSOR",           MAT_CLASSID,&MAT_SOR);
113:   PetscLogEventRegister("MatForwardSolve",  MAT_CLASSID,&MAT_ForwardSolve);
114:   PetscLogEventRegister("MatBackwardSolve", MAT_CLASSID,&MAT_BackwardSolve);
115:   PetscLogEventRegister("MatLUFactor",      MAT_CLASSID,&MAT_LUFactor);
116:   PetscLogEventRegister("MatLUFactorSym",   MAT_CLASSID,&MAT_LUFactorSymbolic);
117:   PetscLogEventRegister("MatLUFactorNum",   MAT_CLASSID,&MAT_LUFactorNumeric);
118:   PetscLogEventRegister("MatCholeskyFctr",  MAT_CLASSID,&MAT_CholeskyFactor);
119:   PetscLogEventRegister("MatCholFctrSym",   MAT_CLASSID,&MAT_CholeskyFactorSymbolic);
120:   PetscLogEventRegister("MatCholFctrNum",   MAT_CLASSID,&MAT_CholeskyFactorNumeric);
121:   PetscLogEventRegister("MatILUFactor",     MAT_CLASSID,&MAT_ILUFactor);
122:   PetscLogEventRegister("MatILUFactorSym",  MAT_CLASSID,&MAT_ILUFactorSymbolic);
123:   PetscLogEventRegister("MatICCFactorSym",  MAT_CLASSID,&MAT_ICCFactorSymbolic);
124:   PetscLogEventRegister("MatCopy",          MAT_CLASSID,&MAT_Copy);
125:   PetscLogEventRegister("MatConvert",       MAT_CLASSID,&MAT_Convert);
126:   PetscLogEventRegister("MatScale",         MAT_CLASSID,&MAT_Scale);
127:   PetscLogEventRegister("MatAssemblyBegin", MAT_CLASSID,&MAT_AssemblyBegin);
128:   PetscLogEventRegister("MatAssemblyEnd",   MAT_CLASSID,&MAT_AssemblyEnd);
129:   PetscLogEventRegister("MatSetValues",     MAT_CLASSID,&MAT_SetValues);
130:   PetscLogEventRegister("MatGetValues",     MAT_CLASSID,&MAT_GetValues);
131:   PetscLogEventRegister("MatGetRow",        MAT_CLASSID,&MAT_GetRow);
132:   PetscLogEventRegister("MatGetRowIJ",      MAT_CLASSID,&MAT_GetRowIJ);
133:   PetscLogEventRegister("MatGetSubMatrice", MAT_CLASSID,&MAT_GetSubMatrices);
134:   PetscLogEventRegister("MatGetColoring",   MAT_CLASSID,&MAT_GetColoring);
135:   PetscLogEventRegister("MatGetOrdering",   MAT_CLASSID,&MAT_GetOrdering);
136:   PetscLogEventRegister("MatIncreaseOvrlp", MAT_CLASSID,&MAT_IncreaseOverlap);
137:   PetscLogEventRegister("MatPartitioning",  MAT_PARTITIONING_CLASSID,&MAT_Partitioning);
138:   PetscLogEventRegister("MatZeroEntries",   MAT_CLASSID,&MAT_ZeroEntries);
139:   PetscLogEventRegister("MatLoad",          MAT_CLASSID,&MAT_Load);
140:   PetscLogEventRegister("MatView",          MAT_CLASSID,&MAT_View);
141:   PetscLogEventRegister("MatAXPY",          MAT_CLASSID,&MAT_AXPY);
142:   PetscLogEventRegister("MatFDColorCreate", MAT_FDCOLORING_CLASSID,&MAT_FDColoringCreate);
143:   PetscLogEventRegister("MatFDColorApply",  MAT_FDCOLORING_CLASSID,&MAT_FDColoringApply);
144:   PetscLogEventRegister("MatFDColorFunc",   MAT_FDCOLORING_CLASSID,&MAT_FDColoringFunction);
145:   PetscLogEventRegister("MatTranspose",     MAT_CLASSID,&MAT_Transpose);
146:   PetscLogEventRegister("MatMatMult",       MAT_CLASSID,&MAT_MatMult);
147:   PetscLogEventRegister("MatMatSolve",      MAT_CLASSID,&MAT_MatSolve);
148:   PetscLogEventRegister("MatMatMultSym",    MAT_CLASSID,&MAT_MatMultSymbolic);
149:   PetscLogEventRegister("MatMatMultNum",    MAT_CLASSID,&MAT_MatMultNumeric);
150:   PetscLogEventRegister("MatPtAP",          MAT_CLASSID,&MAT_PtAP);
151:   PetscLogEventRegister("MatPtAPSymbolic",  MAT_CLASSID,&MAT_PtAPSymbolic);
152:   PetscLogEventRegister("MatPtAPNumeric",   MAT_CLASSID,&MAT_PtAPNumeric);
153:   PetscLogEventRegister("MatMatMultTrans",  MAT_CLASSID,&MAT_MatMultTranspose);
154:   PetscLogEventRegister("MatMatMultTrnSym" ,MAT_CLASSID,&MAT_MatMultTransposeSymbolic);
155:   PetscLogEventRegister("MatMatMultTrnNum", MAT_CLASSID,&MAT_MatMultTransposeNumeric);
156:   PetscLogEventRegister("MatGetRedundant",  MAT_CLASSID,&MAT_GetRedundantMatrix);
157:   PetscLogEventRegister("MatGetSeqNZStrct", MAT_CLASSID,&MAT_GetSequentialNonzeroStructure);
158:   PetscLogEventRegister("MatGetMultiProcBlock", MAT_CLASSID,&MAT_GetMultiProcBlock);

160:   /* these may be specific to MPIAIJ matrices */
161:   PetscLogEventRegister("MatMerge_SeqsToMPINumeric",MAT_CLASSID,&MAT_Seqstompinum);
162:   PetscLogEventRegister("MatMerge_SeqsToMPISymbolic",MAT_CLASSID,&MAT_Seqstompisym);
163:   PetscLogEventRegister("MatMerge_SeqsToMPI",MAT_CLASSID,&MAT_Seqstompi);
164:   PetscLogEventRegister("MatGetLocalMat",MAT_CLASSID,&MAT_Getlocalmat);
165:   PetscLogEventRegister("MatGetLocalMatCondensed",MAT_CLASSID,&MAT_Getlocalmatcondensed);
166:   PetscLogEventRegister("MatGetBrowsOfAcols",MAT_CLASSID,&MAT_GetBrowsOfAcols);
167:   PetscLogEventRegister("MatGetBrAoCol",MAT_CLASSID,&MAT_GetBrowsOfAocols);

169:   PetscLogEventRegister("MatApplyPAPt_Symbolic",MAT_CLASSID,&MAT_Applypapt_symbolic);
170:   PetscLogEventRegister("MatApplyPAPt_Numeric",MAT_CLASSID,&MAT_Applypapt_numeric);
171:   PetscLogEventRegister("MatApplyPAPt",MAT_CLASSID,&MAT_Applypapt);

173:   PetscLogEventRegister("MatGetSymTrans",MAT_CLASSID,&MAT_Getsymtranspose);
174:   PetscLogEventRegister("MatGetSymTransR",MAT_CLASSID,&MAT_Getsymtransreduced);
175:   PetscLogEventRegister("MatTranspose_SeqAIJ_FAST",MAT_CLASSID,&MAT_Transpose_SeqAIJ);
176:   PetscLogEventRegister("MatCUSPCopyTo",MAT_CLASSID,&MAT_CUSPCopyToGPU);
177:   PetscLogEventRegister("MatSetValBatch",MAT_CLASSID,&MAT_SetValuesBatch);
178:   PetscLogEventRegister("MatSetValBatch1",MAT_CLASSID,&MAT_SetValuesBatchI);
179:   PetscLogEventRegister("MatSetValBatch2",MAT_CLASSID,&MAT_SetValuesBatchII);
180:   PetscLogEventRegister("MatSetValBatch3",MAT_CLASSID,&MAT_SetValuesBatchIII);
181:   PetscLogEventRegister("MatSetValBatch4",MAT_CLASSID,&MAT_SetValuesBatchIV);

183:   /* Turn off high traffic events by default */
184:   PetscLogEventSetActiveAll(MAT_SetValues, PETSC_FALSE);
185:   /* Process info exclusions */
186:   PetscOptionsGetString(PETSC_NULL, "-info_exclude", logList, 256, &opt);
187:   if (opt) {
188:     PetscStrstr(logList, "mat", &className);
189:     if (className) {
190:       PetscInfoDeactivateClass(MAT_CLASSID);
191:     }
192:   }
193:   /* Process summary exclusions */
194:   PetscOptionsGetString(PETSC_NULL, "-log_summary_exclude", logList, 256, &opt);
195:   if (opt) {
196:     PetscStrstr(logList, "mat", &className);
197:     if (className) {
198:       PetscLogEventDeactivateClass(MAT_CLASSID);
199:     }
200:   }
201:   PetscRegisterFinalize(MatFinalizePackage);
202:   return(0);
203: }

205: #ifdef PETSC_USE_DYNAMIC_LIBRARIES
209: /*
210:   PetscDLLibraryRegister - This function is called when the dynamic library it is in is opened.

212:   This one registers all the matrix methods that are in the basic PETSc Matrix library.

214:   Input Parameter:
215:   path - library path
216:  */
217: PetscErrorCode  PetscDLLibraryRegister_petscmat(const char path[])
218: {

222:   MatInitializePackage(path);
223:   return(0);
224: }


228: #endif /* PETSC_USE_DYNAMIC_LIBRARIES */