Centre Blaise Pascal » HPL sur GPU

#ifdef HPL_CALL_ACML

   int                       IONE = 1;

#define ACMLN              N

#define ACMLlda            LDA

#define ACMLincx           INCX

   char                      cuplo, ctran, cdiag;

   if( ORDER == HplColumnMajor )

   {

      cuplo = ( UPLO  == HplUpper   ? 'U' : 'L' );

      ctran = ( TRANS == HplNoTrans ? 'N' : 'T' );

   }

   else

   {

      cuplo = ( UPLO  == HplUpper   ? 'L' : 'U' );

      ctran = ( TRANS == HplNoTrans ? 'T' : 'N' );

   }

   cdiag = ( DIAG == HplNonUnit ? 'N' : 'U' );

   dtrsv_( &cuplo, &ctran, &cdiag, &ACMLN, 

	   A, &ACMLlda, X, &ACMLincx, IONE, IONE, IONE );

#endif