Actual source code: blas.h
1: /*$Id: blas.h,v 1.3 2001/03/29 18:34:02 balay Exp $*/
2: #if defined(BLAS)
3: #if defined(r8)
4: double ddot (int n, double *x, int incx, double *y, int incy);
5: void daxpy(long int n, double da, double *dx, long int incx,
6: double *dy, long int incy);
7: void dcopy(int n, double *x, int incx, double *y, int incy);
8: #define dot ddot
9: #define axpy daxpy
10: #define copy dcopy
11: #else
12: float sdot (int n, float *x, int incx, float *y, int incy);
13: void saxpy(long int n, float da, float *dx, long int incx,
14: float *dy, long int incy);
15: float scopy(int n, float *x, int incx, float *y, int incy);
16: #define dot sdot
17: #define axpy saxpy
18: #define copy scopy
19: #endif
20: #elif defined(CBLAS)
21: #if defined(r8)
22: double cblas_ddot (int n, double *x, int incx, double *y, int incy);
23: void cblas_daxpy(long int n, double da, double *dx, long int incx,
24: double *dy, long int incy);
25: void cblas_dcopy(int n, double *x, int incx, double *y, int incy);
26: #define dot cblas_ddot
27: #define axpy cblas_daxpy
28: #define copy cblas_dcopy
29: #else
30: float cblas_sdot (int n, float *x, int incx, float *y, int incy);
31: void cblas_saxpy(long int n, float da, float *dx, long int incx,
32: float *dy, long int incy);
33: float cblas_scopy(int n, float *x, int incx, float *y, int incy);
34: #define dot cblas_sdot
35: #define axpy cblas_saxpy
36: #define copy cblas_scopy
37: #endif
38: #endif