Révision 9 src/blas/HPL_dcopy.c

HPL_dcopy.c (revision 9)
160 160 
#endif
161 161 
   F77dcopy( &F77N, X, &F77incx, Y, &F77incy );
162 162 
#endif
163 

  		





  
  164
  
    
#ifdef HPL_CALL_CUBLAS


  		





  
  165
  
    

  		





  
  166
  
    
#define CUBLASN                 N


  		





  
  167
  
    
#define CUBLASincx              INCX


  		





  
  168
  
    
#define CUBLASincy              INCY


  		





  
  169
  
    

  		





  
  170
  
    
   CUBLAS_DCOPY( &CUBLASN, X, &CUBLASincx, Y, &CUBLASincy );


  		





  
  171
  
    
#endif


  		





  163
  172
  
    
/*


  		





  164
  173
  
    
 * End of HPL_dcopy


  		





  165
  174
  
    
 */


  		












Formats disponibles :
  Unified diff