/*      LAPACK++ (V. 1.1)                                       */
/*      (C) 1992-1996 All Rights Reserved.                          */

#ifndef _BLAS2_H_
#define _BLAS2_H_

#include "arch.h"
#include "f2c.h"

#ifdef __cplusplus
extern "C" {
#endif /* __cplusplus */

     void F77NAME(dgemv)(char* trans, integer* M, integer* N, double* alpha, 
                    const double* A, integer* lda, const double* dx, 
                    integer* incx, double* beta, double* dy, integer* incy);

     void F77NAME(dgbmv)(char* trans, integer* M, integer* N, integer* kl, 
                    integer* ku, double* alpha, const double* A, integer* lda, 
                    const double* dx, integer* incx, double* beta, 
                    double* dy, integer* incy);

     void F77NAME(dsymv)(char* uplo, integer* N, double* alpha, const double* A, 
                    integer* lda, const double* dx, integer* incx, double* beta,
                    double* dy, integer* incy);

     void F77NAME(dsbmv)(char* uplo, integer* N, integer* k, double* alpha, 
                    const double* A, integer* lda, const double* dx, 
                    integer* incx, double* beta, double* dy, integer* incy);

     void F77NAME(dspmv)(char* uplo, integer* N, double* alpha, double* AP, 
                    const double* dx, integer* incx, double* beta, double* dy, 
                    integer* incy);

     void F77NAME(dtrmv)(char* uplo, char* trans, char* diag, const integer* N, 
                    const double* A, integer* lda, const double* dx, 
                    integer* incx);

     // currently not implemented.
     //F77NAME(dtbmv) ( UPLO, TRANS, DIAG, N, K, A, LDA, dx, INCX )

     void F77NAME(dtrsv)(char* uplo, char* trans, char* diag, const integer* N, 
                    double* A, integer* lda, double* dx, integer* incx);

     // currently not implemented.
     //F77NAME(dtbsv) ( UPLO, TRANS, DIAG, N, K, A, LDA, X, INCX )

     // currently not implemented.
     //F77NAME(dtpsv) ( UPLO, TRANS, DIAG, N, AP, X, INCX )

     void F77NAME(dger)(integer* M, integer* N, const double* alpha, 
			const double* dx, integer* incx, 
			const double* dy, integer* incy, 
			double* A, integer* lda);

     void F77NAME(dsyr)(char* uplo, integer* N, const double* alpha, 
			const double* dx, integer* incx, 
			double* A, integer* lda);

     void F77NAME(dspr)(char* uplo, integer* N, const double* alpha, 
			const double* dx, integer* incx, 
			double* AP);

     void F77NAME(dsyr2)(char* uplo, integer* N, const double* alpha, 
			 const double* dx, integer* incx, 
			 const double* dy, integer* incy, double* A, 
			 integer* lda);

     void F77NAME(dspr2)(char* uplo, integer* N, const double* alpha, 
			 const double* dx, integer* incx, 
			 const double* dy, integer* incy, 
			 double* AP);


#ifdef LA_COMPLEX_SUPPORT

     void F77NAME(zgemv)(const char* trans, 
			 const integer* M, const integer* N, 
			 const doublecomplex* alpha, 
			 const doublecomplex* A, const integer* lda, 
			 const doublecomplex* dx, const integer* incx, 
			 const doublecomplex* beta, 
			 doublecomplex* dy, const integer* incy);

     void F77NAME(zgerc)(const integer* M, const integer* N, 
			 const doublecomplex* alpha, 
			 const doublecomplex* dx, const integer* incx, 
			 const doublecomplex* dy, const integer* incy, 
			 doublecomplex* A, const integer* lda);
#endif /* LA_COMPLEX_SUPPORT */

#ifdef __cplusplus
}
#endif /* __cplusplus */

#endif /* _BLAS2_H_ */