Révision 9 src/blas/HPL_dger.c
| HPL_dger.c (revision 9) | ||
|---|---|---|
| 169 | 169 |
} |
| 170 | 170 |
} |
| 171 | 171 |
#endif |
| 172 |
|
|
| 172 | 173 |
#ifdef HPL_CALL_FBLAS |
| 173 | 174 |
double alpha = ALPHA; |
| 174 | 175 |
#ifdef HPL_USE_F77_INTEGER_DEF |
| ... | ... | |
| 187 | 188 |
else |
| 188 | 189 |
{ F77dger( &F77N, &F77M, &alpha, Y, &F77incy, X, &F77incx, A, &F77lda ); }
|
| 189 | 190 |
#endif |
| 191 |
|
|
| 192 |
#ifdef HPL_CALL_CUBLAS |
|
| 193 |
double alpha = ALPHA; |
|
| 194 |
|
|
| 195 |
#define CUBLASM M |
|
| 196 |
#define CUBLASN N |
|
| 197 |
#define CUBLASlda LDA |
|
| 198 |
#define CUBLASincx INCX |
|
| 199 |
#define CUBLASincy INCY |
|
| 200 |
|
|
| 201 |
if( ORDER == HplColumnMajor ) |
|
| 202 |
{
|
|
| 203 |
CUBLAS_DGER( &CUBLASM, &CUBLASN, &alpha, |
|
| 204 |
X, &CUBLASincx, Y, &CUBLASincy, A, &CUBLASlda ); |
|
| 205 |
} |
|
| 206 |
else |
|
| 207 |
{
|
|
| 208 |
CUBLAS_DGER( &CUBLASN, &CUBLASM, &alpha, |
|
| 209 |
Y, &CUBLASincy, X, &CUBLASincx, A, &CUBLASlda ); } |
|
| 210 |
#endif |
|
| 190 | 211 |
/* |
| 191 | 212 |
* End of HPL_dger |
| 192 | 213 |
*/ |
Formats disponibles : Unified diff