OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
cblas_sdot.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

float cblas_sdot (const CBLAS_INT N, const float *X, const CBLAS_INT incX, const 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_sdot()

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

Definition at line 12 of file cblas_sdot.c.

14{
15 float dot;
16#ifdef F77_INT
17 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
18#else
19 #define F77_N N
20 #define F77_incX incX
21 #define F77_incY incY
22#endif
23 F77_sdot_sub( &F77_N, X, &F77_incX, Y, &F77_incY, &dot);
24 return dot;
25}
#define F77_incX
#define F77_incY
#define F77_N
#define F77_sdot_sub(...)
Definition cblas_f77.h:212
#define F77_INT
Definition cblas_f77.h:32
#define N