OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
cblas_sdsdot.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_sdsdot (const CBLAS_INT N, const float alpha, 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_sdsdot()

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

Definition at line 12 of file cblas_sdsdot.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_sdsdot_sub( &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, &dot);
24 return dot;
25}
#define F77_incX
#define F77_incY
#define F77_N
#define F77_INT
Definition cblas_f77.h:32
#define F77_sdsdot_sub(...)
Definition cblas_f77.h:213
#define alpha
Definition eval.h:35
#define N