Révision 10 src/blas/HPL_dswap.c

HPL_dswap.c (revision 10)
157 157 
   CUBLAS_DSWAP( &CUBLASN, X, &CUBLASincx, Y, &CUBLASincy );
158 158 
#endif
159 159 

  		





  
  160
  
    
#ifdef HPL_CALL_ACML


  		





  
  161
  
    
#define ACMLN                 N


  		





  
  162
  
    
#define ACMLincx              INCX


  		





  
  163
  
    
#define ACMLincy              INCY


  		





  
  164
  
    
   dswap_( &ACMLN, X, &ACMLincx, Y, &ACMLincy );


  		





  
  165
  
    
#endif


  		





  
  166
  
    

  		





  160
  167
  
    
/*


  		





  161
  168
  
    
 * End of HPL_dswap


  		





  162
  169
  
    
 */


  		












Formats disponibles :
  Unified diff