OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
cblas_cdotu_sub.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_cdotu_sub (const CBLAS_INT N, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *dotu)

Macro Definition Documentation

◆ F77_incX

#define F77_incX   incX

◆ F77_incY

#define F77_incY   incY

◆ F77_N

#define F77_N   N

Function Documentation

◆ cblas_cdotu_sub()

void cblas_cdotu_sub ( const CBLAS_INT N,
const void * X,
const CBLAS_INT incX,
const void * Y,
const CBLAS_INT incY,
void * dotu )

Definition at line 12 of file cblas_cdotu_sub.c.

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