blas.h Source File

00001 #ifndef _BLAS_H_
00002 #define _BLAS_H_
00003 
00004 /* Declerations of Legacy BLAS routines */
00005 
00006 #ifdef __cplusplus
00007 extern "C" {
00008 #endif
00009 
00010 static double d_one = 1.0;
00011 static double d_mone = -1.0;
00012 static double d_zero = 0.0;
00013 static int i_one = 1;
00014 static int i_zero = 0;
00015 
00016 /* y <- a*x + y */
00017 void daxpy_(int *n, double *a, double *x, int *incx, double *y, int *incy);
00018 
00019 /* x <- a*x */
00020 void dscal_(int *n, double *a, double *x, int *incx);
00021 
00022 /* C <- a*op(A)*op(B) + b*C  where op(X) = X or op(X) = X' */
00023 void dgemm_(char *Ta, char *Tb, int *m, int *n, int *k, double *a, const double *A, 
00024             int *lda, const double *B, int *ldb, double *b, double *C, int *ldc);
00025 
00026 #ifdef __cplusplus
00027 }
00028 #endif
00029 
00030 
00031 #endif