OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
cblas_scopy.c File Reference
#include "cblas.h"
#include "cblas_f77.h"

Go to the source code of this file.

Macros

#define F77_N   N
#define F77_incX   incX
#define F77_incY   incY

Functions

void cblas_scopy (const CBLAS_INT N, const float *X, const CBLAS_INT incX, float *Y, const CBLAS_INT incY)

Macro Definition Documentation

◆ F77_incX

#define F77_incX   incX

◆ F77_incY

#define F77_incY   incY

◆ F77_N

#define F77_N   N

Function Documentation

◆ cblas_scopy()

void cblas_scopy ( const CBLAS_INT N,
const float * X,
const CBLAS_INT incX,
float * Y,
const CBLAS_INT incY )

Definition at line 11 of file cblas_scopy.c.

13{
14#ifdef F77_INT
15 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
16#else
17 #define F77_N N
18 #define F77_incX incX
19 #define F77_incY incY
20#endif
21 F77_scopy( &F77_N, X, &F77_incX, Y, &F77_incY);
22}
#define F77_incX
#define F77_incY
#define F77_N
#define F77_INT
Definition cblas_f77.h:32
#define F77_scopy(...)
Definition cblas_f77.h:210
#define N