			#ifndef SIMPLEBLAS_H_
			#define SIMPLEBLAS_H_

			#include "mmio.h"

			#define BLAS_INT int
			#define CBLAS_LAYOUT int
			#define CBLAS_TRANSPOSE int

			#ifdef INTEL_MKL
			#define BLAS_INT INTEL_MKL
			#endif

			struct size_m {
			int m;
			int n;
			};

			void cblas_dcopy (const BLAS_INT n, const double x, const BLAS_INT incx, double y, const BLAS_INT incy);
			double cblas_ddot (const BLAS_INT n, const double x, const BLAS_INT incx, const double y, const BLAS_INT incy);
			void cblas_daxpy (const BLAS_INT n, const double a, const double x, const BLAS_INT incx, double y, const BLAS_INT incy);
			void cblas_dgemv (const CBLAS_LAYOUT Layout, const CBLAS_TRANSPOSE trans, const BLAS_INT m, const BLAS_INT n, const double alpha, const double a, const BLAS_INT lda, const double x, const BLAS_INT incx, const double beta, double *y, const BLAS_INT incy);
			double cblas_dnrm2(const int n, const double *x, const int incx);

			void cblas_dadd(const int n, double x, double alpha, double y, double beta, double *z);
			void cblas_dtra(const int m, const int n, const double a, double b);

			void print_mat( char title[], double *A, int m, int n );
			double* read_mat(const char * restrict fn);
			struct size_m get_size(const char * restrict fn);

			#endif /SIMPLEBLAS_H_/

CG-PHPC/blas.h
f996619c2d97master

blas.h
View Options