Révision 9 src/blas/HPL_dscal.c
| HPL_dscal.c (revision 9) | ||
|---|---|---|
| 160 | 160 |
} |
| 161 | 161 |
} |
| 162 | 162 |
#endif |
| 163 |
|
|
| 163 | 164 |
#ifdef HPL_CALL_FBLAS |
| 164 | 165 |
double alpha = ALPHA; |
| 165 | 166 |
#ifdef HPL_USE_F77_INTEGER_DEF |
| ... | ... | |
| 171 | 172 |
|
| 172 | 173 |
F77dscal( &F77N, &alpha, X, &F77incx ); |
| 173 | 174 |
#endif |
| 175 |
|
|
| 176 |
#ifdef HPL_CALL_CUBLAS |
|
| 177 |
double alpha = ALPHA; |
|
| 178 |
#define CUBLASN N |
|
| 179 |
#define CUBLASincx INCX |
|
| 180 |
|
|
| 181 |
CUBLAS_DSCAL( &CUBLASN, &alpha, X, &CUBLASincx ); |
|
| 182 |
#endif |
|
| 174 | 183 |
/* |
| 175 | 184 |
* End of HPL_dscal |
| 176 | 185 |
*/ |
Formats disponibles : Unified diff