LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ cblas_sger()

void API_SUFFIX() cblas_sger ( const CBLAS_LAYOUT  layout,
const CBLAS_INT  M,
const CBLAS_INT  N,
const float  alpha,
const float *  X,
const CBLAS_INT  incX,
const float *  Y,
const CBLAS_INT  incY,
float *  A,
const CBLAS_INT  lda 
)

Definition at line 12 of file cblas_sger.c.

15{
16#ifdef F77_INT
17 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
18#else
19 #define F77_M M
20 #define F77_N N
21 #define F77_incX incX
22 #define F77_incY incY
23 #define F77_lda lda
24#endif
25
26 extern int CBLAS_CallFromC;
27 extern int RowMajorStrg;
28 RowMajorStrg = 0;
29
31 if (layout == CblasColMajor)
32 {
33 F77_sger( &F77_M, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
34 &F77_lda);
35 }
36 else if (layout == CblasRowMajor)
37 {
38 RowMajorStrg = 1;
39 F77_sger( &F77_N, &F77_M, &alpha, Y, &F77_incY, X, &F77_incX, A,
40 &F77_lda);
41 }
42 else API_SUFFIX(cblas_xerbla)(1, "cblas_sger", "Illegal layout setting, %d\n", layout);
44 RowMajorStrg = 0;
45 return;
46}
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
@ CblasColMajor
Definition cblas.h:39
@ CblasRowMajor
Definition cblas.h:39
#define API_SUFFIX(a)
Definition cblas.h:57
#define F77_INT
#define F77_sger(...)
Definition cblas_f77.h:296
int CBLAS_CallFromC
int RowMajorStrg
#define F77_incX
#define F77_incY
#define F77_N
#define F77_lda
#define F77_M
Here is the call graph for this function:
Here is the caller graph for this function: