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

◆ cblas_dgbmv()

void API_SUFFIX() cblas_dgbmv ( const CBLAS_LAYOUT  layout,
const CBLAS_TRANSPOSE  TransA,
const CBLAS_INT  M,
const CBLAS_INT  N,
const CBLAS_INT  KL,
const CBLAS_INT  KU,
const double  alpha,
const double *  A,
const CBLAS_INT  lda,
const double *  X,
const CBLAS_INT  incX,
const double  beta,
double *  Y,
const CBLAS_INT  incY 
)

Definition at line 11 of file cblas_dgbmv.c.

17{
18 char TA;
19#ifdef F77_CHAR
20 F77_CHAR F77_TA;
21#else
22 #define F77_TA &TA
23#endif
24#ifdef F77_INT
25 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
26 F77_INT F77_KL=KL,F77_KU=KU;
27#else
28 #define F77_M M
29 #define F77_N N
30 #define F77_lda lda
31 #define F77_KL KL
32 #define F77_KU KU
33 #define F77_incX incX
34 #define F77_incY incY
35#endif
36 extern int CBLAS_CallFromC;
37 extern int RowMajorStrg;
38 RowMajorStrg = 0;
39
41 if (layout == CblasColMajor)
42 {
43 if (TransA == CblasNoTrans) TA = 'N';
44 else if (TransA == CblasTrans) TA = 'T';
45 else if (TransA == CblasConjTrans) TA = 'C';
46 else
47 {
48 API_SUFFIX(cblas_xerbla)(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA);
50 RowMajorStrg = 0;
51 return;
52 }
53 #ifdef F77_CHAR
54 F77_TA = C2F_CHAR(&TA);
55 #endif
56 F77_dgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, &alpha,
57 A, &F77_lda, X, &F77_incX, &beta, Y, &F77_incY);
58 }
59 else if (layout == CblasRowMajor)
60 {
61 RowMajorStrg = 1;
62 if (TransA == CblasNoTrans) TA = 'T';
63 else if (TransA == CblasTrans) TA = 'N';
64 else if (TransA == CblasConjTrans) TA = 'N';
65 else
66 {
67 API_SUFFIX(cblas_xerbla)(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA);
69 RowMajorStrg = 0;
70 return;
71 }
72 #ifdef F77_CHAR
73 F77_TA = C2F_CHAR(&TA);
74 #endif
75 F77_dgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, &alpha,
76 A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY);
77 }
78 else API_SUFFIX(cblas_xerbla)(1, "cblas_dgbmv", "Illegal layout setting, %d\n", layout);
80 RowMajorStrg = 0;
81}
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
@ CblasNoTrans
Definition cblas.h:40
@ CblasTrans
Definition cblas.h:40
@ CblasConjTrans
Definition cblas.h:40
@ CblasColMajor
Definition cblas.h:39
@ CblasRowMajor
Definition cblas.h:39
#define API_SUFFIX(a)
Definition cblas.h:57
#define F77_incX
#define F77_KU
#define F77_incY
#define F77_TA
#define F77_N
#define F77_lda
#define F77_M
#define F77_KL
#define F77_INT
#define F77_dgbmv(...)
Definition cblas_f77.h:330
int CBLAS_CallFromC
int RowMajorStrg
Here is the call graph for this function:
Here is the caller graph for this function: