Révision 9 src/blas/HPL_dswap.c

HPL_dswap.c (revision 9)
149 149 
#endif
150 150 
   F77dswap( &F77N, X, &F77incx, Y, &F77incy );
151 151 
#endif
152 

  		





  
  153
  
    
#ifdef HPL_CALL_CUBLAS


  		





  
  154
  
    
#define CUBLASN                 N


  		





  
  155
  
    
#define CUBLASincx              INCX


  		





  
  156
  
    
#define CUBLASincy              INCY


  		





  
  157
  
    
   CUBLAS_DSWAP( &CUBLASN, X, &CUBLASincx, Y, &CUBLASincy );


  		





  
  158
  
    
#endif


  		





  
  159
  
    

  		





  152
  160
  
    
/*


  		





  153
  161
  
    
 * End of HPL_dswap


  		





  154
  162
  
    
 */


  		












Formats disponibles :
  Unified diff