Révision 9 src/blas/HPL_dgemv.c
| HPL_dgemv.c (revision 9) | ||
|---|---|---|
| 238 | 238 |
N, M, ALPHA, A, LDA, X, INCX, BETA, Y, INCY ); |
| 239 | 239 |
} |
| 240 | 240 |
#endif |
| 241 |
|
|
| 242 |
|
|
| 241 | 243 |
#ifdef HPL_CALL_FBLAS |
| 242 | 244 |
double alpha = ALPHA, beta = BETA; |
| 243 | 245 |
#ifdef StringSunStyle |
| ... | ... | |
| 318 | 320 |
} |
| 319 | 321 |
|
| 320 | 322 |
#endif |
| 323 |
|
|
| 324 |
#ifdef HPL_CALL_CUBLAS |
|
| 325 |
double alpha = ALPHA, beta = BETA; |
|
| 326 |
|
|
| 327 |
int IONE = 1; |
|
| 328 |
|
|
| 329 |
#define CUBLASM M |
|
| 330 |
#define CUBLASN N |
|
| 331 |
#define CUBLASlda LDA |
|
| 332 |
#define CUBLASincx INCX |
|
| 333 |
#define CUBLASincy INCY |
|
| 334 |
|
|
| 335 |
char ctran; |
|
| 336 |
|
|
| 337 |
if( ORDER == HplColumnMajor ) |
|
| 338 |
{
|
|
| 339 |
ctran = ( TRANS == HplNoTrans ? 'N' : 'T' ); |
|
| 340 |
|
|
| 341 |
CUBLAS_DGEMV( &ctran, &CUBLASM, &CUBLASN, |
|
| 342 |
&alpha, A, &CUBLASlda, X, &CUBLASincx, |
|
| 343 |
&beta, Y, &CUBLASincy, IONE ); |
|
| 344 |
} |
|
| 345 |
else |
|
| 346 |
{
|
|
| 347 |
ctran = ( TRANS == HplNoTrans ? 'T' : 'N' ); |
|
| 348 |
|
|
| 349 |
CUBLAS_DGEMV( &ctran, &CUBLASN, &CUBLASM, |
|
| 350 |
&alpha, A, &CUBLASlda, X, &CUBLASincx, |
|
| 351 |
&beta, Y, &CUBLASincy, IONE ); |
|
| 352 |
} |
|
| 353 |
|
|
| 354 |
#endif |
|
| 321 | 355 |
/* |
| 322 | 356 |
* End of HPL_dgemv |
| 323 | 357 |
*/ |
Formats disponibles : Unified diff