/* $Id: dense.h,v 1.10 2001/08/07 03:02:45 balay Exp $ */

#if !defined(__DENSE_H)
#define __DENSE_H
#include "src/mat/matimpl.h"


/*  
  MATSEQDENSE format - conventional dense Fortran storage (by columns)
*/

typedef struct {
  PetscScalar  *v;                /* matrix elements */
  PetscTruth   roworiented;       /* if true, row oriented input (default) */
  int          pad;               /* padding */        
  int          *pivots;           /* pivots in LU factorization */
  int          lda;               /* Lapack leading dimension of user data */
  PetscTruth   user_alloc;        /* true if the user provided the dense data */
} Mat_SeqDense;

EXTERN int MatMult_SeqDense(Mat A,Vec,Vec);
EXTERN int MatMultAdd_SeqDense(Mat A,Vec,Vec,Vec);
EXTERN int MatMultTranspose_SeqDense(Mat A,Vec,Vec);
EXTERN int MatMultTransposeAdd_SeqDense(Mat A,Vec,Vec,Vec);

#endif