Date: 2015-10-02T22:05:04+00:00

Actual source code: dlregismat.c
petsc-3.6.2 2015-10-02
Report Typos and Errors

      2: #include <petsc/private/matimpl.h>

      4: const char       *MatOptions[] = {"NEW_NONZERO_LOCATION_ERR",
      5:                                   "UNUSED_NONZERO_LOCATION_ERR",
      6:                                   "NEW_NONZERO_ALLOCATION_ERR",
      7:                                   "ROW_ORIENTED",
      8:                                   "NEW_NONZERO_LOCATIONS",
      9:                                   "SYMMETRIC",
     10:                                   "STRUCTURALLY_SYMMETRIC",
     11:                                   "NEW_DIAGONALS",
     12:                                   "IGNORE_OFF_PROC_ENTRIES",
     13:                                   "USE_HASH_TABLE",
     14:                                   "KEEP_NONZERO_PATTERN",
     15:                                   "IGNORE_ZERO_ENTRIES",
     16:                                   "USE_INODES",
     17:                                   "HERMITIAN",
     18:                                   "SYMMETRY_ETERNAL",
     19:                                   "DUMMY",
     20:                                   "IGNORE_LOWER_TRIANGULAR",
     21:                                   "ERROR_LOWER_TRIANGULAR",
     22:                                   "GETROW_UPPERTRIANGULAR",
     23:                                   "SPD",
     24:                                   "NO_OFF_PROC_ZERO_ROWS",
     25:                                   "NO_OFF_PROC_ENTRIES",
     26:                                   "NEW_NONZERO_LOCATIONS",
     27:                                   "MatOption","MAT_",0};
     28: const char *const MatFactorShiftTypes[] = {"NONE","NONZERO","POSITIVE_DEFINITE","INBLOCKS","MatFactorShiftType","PC_FACTOR_",0};
     29: const char *const MatFactorShiftTypesDetail[] = {NULL,"diagonal shift to prevent zero pivot","Manteuffel shift","diagonal shift on blocks to prevent zero pivot"};
     30: const char *const MPPTScotchStrategyTypes[] = {"QUALITY","SPEED","BALANCE","SAFETY","SCALABILITY","MPPTScotchStrategyType","MP_PTSCOTCH_",0};
     31: const char *const MPChacoGlobalTypes[] = {"","MULTILEVEL","SPECTRAL","","LINEAR","RANDOM","SCATTERED","MPChacoGlobalType","MP_CHACO_",0};
     32: const char *const MPChacoLocalTypes[] = {"","KERNIGHAN","NONE","MPChacoLocalType","MP_CHACO_",0};
     33: const char *const MPChacoEigenTypes[] = {"LANCZOS","RQI","MPChacoEigenType","MP_CHACO_",0};

     35: extern PetscErrorCode  MatMFFDInitializePackage(void);
     36: extern PetscErrorCode  MatSolverPackageDestroy(void);
     37: static PetscBool MatPackageInitialized = PETSC_FALSE;
     40: /*@C
     41:   MatFinalizePackage - This function destroys everything in the Petsc interface to the Mat package. It is
     42:   called from PetscFinalize().

     44:   Level: developer

     46: .keywords: Petsc, destroy, package, mathematica
     47: .seealso: PetscFinalize()
     48: @*/
     49: PetscErrorCode  MatFinalizePackage(void)
     50: {
     51:   MatBaseName    nnames,names = MatBaseNameList;

     55:   MatSolverPackageDestroy();
     56:   while (names) {
     57:     nnames = names->next;
     58:     PetscFree(names->bname);
     59:     PetscFree(names->sname);
     60:     PetscFree(names->mname);
     61:     PetscFree(names);
     62:     names  = nnames;
     63:   }
     64:   PetscFunctionListDestroy(&MatList);
     65:   PetscFunctionListDestroy(&MatOrderingList);
     66:   PetscFunctionListDestroy(&MatColoringList);
     67:   PetscFunctionListDestroy(&MatPartitioningList);
     68:   PetscFunctionListDestroy(&MatCoarsenList);
     69:   MatBaseNameList                  = NULL;
     70:   MatPackageInitialized            = PETSC_FALSE;
     71:   MatRegisterAllCalled             = PETSC_FALSE;
     72:   MatOrderingRegisterAllCalled     = PETSC_FALSE;
     73:   MatColoringRegisterAllCalled     = PETSC_FALSE;
     74:   MatPartitioningRegisterAllCalled = PETSC_FALSE;
     75:   MatCoarsenRegisterAllCalled      = PETSC_FALSE;
     76:   return(0);
     77: }

     79: #if defined(PETSC_HAVE_MUMPS)
     80: PETSC_EXTERN PetscErrorCode MatSolverPackageRegister_MUMPS(void);
     81: #endif
     82: #if defined(PETSC_HAVE_CUSP)
     83: PETSC_EXTERN PetscErrorCode MatSolverPackageRegister_CUSPARSE(void);
     84: #endif
     85: #if defined(PETSC_HAVE_ELEMENTAL)
     86: PETSC_EXTERN PetscErrorCode MatSolverPackageRegister_Elemental(void);
     87: #endif
     88: #if defined(PETSC_HAVE_MATLAB_ENGINE)
     89: PETSC_EXTERN PetscErrorCode MatSolverPackageRegister_Matlab(void);
     90: #endif
     91: #if defined(PETSC_HAVE_PETSC_HAVE_ESSL) && !defined(PETSC_USE_COMPLEX) && !defined(PETSC_USE_REAL_SINGLE) && !defined(PETSC_USE_REAL___FLOAT128)
     92: PETSC_EXTERN PetscErrorCode MatSolverPackageRegister_Essl(void);
     93: #endif
     94: #if defined(PETSC_HAVE_SUPERLU)
     95: PETSC_EXTERN PetscErrorCode MatSolverPackageRegister_SuperLU(void);
     96: #endif
     97: #if defined(PETSC_HAVE_PASTIX)
     98: PETSC_EXTERN PetscErrorCode MatSolverPackageRegister_Pastix(void);
     99: #endif
    100: #if defined(PETSC_HAVE_SUPERLU_DIST)
    101: PETSC_EXTERN PetscErrorCode MatSolverPackageRegister_SuperLU_DIST(void);
    102: #endif
    103: #if defined(PETSC_HAVE_CLIQUE)
    104: PETSC_EXTERN PetscErrorCode MatSolverPackageRegister_Clique(void);
    105: #endif
    106: #if defined(PETSC_HAVE_MKL_PARDISO)
    107: PETSC_EXTERN PetscErrorCode MatSolverPackageRegister_MKL_Pardiso(void);
    108: #endif
    109: #if defined(PETSC_HAVE_MKL_CPARDISO)
    110: PETSC_EXTERN PetscErrorCode MatSolverPackageRegister_MKL_CPardiso(void);
    111: #endif
    112: #if defined(PETSC_HAVE_SUITESPARSE)
    113: PETSC_EXTERN PetscErrorCode MatSolverPackageRegister_SuiteSparse(void);
    114: #endif
    115: #if defined(PETSC_HAVE_LUSOL)
    116: PETSC_EXTERN PetscErrorCode MatSolverPackageRegister_Lusol(void);
    117: #endif

    119: PETSC_EXTERN PetscErrorCode MatGetFactor_seqaij_petsc(Mat,MatFactorType,Mat*);
    120: PETSC_EXTERN PetscErrorCode MatGetFactor_seqbaij_petsc(Mat,MatFactorType,Mat*);
    121: PETSC_EXTERN PetscErrorCode MatGetFactor_seqsbaij_petsc(Mat,MatFactorType,Mat*);
    122: PETSC_EXTERN PetscErrorCode MatGetFactor_seqdense_petsc(Mat,MatFactorType,Mat*);
    123: PETSC_EXTERN PetscErrorCode MatGetFactor_seqaij_bas(Mat,MatFactorType,Mat*);
    124: PETSC_EXTERN PetscErrorCode MatGetFactor_seqbaij_bstrm(Mat,MatFactorType,Mat*);
    125: PETSC_EXTERN PetscErrorCode MatGetFactor_seqsbaij_sbstrm(Mat,MatFactorType,Mat*);

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

    134:   Level: developer

    136: .keywords: Mat, initialize, package
    137: .seealso: PetscInitialize()
    138: @*/
    139: PetscErrorCode  MatInitializePackage(void)
    140: {
    141:   char           logList[256];
    142:   char           *className;
    143:   PetscBool      opt;

    147:   if (MatPackageInitialized) return(0);
    148:   MatPackageInitialized = PETSC_TRUE;
    149:   /* Inialize subpackage */
    150:   MatMFFDInitializePackage();
    151:   /* Register Classes */
    152:   PetscClassIdRegister("Matrix",&MAT_CLASSID);
    153:   PetscClassIdRegister("Matrix FD Coloring",&MAT_FDCOLORING_CLASSID);
    154:   PetscClassIdRegister("Matrix Coloring",&MAT_COLORING_CLASSID);
    155:   PetscClassIdRegister("Matrix MatTranspose Coloring",&MAT_TRANSPOSECOLORING_CLASSID);
    156:   PetscClassIdRegister("Matrix Partitioning",&MAT_PARTITIONING_CLASSID);
    157:   PetscClassIdRegister("Matrix Coarsen",&MAT_COARSEN_CLASSID);
    158:   PetscClassIdRegister("Matrix Null Space",&MAT_NULLSPACE_CLASSID);
    159:   /* Register Constructors */
    160:   MatRegisterAll();
    161:   MatOrderingRegisterAll();
    162:   MatColoringRegisterAll();
    163:   MatPartitioningRegisterAll();
    164:   MatCoarsenRegisterAll();
    165:   /* Register Events */
    166:   PetscLogEventRegister("MatMult",          MAT_CLASSID,&MAT_Mult);
    167:   PetscLogEventRegister("MatMults",         MAT_CLASSID,&MAT_Mults);
    168:   PetscLogEventRegister("MatMultConstr",    MAT_CLASSID,&MAT_MultConstrained);
    169:   PetscLogEventRegister("MatMultAdd",       MAT_CLASSID,&MAT_MultAdd);
    170:   PetscLogEventRegister("MatMultTranspose", MAT_CLASSID,&MAT_MultTranspose);
    171:   PetscLogEventRegister("MatMultTrConstr",  MAT_CLASSID,&MAT_MultTransposeConstrained);
    172:   PetscLogEventRegister("MatMultTrAdd",     MAT_CLASSID,&MAT_MultTransposeAdd);
    173:   PetscLogEventRegister("MatSolve",         MAT_CLASSID,&MAT_Solve);
    174:   PetscLogEventRegister("MatSolves",        MAT_CLASSID,&MAT_Solves);
    175:   PetscLogEventRegister("MatSolveAdd",      MAT_CLASSID,&MAT_SolveAdd);
    176:   PetscLogEventRegister("MatSolveTranspos", MAT_CLASSID,&MAT_SolveTranspose);
    177:   PetscLogEventRegister("MatSolveTrAdd",    MAT_CLASSID,&MAT_SolveTransposeAdd);
    178:   PetscLogEventRegister("MatSOR",           MAT_CLASSID,&MAT_SOR);
    179:   PetscLogEventRegister("MatForwardSolve",  MAT_CLASSID,&MAT_ForwardSolve);
    180:   PetscLogEventRegister("MatBackwardSolve", MAT_CLASSID,&MAT_BackwardSolve);
    181:   PetscLogEventRegister("MatLUFactor",      MAT_CLASSID,&MAT_LUFactor);
    182:   PetscLogEventRegister("MatLUFactorSym",   MAT_CLASSID,&MAT_LUFactorSymbolic);
    183:   PetscLogEventRegister("MatLUFactorNum",   MAT_CLASSID,&MAT_LUFactorNumeric);
    184:   PetscLogEventRegister("MatCholeskyFctr",  MAT_CLASSID,&MAT_CholeskyFactor);
    185:   PetscLogEventRegister("MatCholFctrSym",   MAT_CLASSID,&MAT_CholeskyFactorSymbolic);
    186:   PetscLogEventRegister("MatCholFctrNum",   MAT_CLASSID,&MAT_CholeskyFactorNumeric);
    187:   PetscLogEventRegister("MatILUFactor",     MAT_CLASSID,&MAT_ILUFactor);
    188:   PetscLogEventRegister("MatILUFactorSym",  MAT_CLASSID,&MAT_ILUFactorSymbolic);
    189:   PetscLogEventRegister("MatICCFactorSym",  MAT_CLASSID,&MAT_ICCFactorSymbolic);
    190:   PetscLogEventRegister("MatCopy",          MAT_CLASSID,&MAT_Copy);
    191:   PetscLogEventRegister("MatConvert",       MAT_CLASSID,&MAT_Convert);
    192:   PetscLogEventRegister("MatScale",         MAT_CLASSID,&MAT_Scale);
    193:   PetscLogEventRegister("MatResidual",      MAT_CLASSID,&MAT_Residual);
    194:   PetscLogEventRegister("MatAssemblyBegin", MAT_CLASSID,&MAT_AssemblyBegin);
    195:   PetscLogEventRegister("MatAssemblyEnd",   MAT_CLASSID,&MAT_AssemblyEnd);
    196:   PetscLogEventRegister("MatSetValues",     MAT_CLASSID,&MAT_SetValues);
    197:   PetscLogEventRegister("MatGetValues",     MAT_CLASSID,&MAT_GetValues);
    198:   PetscLogEventRegister("MatGetRow",        MAT_CLASSID,&MAT_GetRow);
    199:   PetscLogEventRegister("MatGetRowIJ",      MAT_CLASSID,&MAT_GetRowIJ);
    200:   PetscLogEventRegister("MatGetSubMatrice", MAT_CLASSID,&MAT_GetSubMatrices);
    201:   PetscLogEventRegister("MatGetSubMatrix",  MAT_CLASSID,&MAT_GetSubMatrix);
    202:   PetscLogEventRegister("MatGetOrdering",   MAT_CLASSID,&MAT_GetOrdering);
    203:   PetscLogEventRegister("MatIncreaseOvrlp", MAT_CLASSID,&MAT_IncreaseOverlap);
    204:   PetscLogEventRegister("MatPartitioning",  MAT_PARTITIONING_CLASSID,&MAT_Partitioning);
    205:   PetscLogEventRegister("MatCoarsen",  MAT_COARSEN_CLASSID,&MAT_Coarsen);
    206:   PetscLogEventRegister("MatZeroEntries",   MAT_CLASSID,&MAT_ZeroEntries);
    207:   PetscLogEventRegister("MatLoad",          MAT_CLASSID,&MAT_Load);
    208:   PetscLogEventRegister("MatView",          MAT_CLASSID,&MAT_View);
    209:   PetscLogEventRegister("MatAXPY",          MAT_CLASSID,&MAT_AXPY);
    210:   PetscLogEventRegister("MatFDColorCreate", MAT_FDCOLORING_CLASSID,&MAT_FDColoringCreate);
    211:   PetscLogEventRegister("MatFDColorSetUp",  MAT_FDCOLORING_CLASSID,&MAT_FDColoringSetUp);
    212:   PetscLogEventRegister("MatFDColorApply",  MAT_FDCOLORING_CLASSID,&MAT_FDColoringApply);
    213:   PetscLogEventRegister("MatFDColorFunc",   MAT_FDCOLORING_CLASSID,&MAT_FDColoringFunction);
    214:   PetscLogEventRegister("MatTranspose",     MAT_CLASSID,&MAT_Transpose);
    215:   PetscLogEventRegister("MatMatMult",       MAT_CLASSID,&MAT_MatMult);
    216:   PetscLogEventRegister("MatMatSolve",      MAT_CLASSID,&MAT_MatSolve);
    217:   PetscLogEventRegister("MatMatMultSym",    MAT_CLASSID,&MAT_MatMultSymbolic);
    218:   PetscLogEventRegister("MatMatMultNum",    MAT_CLASSID,&MAT_MatMultNumeric);
    219:   PetscLogEventRegister("MatMatMatMult",    MAT_CLASSID,&MAT_MatMatMult);
    220:   PetscLogEventRegister("MatMatMatMultSym", MAT_CLASSID,&MAT_MatMatMultSymbolic);
    221:   PetscLogEventRegister("MatMatMatMultNum", MAT_CLASSID,&MAT_MatMatMultNumeric);
    222:   PetscLogEventRegister("MatPtAP",          MAT_CLASSID,&MAT_PtAP);
    223:   PetscLogEventRegister("MatPtAPSymbolic",  MAT_CLASSID,&MAT_PtAPSymbolic);
    224:   PetscLogEventRegister("MatPtAPNumeric",   MAT_CLASSID,&MAT_PtAPNumeric);
    225:   PetscLogEventRegister("MatRARt",          MAT_CLASSID,&MAT_RARt);
    226:   PetscLogEventRegister("MatRARtSym",       MAT_CLASSID,&MAT_RARtSymbolic);
    227:   PetscLogEventRegister("MatRARtNum",       MAT_CLASSID,&MAT_RARtNumeric);
    228:   PetscLogEventRegister("MatMatTransMult",  MAT_CLASSID,&MAT_MatTransposeMult);
    229:   PetscLogEventRegister("MatMatTrnMultSym", MAT_CLASSID,&MAT_MatTransposeMultSymbolic);
    230:   PetscLogEventRegister("MatMatTrnMultNum", MAT_CLASSID,&MAT_MatTransposeMultNumeric);
    231:   PetscLogEventRegister("MatTrnMatMult",    MAT_CLASSID,&MAT_TransposeMatMult);
    232:   PetscLogEventRegister("MatTrnMatMultSym", MAT_CLASSID,&MAT_TransposeMatMultSymbolic);
    233:   PetscLogEventRegister("MatTrnMatMultNum", MAT_CLASSID,&MAT_TransposeMatMultNumeric);
    234:   PetscLogEventRegister("MatTrnColorCreate", MAT_CLASSID,&MAT_TransposeColoringCreate);
    235:   PetscLogEventRegister("MatRedundantMat",  MAT_CLASSID,&MAT_RedundantMat);
    236:   PetscLogEventRegister("MatGetSeqNZStrct", MAT_CLASSID,&MAT_GetSequentialNonzeroStructure);
    237:   PetscLogEventRegister("MatGetMultiProcBlock", MAT_CLASSID,&MAT_GetMultiProcBlock);

    239:   /* these may be specific to MPIAIJ matrices */
    240:   PetscLogEventRegister("MatMPISumSeqNumeric",MAT_CLASSID,&MAT_Seqstompinum);
    241:   PetscLogEventRegister("MatMPISumSeqSymbolic",MAT_CLASSID,&MAT_Seqstompisym);
    242:   PetscLogEventRegister("MatMPISumSeq",MAT_CLASSID,&MAT_Seqstompi);
    243:   PetscLogEventRegister("MatMPIConcateSeq",MAT_CLASSID,&MAT_Merge);
    244:   PetscLogEventRegister("MatGetLocalMat",MAT_CLASSID,&MAT_Getlocalmat);
    245:   PetscLogEventRegister("MatGetLocalMatCondensed",MAT_CLASSID,&MAT_Getlocalmatcondensed);
    246:   PetscLogEventRegister("MatGetBrowsOfAcols",MAT_CLASSID,&MAT_GetBrowsOfAcols);
    247:   PetscLogEventRegister("MatGetBrAoCol",MAT_CLASSID,&MAT_GetBrowsOfAocols);

    249:   PetscLogEventRegister("MatApplyPAPt_Symbolic",MAT_CLASSID,&MAT_Applypapt_symbolic);
    250:   PetscLogEventRegister("MatApplyPAPt_Numeric",MAT_CLASSID,&MAT_Applypapt_numeric);
    251:   PetscLogEventRegister("MatApplyPAPt",MAT_CLASSID,&MAT_Applypapt);

    253:   PetscLogEventRegister("MatGetSymTrans",MAT_CLASSID,&MAT_Getsymtranspose);
    254:   PetscLogEventRegister("MatGetSymTransR",MAT_CLASSID,&MAT_Getsymtransreduced);
    255:   PetscLogEventRegister("MatTranspose_SeqAIJ_FAST",MAT_CLASSID,&MAT_Transpose_SeqAIJ);
    256:   PetscLogEventRegister("MatCUSPCopyTo",MAT_CLASSID,&MAT_CUSPCopyToGPU);
    257:   PetscLogEventRegister("MatCUSPARSECopyTo",MAT_CLASSID,&MAT_CUSPARSECopyToGPU);
    258:   PetscLogEventRegister("MatViennaCLCopyTo",MAT_CLASSID,&MAT_ViennaCLCopyToGPU);
    259:   PetscLogEventRegister("MatSetValBatch",MAT_CLASSID,&MAT_SetValuesBatch);
    260:   PetscLogEventRegister("MatSetValBatch1",MAT_CLASSID,&MAT_SetValuesBatchI);
    261:   PetscLogEventRegister("MatSetValBatch2",MAT_CLASSID,&MAT_SetValuesBatchII);
    262:   PetscLogEventRegister("MatSetValBatch3",MAT_CLASSID,&MAT_SetValuesBatchIII);
    263:   PetscLogEventRegister("MatSetValBatch4",MAT_CLASSID,&MAT_SetValuesBatchIV);

    265:   PetscLogEventRegister("MatColoringApply",MAT_COLORING_CLASSID,&Mat_Coloring_Apply);
    266:   PetscLogEventRegister("MatColoringComm",MAT_COLORING_CLASSID,&Mat_Coloring_Comm);
    267:   PetscLogEventRegister("MatColoringLocal",MAT_COLORING_CLASSID,&Mat_Coloring_Local);
    268:   PetscLogEventRegister("MatColoringIS",MAT_COLORING_CLASSID,&Mat_Coloring_ISCreate);
    269:   PetscLogEventRegister("MatColoringSetUp",MAT_COLORING_CLASSID,&Mat_Coloring_SetUp);
    270:   PetscLogEventRegister("MatColoringWeights",MAT_COLORING_CLASSID,&Mat_Coloring_Weights);

    272:   /* Turn off high traffic events by default */
    273:   PetscLogEventSetActiveAll(MAT_SetValues, PETSC_FALSE);
    274:   /* Process info exclusions */
    275:   PetscOptionsGetString(NULL, "-info_exclude", logList, 256, &opt);
    276:   if (opt) {
    277:     PetscStrstr(logList, "mat", &className);
    278:     if (className) {
    279:       PetscInfoDeactivateClass(MAT_CLASSID);
    280:     }
    281:   }
    282:   /* Process summary exclusions */
    283:   PetscOptionsGetString(NULL, "-log_summary_exclude", logList, 256, &opt);
    284:   if (opt) {
    285:     PetscStrstr(logList, "mat", &className);
    286:     if (className) {
    287:       PetscLogEventDeactivateClass(MAT_CLASSID);
    288:     }
    289:   }

    291:   /*
    292:      Register the external package factorization based solvers
    293:         Eventually we don't want to have these hardwired here at compile time of PETSc
    294:   */
    295: #if defined(PETSC_HAVE_MUMPS)
    296:   MatSolverPackageRegister_MUMPS();
    297: #endif
    298: #if defined(PETSC_HAVE_CUSP)
    299:   MatSolverPackageRegister_CUSPARSE();
    300: #endif
    301: #if defined(PETSC_HAVE_ELEMENTAL)
    302:   MatSolverPackageRegister_Elemental();
    303: #endif
    304: #if defined(PETSC_HAVE_MATLAB_ENGINE)
    305:   MatSolverPackageRegister_Matlab();
    306: #endif
    307: #if defined(PETSC_HAVE_PETSC_HAVE_ESSL) && !defined(PETSC_USE_COMPLEX) && !defined(PETSC_USE_REAL_SINGLE) && !defined(PETSC_USE_REAL___FLOAT128)
    308:   MatSolverPackageRegister_Essl();
    309: #endif
    310: #if defined(PETSC_HAVE_SUPERLU)
    311:   MatSolverPackageRegister_SuperLU();
    312: #endif
    313: #if defined(PETSC_HAVE_PASTIX)
    314:   MatSolverPackageRegister_Pastix();
    315: #endif
    316: #if defined(PETSC_HAVE_SUPERLU_DIST)
    317:   MatSolverPackageRegister_SuperLU_DIST();
    318: #endif
    319: #if defined(PETSC_HAVE_CLIQUE)
    320:   MatSolverPackageRegister_Clique();
    321: #endif
    322: #if defined(PETSC_HAVE_MKL_PARDISO)
    323:   MatSolverPackageRegister_MKL_Pardiso();
    324: #endif
    325: #if defined(PETSC_HAVE_MKL_CPARDISO)
    326:   MatSolverPackageRegister_MKL_CPardiso();
    327: #endif
    328: #if defined(PETSC_HAVE_SUITESPARSE)
    329:   MatSolverPackageRegister_SuiteSparse();
    330: #endif
    331: #if defined(PETSC_HAVE_LUSOL)
    332:   MatSolverPackageRegister_Lusol();
    333: #endif
    334: #if defined(PETSC_HAVE_CLIQUE)
    335:   MatSolverPackageRegister_Clique();
    336: #endif

    338:   /* Register the PETSc built in factorization based solvers */
    339:   MatSolverPackageRegister(MATSOLVERBAS,   MATSEQAIJ,        MAT_FACTOR_ICC,MatGetFactor_seqaij_bas);

    341:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQAIJ,        MAT_FACTOR_LU,MatGetFactor_seqaij_petsc);
    342:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQAIJ,        MAT_FACTOR_CHOLESKY,MatGetFactor_seqaij_petsc);
    343:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQAIJ,        MAT_FACTOR_ILU,MatGetFactor_seqaij_petsc);
    344:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQAIJ,        MAT_FACTOR_ICC,MatGetFactor_seqaij_petsc);

    346:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQAIJPERM,    MAT_FACTOR_LU,MatGetFactor_seqaij_petsc);
    347:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQAIJPERM,    MAT_FACTOR_CHOLESKY,MatGetFactor_seqaij_petsc);
    348:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQAIJPERM,    MAT_FACTOR_ILU,MatGetFactor_seqaij_petsc);
    349:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQAIJPERM,    MAT_FACTOR_ICC,MatGetFactor_seqaij_petsc);

    351:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQAIJCRL,     MAT_FACTOR_LU,MatGetFactor_seqaij_petsc);
    352:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQAIJCRL,     MAT_FACTOR_CHOLESKY,MatGetFactor_seqaij_petsc);
    353:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQAIJCRL,     MAT_FACTOR_ILU,MatGetFactor_seqaij_petsc);
    354:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQAIJCRL,     MAT_FACTOR_ICC,MatGetFactor_seqaij_petsc);

    356:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQBAIJ,       MAT_FACTOR_LU,MatGetFactor_seqbaij_petsc);
    357:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQBAIJ,       MAT_FACTOR_CHOLESKY,MatGetFactor_seqbaij_petsc);
    358:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQBAIJ,       MAT_FACTOR_ILU,MatGetFactor_seqbaij_petsc);
    359:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQBAIJ,       MAT_FACTOR_ICC,MatGetFactor_seqbaij_petsc);

    361:   MatSolverPackageRegister(MATSOLVERBSTRM, MATSEQBAIJ,       MAT_FACTOR_LU,MatGetFactor_seqbaij_bstrm);
    362:   MatSolverPackageRegister(MATSOLVERBSTRM, MATSEQBAIJ,       MAT_FACTOR_ILU,MatGetFactor_seqbaij_bstrm);

    364:   MatSolverPackageRegister(MATSOLVERSBSTRM,MATSEQSBAIJ,      MAT_FACTOR_CHOLESKY,MatGetFactor_seqsbaij_sbstrm);
    365:   MatSolverPackageRegister(MATSOLVERSBSTRM,MATSEQSBAIJ,      MAT_FACTOR_ICC,MatGetFactor_seqsbaij_sbstrm);

    367:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQSBAIJ,      MAT_FACTOR_CHOLESKY,MatGetFactor_seqsbaij_petsc);
    368:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQSBAIJ,      MAT_FACTOR_ICC,MatGetFactor_seqsbaij_petsc);

    370:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQDENSE,      MAT_FACTOR_LU,MatGetFactor_seqdense_petsc);
    371:   MatSolverPackageRegister(MATSOLVERPETSC, MATSEQDENSE,      MAT_FACTOR_CHOLESKY,MatGetFactor_seqdense_petsc);

    373:   PetscRegisterFinalize(MatFinalizePackage);
    374:   return(0);
    375: }

    377: #if defined(PETSC_HAVE_DYNAMIC_LIBRARIES)
    380: /*
    381:   PetscDLLibraryRegister - This function is called when the dynamic library it is in is opened.

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

    385:  */
    386: PETSC_EXTERN PetscErrorCode PetscDLLibraryRegister_petscmat(void)
    387: {

    391:   MatInitializePackage();
    392:   return(0);
    393: }

    396: #endif /* PETSC_HAVE_DYNAMIC_LIBRARIES */