173f4d377SMatthew Knepley /* $Id: dense.h,v 1.10 2001/08/07 03:02:45 balay Exp $ */ 2f6f390a9SLois Curfman McInnes 3f6f390a9SLois Curfman McInnes #if !defined(__DENSE_H) 4f6f390a9SLois Curfman McInnes #define __DENSE_H 5*da33ede1SBarry Smith #include "src/mat/matimpl.h" 6*da33ede1SBarry Smith 7f6f390a9SLois Curfman McInnes 8f6f390a9SLois Curfman McInnes /* 9f6f390a9SLois Curfman McInnes MATSEQDENSE format - conventional dense Fortran storage (by columns) 10f6f390a9SLois Curfman McInnes */ 11f6f390a9SLois Curfman McInnes 12f6f390a9SLois Curfman McInnes typedef struct { 13ea709b57SSatish Balay PetscScalar *v; /* matrix elements */ 14273d9f13SBarry Smith PetscTruth roworiented; /* if true, row oriented input (default) */ 15f6f390a9SLois Curfman McInnes int pad; /* padding */ 16f6f390a9SLois Curfman McInnes int *pivots; /* pivots in LU factorization */ 171b807ce4Svictorle int lda; /* Lapack leading dimension of user data */ 18273d9f13SBarry Smith PetscTruth user_alloc; /* true if the user provided the dense data */ 19f6f390a9SLois Curfman McInnes } Mat_SeqDense; 20f6f390a9SLois Curfman McInnes 21ca44d042SBarry Smith EXTERN int MatMult_SeqDense(Mat A,Vec,Vec); 22ca44d042SBarry Smith EXTERN int MatMultAdd_SeqDense(Mat A,Vec,Vec,Vec); 23ca44d042SBarry Smith EXTERN int MatMultTranspose_SeqDense(Mat A,Vec,Vec); 24ca44d042SBarry Smith EXTERN int MatMultTransposeAdd_SeqDense(Mat A,Vec,Vec,Vec); 2518476b09SLois Curfman McInnes 26f6f390a9SLois Curfman McInnes #endif 27