1 2 #if !defined(__DENSE_H) 3 #define __DENSE_H 4 #include "src/mat/matimpl.h" 5 6 7 /* 8 MATSEQDENSE format - conventional dense Fortran storage (by columns) 9 */ 10 11 typedef struct { 12 PetscScalar *v; /* matrix elements */ 13 PetscTruth roworiented; /* if true, row oriented input (default) */ 14 int pad; /* padding */ 15 PetscBLASInt *pivots; /* pivots in LU factorization */ 16 PetscBLASInt lda; /* Lapack leading dimension of user data */ 17 PetscTruth user_alloc; /* true if the user provided the dense data */ 18 } Mat_SeqDense; 19 20 EXTERN PetscErrorCode MatMult_SeqDense(Mat A,Vec,Vec); 21 EXTERN PetscErrorCode MatMultAdd_SeqDense(Mat A,Vec,Vec,Vec); 22 EXTERN PetscErrorCode MatMultTranspose_SeqDense(Mat A,Vec,Vec); 23 EXTERN PetscErrorCode MatMultTransposeAdd_SeqDense(Mat A,Vec,Vec,Vec); 24 25 #endif 26