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

◆ cblas_dger()

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

Definition at line 12 of file cblas_dger.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_dger( &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_dger( &F77_N, &F77_M ,&alpha, Y, &F77_incY, X, &F77_incX, A,
40 &F77_lda);
41
42 }
43 else API_SUFFIX(cblas_xerbla)(1, "cblas_dger", "Illegal layout setting, %d\n", layout);
45 RowMajorStrg = 0;
46 return;
47}
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_incX
#define F77_incY
#define F77_N
#define F77_lda
#define F77_M
#define F77_INT
#define F77_dger(...)
Definition cblas_f77.h:297
int CBLAS_CallFromC
int RowMajorStrg
Here is the call graph for this function:
Here is the caller graph for this function: