C++ (Cpp) F77_sswap Exemples

Exemple #1

Fichier : cblas_sswap.c Projet : ChinaQuants/OpenBLAS

void cblas_sswap( const int N, float *X, const int incX, float *Y,
                       const int incY)
{
#ifdef F77_INT
   F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
#else
   #define F77_N N
   #define F77_incX incX
   #define F77_incY incY
#endif
   F77_sswap( &F77_N, X, &F77_incX, Y, &F77_incY);
}

Exemple #2

Fichier : bli_swap.c Projet : pgawron/tlash

void bli_sswap( int n, float* x, int incx, float* y, int incy )
{
#ifdef BLIS_ENABLE_CBLAS_INTERFACES
	cblas_sswap( n,
	             x, incx, 
	             y, incy );
#else
	F77_sswap( &n,
	           x, &incx, 
	           y, &incy );
#endif
}