LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
cblas_sger.c
Go to the documentation of this file.
1/*
2 *
3 * cblas_sger.c
4 * This program is a C interface to sger.
5 * Written by Keita Teranishi
6 * 4/6/1998
7 *
8 */
9
10#include "cblas.h"
11#include "cblas_f77.h"
12void API_SUFFIX(cblas_sger)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N,
13 const float alpha, const float *X, const CBLAS_INT incX,
14 const float *Y, const CBLAS_INT incY, float *A, const CBLAS_INT lda)
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,...)
CBLAS_LAYOUT
Definition cblas.h:39
@ CblasColMajor
Definition cblas.h:39
@ CblasRowMajor
Definition cblas.h:39
#define API_SUFFIX(a)
Definition cblas.h:57
#define CBLAS_INT
Definition cblas.h:24
#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
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 cblas_sger.c:12