Révision 12 src/blas/HPL_dswap.c

HPL_dswap.c (revision 12)
109 109 
#ifdef HPL_CALL_CBLAS
110 110 
   cblas_dswap( N, X, INCX, Y, INCY );
111 111 
#endif
112 
#ifdef HPL_CALL_GSLCBLAS
113 
   cblas_dswap( N, X, INCX, Y, INCY );
114 
#endif
112 115 
#ifdef HPL_CALL_VSIPL
113 116 
   register double           x0, x1, x2, x3, y0, y1, y2, y3;
114 117 
   double                    * StX;
......
139 142 
      { x0  = (*X); y0  = (*Y); *Y = x0; *X = y0; X += INCX; Y += INCY; }
140 143 
   }
141 144 
#endif
145 

  		





  142
  146
  
    
#ifdef HPL_CALL_FBLAS


  		





  143
  147
  
    
#ifdef HPL_USE_F77_INTEGER_DEF


  		





  144
  148
  
    
   const F77_INTEGER         F77N = N, F77incx = INCX, F77incy = INCY;


  		












Formats disponibles :
  Unified diff