Révision 9 src/blas/HPL_dtrsv.c
| HPL_dtrsv.c (revision 9) | ||
|---|---|---|
| 452 | 452 |
DIAG, N, A, LDA, X, INCX ); |
| 453 | 453 |
} |
| 454 | 454 |
#endif |
| 455 |
|
|
| 455 | 456 |
#ifdef HPL_CALL_FBLAS |
| 456 | 457 |
#ifdef StringSunStyle |
| 457 | 458 |
#ifdef HPL_USE_F77_INTEGER_DEF |
| ... | ... | |
| 512 | 513 |
#endif |
| 513 | 514 |
|
| 514 | 515 |
#endif |
| 516 |
|
|
| 517 |
#ifdef HPL_CALL_CUBLAS |
|
| 518 |
|
|
| 519 |
int IONE = 1; |
|
| 520 |
|
|
| 521 |
#define CUBLASN N |
|
| 522 |
#define CUBLASlda LDA |
|
| 523 |
#define CUBLASincx INCX |
|
| 524 |
|
|
| 525 |
char cuplo, ctran, cdiag; |
|
| 526 |
|
|
| 527 |
if( ORDER == HplColumnMajor ) |
|
| 528 |
{
|
|
| 529 |
cuplo = ( UPLO == HplUpper ? 'U' : 'L' ); |
|
| 530 |
ctran = ( TRANS == HplNoTrans ? 'N' : 'T' ); |
|
| 531 |
} |
|
| 532 |
else |
|
| 533 |
{
|
|
| 534 |
cuplo = ( UPLO == HplUpper ? 'L' : 'U' ); |
|
| 535 |
ctran = ( TRANS == HplNoTrans ? 'T' : 'N' ); |
|
| 536 |
} |
|
| 537 |
cdiag = ( DIAG == HplNonUnit ? 'N' : 'U' ); |
|
| 538 |
|
|
| 539 |
CUBLAS_DTRSV( &cuplo, &ctran, &cdiag, &CUBLASN, |
|
| 540 |
A, &CUBLASlda, X, &CUBLASincx, IONE, IONE, IONE ); |
|
| 541 |
|
|
| 542 |
#endif |
|
| 515 | 543 |
/* |
| 516 | 544 |
* End of HPL_dtrsv |
| 517 | 545 |
*/ |
Formats disponibles : Unified diff