Révision 9 src/blas/HPL_daxpy.c
| HPL_daxpy.c (revision 9) | ||
|---|---|---|
| 110 | 110 |
} |
| 111 | 111 |
} |
| 112 | 112 |
#endif |
| 113 |
|
|
| 113 | 114 |
#ifdef HPL_CALL_FBLAS |
| 114 | 115 |
double alpha = ALPHA; |
| 115 | 116 |
#ifdef HPL_USE_F77_INTEGER_DEF |
| ... | ... | |
| 121 | 122 |
#endif |
| 122 | 123 |
F77daxpy( &F77N, &alpha, X, &F77incx, Y, &F77incy ); |
| 123 | 124 |
#endif |
| 125 |
|
|
| 126 |
#ifdef HPL_CALL_CUBLAS |
|
| 127 |
double alpha = ALPHA; |
|
| 128 |
#define CUBLASN N |
|
| 129 |
#define CUBLASincx INCX |
|
| 130 |
#define CUBLASincy INCY |
|
| 131 |
CUBLAS_DAXPY( &CUBLASN, &alpha, X, &CUBLASincx, Y, &CUBLASincy ); |
|
| 132 |
#endif |
|
| 124 | 133 |
/* |
| 125 | 134 |
* End of HPL_daxpy |
| 126 | 135 |
*/ |
Formats disponibles : Unified diff