1*905e6a2fSBarry Smith /* $Id: mat.h,v 1.110 1996/07/15 23:38:53 bsmith Exp bsmith $ */ 22eac72dbSBarry Smith /* 32eac72dbSBarry Smith Include file for the matrix component of PETSc 42eac72dbSBarry Smith */ 51eb62cbbSBarry Smith #ifndef __MAT_PACKAGE 61eb62cbbSBarry Smith #define __MAT_PACKAGE 78ed539a5SBarry Smith #include "vec.h" 82eac72dbSBarry Smith 99cd28387SBarry Smith #define MAT_COOKIE PETSC_COOKIE+5 10f0479e8cSBarry Smith 112eac72dbSBarry Smith typedef struct _Mat* Mat; 122eac72dbSBarry Smith 134ac9ca07SLois Curfman McInnes typedef enum { MATSAME=-1, MATSEQDENSE, MATSEQAIJ, MATMPIAIJ, MATSHELL, 14c456f294SBarry Smith MATMPIROWBS, MATSEQBDIAG, MATMPIBDIAG, 15a20e3d60SSatish Balay MATMPIDENSE, MATSEQBAIJ, MATMPIBAIJ} MatType; 1628988994SBarry Smith 170e998a85SBarry Smith extern int MatCreate(MPI_Comm,int,int,Mat*); 18df6e0191SLois Curfman McInnes extern int MatCreateSeqDense(MPI_Comm,int,int,Scalar*,Mat*); 19d5bc1036SLois Curfman McInnes extern int MatCreateMPIDense(MPI_Comm,int,int,int,int,Scalar*,Mat*); 20de7da479SBarry Smith extern int MatCreateSeqAIJ(MPI_Comm,int,int,int,int*,Mat*); 219717bf64SBarry Smith extern int MatCreateMPIAIJ(MPI_Comm,int,int,int,int,int,int*,int,int*,Mat*); 22cfe223acSLois Curfman McInnes extern int MatCreateMPIRowbs(MPI_Comm,int,int,int,int*,void*,Mat*); 23f26ada1bSBarry Smith extern int MatCreateSeqBDiag(MPI_Comm,int,int,int,int,int*,Scalar**,Mat*); 24f26ada1bSBarry Smith extern int MatCreateMPIBDiag(MPI_Comm,int,int,int,int,int,int*,Scalar**,Mat*); 25df8a92d1SBarry Smith extern int MatCreateSeqBAIJ(MPI_Comm,int,int,int,int,int*,Mat*); 26eba03b66SLois Curfman McInnes extern int MatCreateMPIBAIJ(MPI_Comm,int,int,int,int,int,int,int*,int,int*,Mat*); 279717bf64SBarry Smith 287b80b807SBarry Smith extern int MatDestroy(Mat); 297b80b807SBarry Smith 307ddc982cSLois Curfman McInnes extern int MatCreateShell(MPI_Comm,int,int,int,int,void *,Mat*); 3117116c71SBarry Smith extern int MatShellGetContext(Mat,void **); 3221c89e3eSBarry Smith 332eac72dbSBarry Smith 34ec0117caSBarry Smith extern int MatPrintHelp(Mat); 35ec0117caSBarry Smith 368ed539a5SBarry Smith /* ------------------------------------------------------------*/ 37ee50ffe9SBarry Smith extern int MatSetValues(Mat,int,int*,int,int*,Scalar*,InsertMode); 386d4a8577SBarry Smith typedef enum {MAT_FLUSH_ASSEMBLY=1,MAT_FINAL_ASSEMBLY=0} MatAssemblyType; 39ee50ffe9SBarry Smith extern int MatAssemblyBegin(Mat,MatAssemblyType); 40ee50ffe9SBarry Smith extern int MatAssemblyEnd(Mat,MatAssemblyType); 41ee50ffe9SBarry Smith 426d4a8577SBarry Smith typedef enum {MAT_ROW_ORIENTED=1,MAT_COLUMN_ORIENTED=2,MAT_ROWS_SORTED=4, 436d4a8577SBarry Smith MAT_COLUMNS_SORTED=8,MAT_NO_NEW_NONZERO_LOCATIONS=16, 446d4a8577SBarry Smith MAT_YES_NEW_NONZERO_LOCATIONS=32,MAT_SYMMETRIC=64, 456d4a8577SBarry Smith MAT_STRUCTURALLY_SYMMETRIC,MAT_NO_NEW_DIAGONALS, 466d4a8577SBarry Smith MAT_YES_NEW_DIAGONALS,MAT_INODE_LIMIT_1,MAT_INODE_LIMIT_2, 476d4a8577SBarry Smith MAT_INODE_LIMIT_3,MAT_INODE_LIMIT_4,MAT_INODE_LIMIT_5} MatOption; 48ee50ffe9SBarry Smith extern int MatSetOption(Mat,MatOption); 494b0e389bSBarry Smith extern int MatGetType(Mat,MatType*,char**); 5077c4ece6SBarry Smith extern int MatGetTypeFromOptions(MPI_Comm,char*,MatType*,int*); 51ee50ffe9SBarry Smith extern int MatGetValues(Mat,int,int*,int,int*,Scalar*); 528ed539a5SBarry Smith extern int MatGetRow(Mat,int,int *,int **,Scalar**); 538ed539a5SBarry Smith extern int MatRestoreRow(Mat,int,int *,int **,Scalar**); 5477c4ece6SBarry Smith extern int MatGetColumn(Mat,int,int *,int **,Scalar**); 5577c4ece6SBarry Smith extern int MatRestoreColumn(Mat,int,int *,int **,Scalar**); 5664e87e97SBarry Smith extern int MatGetArray(Mat,Scalar **); 5709883261SBarry Smith extern int MatRestoreArray(Mat,Scalar **); 58870582ebSSatish Balay extern int MatGetBlockSize(Mat,int *); 597b80b807SBarry Smith 608ed539a5SBarry Smith extern int MatMult(Mat,Vec,Vec); 618ed539a5SBarry Smith extern int MatMultAdd(Mat,Vec,Vec,Vec); 628ed539a5SBarry Smith extern int MatMultTrans(Mat,Vec,Vec); 638ed539a5SBarry Smith extern int MatMultTransAdd(Mat,Vec,Vec,Vec); 642eac72dbSBarry Smith 657b80b807SBarry Smith extern int MatConvert(Mat,MatType,Mat*); 667b80b807SBarry Smith extern int MatCopy(Mat,Mat); 677b80b807SBarry Smith extern int MatView(Mat,Viewer); 687b80b807SBarry Smith extern int MatLoad(Viewer,MatType,Mat*); 697b80b807SBarry Smith 707b80b807SBarry Smith typedef enum {MAT_LOCAL=1,MAT_GLOBAL_MAX=2,MAT_GLOBAL_SUM=3} MatInfoType; 717b80b807SBarry Smith extern int MatGetInfo(Mat,MatInfoType,int*,int*,int*); 7277c4ece6SBarry Smith extern int MatValid(Mat,PetscTruth*); 737b80b807SBarry Smith extern int MatGetDiagonal(Mat,Vec); 74cd8486b4SBarry Smith extern int MatTranspose(Mat,Mat*); 75f4c33d5aSBarry Smith extern int MatDiagonalScale(Mat,Vec,Vec); 768b3e568eSBarry Smith extern int MatDiagonalShift(Mat,Vec); 7777c4ece6SBarry Smith extern int MatEqual(Mat,Mat, PetscTruth*); 787b80b807SBarry Smith 797b80b807SBarry Smith extern int MatNorm(Mat,NormType,double *); 807b80b807SBarry Smith extern int MatZeroEntries(Mat); 817b80b807SBarry Smith extern int MatZeroRows(Mat,IS,Scalar*); 827b80b807SBarry Smith extern int MatZeroColumns(Mat,IS,Scalar*); 837b80b807SBarry Smith 847b80b807SBarry Smith extern int MatGetSize(Mat,int*,int*); 857b80b807SBarry Smith extern int MatGetLocalSize(Mat,int*,int*); 867b80b807SBarry Smith extern int MatGetOwnershipRange(Mat,int*,int*); 877b80b807SBarry Smith 887b80b807SBarry Smith typedef enum {MAT_INITIAL_MATRIX, MAT_REUSE_MATRIX} MatGetSubMatrixCall; 897b80b807SBarry Smith extern int MatGetSubMatrices(Mat,int,IS *,IS *,MatGetSubMatrixCall,Mat **); 90*905e6a2fSBarry Smith extern int MatDestroyMatrices(int, Mat **); 917b80b807SBarry Smith extern int MatIncreaseOverlap(Mat,int,IS *,int); 927b80b807SBarry Smith 937b80b807SBarry Smith extern int MatAXPY(Scalar *,Mat,Mat); 947b80b807SBarry Smith extern int MatCompress(Mat); 957b80b807SBarry Smith 96052efed2SBarry Smith extern int MatScale(Scalar *,Mat); 97052efed2SBarry Smith extern int MatShift(Scalar *,Mat); 98052efed2SBarry Smith 997b80b807SBarry Smith /* Routines unique to particular data structures */ 1007b80b807SBarry Smith extern int MatBDiagGetData(Mat,int*,int*,int**,int**,Scalar***); 1017b80b807SBarry Smith 1027b80b807SBarry Smith /* 1037b80b807SBarry Smith These routines are not usually accessed directly, rather solving is 1047b80b807SBarry Smith done through the SLES, KSP and PC interfaces. 1057b80b807SBarry Smith */ 1067b80b807SBarry Smith 10783f0b094SBarry Smith typedef enum {ORDER_NATURAL=0,ORDER_ND=1,ORDER_1WD=2, 108a2ce50c7SBarry Smith ORDER_RCM=3,ORDER_QMD=4,ORDER_ROWLENGTH=5,ORDER_FLOW, 109a2ce50c7SBarry Smith ORDER_APPLICATION_1,ORDER_APPLICATION_2} MatReordering; 110a2ce50c7SBarry Smith extern int MatGetReordering(Mat,MatReordering,IS*,IS*); 111a2ce50c7SBarry Smith extern int MatGetReorderingTypeFromOptions(char *,MatReordering*); 112a2ce50c7SBarry Smith extern int MatReorderingRegister(MatReordering *,char*,PetscTruth,int, 11309883261SBarry Smith int (*)(int*,int*,int*,int*,int*)); 114464493b3SBarry Smith extern int MatReorderingRegisterAll(); 115464493b3SBarry Smith extern int MatReorderingRegisterDestroy(); 116a2ce50c7SBarry Smith extern int MatReorderingGetName(MatReordering,char **); 11709883261SBarry Smith extern PetscTruth MatReorderingRequiresSymmetric[]; 11809883261SBarry Smith extern int MatReorderingIndexShift[]; 1192eac72dbSBarry Smith 120a2ce50c7SBarry Smith extern int MatReorderForNonzeroDiagonal(Mat,double,IS,IS); 121a2ce50c7SBarry Smith 122a2ce50c7SBarry Smith extern int MatCholeskyFactor(Mat,IS,double); 123a2ce50c7SBarry Smith extern int MatCholeskyFactorSymbolic(Mat,IS,double,Mat*); 124a2ce50c7SBarry Smith extern int MatCholeskyFactorNumeric(Mat,Mat*); 125a2ce50c7SBarry Smith 12649d8b64dSBarry Smith extern int MatLUFactor(Mat,IS,IS,double); 127d7b056bfSBarry Smith extern int MatILUFactor(Mat,IS,IS,double,int); 12864051cb3SBarry Smith extern int MatLUFactorSymbolic(Mat,IS,IS,double,Mat*); 12964051cb3SBarry Smith extern int MatILUFactorSymbolic(Mat,IS,IS,double,int,Mat*); 13064051cb3SBarry Smith extern int MatIncompleteCholeskyFactorSymbolic(Mat,IS,double,int,Mat*); 13120563c6bSBarry Smith extern int MatLUFactorNumeric(Mat,Mat*); 132a2ce50c7SBarry Smith extern int MatILUDTFactor(Mat,double,int,IS,IS,Mat *); 133a2ce50c7SBarry Smith 1348ed539a5SBarry Smith 1358ed539a5SBarry Smith extern int MatSolve(Mat,Vec,Vec); 13622169318SLois Curfman McInnes extern int MatForwardSolve(Mat,Vec,Vec); 13722169318SLois Curfman McInnes extern int MatBackwardSolve(Mat,Vec,Vec); 1388ed539a5SBarry Smith extern int MatSolveAdd(Mat,Vec,Vec,Vec); 13928988994SBarry Smith extern int MatSolveTrans(Mat,Vec,Vec); 14028988994SBarry Smith extern int MatSolveTransAdd(Mat,Vec,Vec,Vec); 1418ed539a5SBarry Smith 142ee50ffe9SBarry Smith typedef enum {SOR_FORWARD_SWEEP=1,SOR_BACKWARD_SWEEP=2,SOR_SYMMETRIC_SWEEP=3, 143ee50ffe9SBarry Smith SOR_LOCAL_FORWARD_SWEEP=4,SOR_LOCAL_BACKWARD_SWEEP=8, 144ee50ffe9SBarry Smith SOR_LOCAL_SYMMETRIC_SWEEP=12,SOR_ZERO_INITIAL_GUESS=16, 145ca9b4cbeSLois Curfman McInnes SOR_EISENSTAT=32,SOR_APPLY_UPPER=64,SOR_APPLY_LOWER=128 146ca9b4cbeSLois Curfman McInnes } MatSORType; 147ca9b4cbeSLois Curfman McInnes extern int MatRelax(Mat,Vec,double,MatSORType,double,int,Vec); 1488ed539a5SBarry Smith 149fae171e0SBarry Smith typedef enum { MAT_SET_VALUES=0, 150fae171e0SBarry Smith MAT_GET_ROW=1, 151fae171e0SBarry Smith MAT_RESTORE_ROW=2, 152fae171e0SBarry Smith MAT_MULT=3, 153fae171e0SBarry Smith MAT_MULT_ADD=4, 154fae171e0SBarry Smith MAT_MULT_TRANS=5, 155fae171e0SBarry Smith MAT_MULT_TRANS_ADD=6, 156fae171e0SBarry Smith MAT_SOLVE=7, 157fae171e0SBarry Smith MAT_SOLVE_ADD=8, 158fae171e0SBarry Smith MAT_SOLVE_TRANS=9, 159fae171e0SBarry Smith MAT_SOLVE_TRANS_ADD=10, 160fae171e0SBarry Smith MAT_LUFACTOR=11, 161fae171e0SBarry Smith MAT_CHOLESKYFACTOR=12, 162fae171e0SBarry Smith MAT_RELAX=13, 163fae171e0SBarry Smith MAT_TRANSPOSE=14, 164fae171e0SBarry Smith MAT_GETINFO=15, 165fae171e0SBarry Smith MAT_EQUAL=16, 166fae171e0SBarry Smith MAT_GET_DIAGONAL=17, 167fae171e0SBarry Smith MAT_DIAGONAL_SCALE=18, 168fae171e0SBarry Smith MAT_NORM=19, 169fae171e0SBarry Smith MAT_ASSEMBLY_BEGIN=20, 170fae171e0SBarry Smith MAT_ASSEMBLY_END=21, 171fae171e0SBarry Smith MAT_COMPRESS=22, 172fae171e0SBarry Smith MAT_SET_OPTION=23, 173fae171e0SBarry Smith MAT_ZERO_ENTRIES=24, 174fae171e0SBarry Smith MAT_ZERO_ROWS=25, 175fae171e0SBarry Smith MAT_GET_REORDERING=26, 176fae171e0SBarry Smith MAT_LUFACTOR_SYMBOLIC=27, 177fae171e0SBarry Smith MAT_LUFACTOR_NUMERIC=28, 178fae171e0SBarry Smith MAT_CHOLESKY_FACTOR_SYMBOLIC=29, 179fae171e0SBarry Smith MAT_CHOLESKY_FACTOR_NUMERIC=30, 180fae171e0SBarry Smith MAT_GET_SIZE=31, 181fae171e0SBarry Smith MAT_GET_LOCAL_SIZE=32, 182fae171e0SBarry Smith MAT_GET_OWNERSHIP_RANGE=33, 183fae171e0SBarry Smith MAT_ILUFACTOR_SYMBOLIC=34, 184fae171e0SBarry Smith MAT_INCOMPLETECHOLESKYFACTOR_SYMBOLIC=35, 185fae171e0SBarry Smith MAT_GET_ARRAY=36, 186fae171e0SBarry Smith MAT_RESTORE_ARRAY=37, 187fae171e0SBarry Smith MAT_CONVERT=38, 188fae171e0SBarry Smith MAT_GET_SUBMATRIX=39, 189fae171e0SBarry Smith MAT_GET_SUBMATRIX_INPLACE=40, 190fae171e0SBarry Smith MAT_CONVERT_SAME_TYPE=41, 191fae171e0SBarry Smith MAT_FORWARD_SOLVE=42, 192fae171e0SBarry Smith MAT_BACKWARD_SOLVE=43, 193fae171e0SBarry Smith MAT_ILUFACTOR=44, 194d817eb7dSBarry Smith MAT_INCOMPLETECHOLESKYFACTOR=45, 195fae171e0SBarry Smith MAT_AXPY=46, 196fae171e0SBarry Smith MAT_GET_SUBMATRICES=47, 197fae171e0SBarry Smith MAT_INCREASE_OVERLAP=48, 198fae171e0SBarry Smith MAT_GET_VALUES=49, 199fae171e0SBarry Smith MAT_COPY=50, 200fae171e0SBarry Smith MAT_PRINT_HELP=51, 201fae171e0SBarry Smith MAT_SCALE=52, 202fae171e0SBarry Smith MAT_SHIFT=53, 203fae171e0SBarry Smith MAT_DIAGONAL_SHIFT=54, 204fae171e0SBarry Smith MAT_DESTROY=250, 205fae171e0SBarry Smith MAT_VIEW=251 206fae171e0SBarry Smith } MatOperation; 207112a2221SBarry Smith extern int MatHasOperation(Mat,MatOperation,PetscTruth*); 208fae171e0SBarry Smith extern int MatShellSetOperation(Mat,MatOperation,void *); 209112a2221SBarry Smith 21090ace30eSBarry Smith /* 21190ace30eSBarry Smith Codes for matrices stored on disk. By default they are 21290ace30eSBarry Smith stored in a universal format. By changing the format with 21390ace30eSBarry Smith ViewerSetFormat(viewer,BINARY_FORMAT_NATIVE); the matrices will 21490ace30eSBarry Smith be stored in a way natural for the matrix, for example dense matrices 21590ace30eSBarry Smith would be stored as dense. Matrices stored this way may only be 21690ace30eSBarry Smith read into matrices of the same time. 21790ace30eSBarry Smith */ 21890ace30eSBarry Smith #define MATRIX_BINARY_FORMAT_DENSE -1 21990ace30eSBarry Smith 2202eac72dbSBarry Smith #endif 2212eac72dbSBarry Smith 2222eac72dbSBarry Smith 2239d00d63dSBarry Smith 224