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