v0.9.0
Macros | Functions
cblas_dsbmv.c File Reference
#include "cblas.h"
#include "cblas_f77.h"

Go to the source code of this file.

Macros

#define F77_UL   &UL
 
#define F77_N   N
 
#define F77_K   K
 
#define F77_lda   lda
 
#define F77_incX   incX
 
#define F77_incY   incY
 

Functions

void cblas_dsbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, const int N, const int K, const double alpha, const double *A, const int lda, const double *X, const int incX, const double beta, double *Y, const int incY)
 

Macro Definition Documentation

◆ F77_incX

#define F77_incX   incX

◆ F77_incY

#define F77_incY   incY

◆ F77_K

#define F77_K   K

◆ F77_lda

#define F77_lda   lda

◆ F77_N

#define F77_N   N

◆ F77_UL

#define F77_UL   &UL

Function Documentation

◆ cblas_dsbmv()

void cblas_dsbmv ( const enum CBLAS_ORDER  order,
const enum CBLAS_UPLO  Uplo,
const int  N,
const int  K,
const double  alpha,
const double A,
const int  lda,
const double X,
const int  incX,
const double  beta,
double Y,
const int  incY 
)

Definition at line 12 of file cblas_dsbmv.c.

17 {
18  char UL;
19 #ifdef F77_CHAR
20  F77_CHAR F77_UL;
21 #else
22  #define F77_UL &UL
23 #endif
24 #ifdef F77_INT
25  F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_incX=incX, F77_incY=incY;
26 #else
27  #define F77_N N
28  #define F77_K K
29  #define F77_lda lda
30  #define F77_incX incX
31  #define F77_incY incY
32 #endif
33  extern int CBLAS_CallFromC;
34  extern int RowMajorStrg;
35  RowMajorStrg = 0;
36 
37  CBLAS_CallFromC = 1;
38  if (order == CblasColMajor)
39  {
40  if (Uplo == CblasUpper) UL = 'U';
41  else if (Uplo == CblasLower) UL = 'L';
42  else
43  {
44  cblas_xerbla(2, "cblas_dsbmv","Illegal Uplo setting, %d\n",Uplo );
45  CBLAS_CallFromC = 0;
46  RowMajorStrg = 0;
47  return;
48  }
49  #ifdef F77_CHAR
50  F77_UL = C2F_CHAR(&UL);
51  #endif
52  F77_dsbmv(F77_UL, &F77_N, &F77_K, &alpha, A, &F77_lda, X,
53  &F77_incX, &beta, Y, &F77_incY);
54  }
55  else if (order == CblasRowMajor)
56  {
57  RowMajorStrg = 1;
58  if (Uplo == CblasUpper) UL = 'L';
59  else if (Uplo == CblasLower) UL = 'U';
60  else
61  {
62  cblas_xerbla(2, "cblas_dsbmv","Illegal Uplo setting, %d\n", Uplo);
63  CBLAS_CallFromC = 0;
64  RowMajorStrg = 0;
65  return;
66  }
67  #ifdef F77_CHAR
68  F77_UL = C2F_CHAR(&UL);
69  #endif
70  F77_dsbmv(F77_UL, &F77_N, &F77_K, &alpha,
71  A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY);
72  }
73  else cblas_xerbla(1, "cblas_dsbmv", "Illegal Order setting, %d\n", order);
74  CBLAS_CallFromC = 0;
75  RowMajorStrg = 0;
76  return;
77 }
#define F77_incX
#define F77_UL
#define F77_incY
int CBLAS_CallFromC
Definition: cblas_globals.c:1
#define F77_N
void F77_dsbmv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)
#define F77_lda
void cblas_xerbla(int p, const char *rout, const char *form,...)
Definition: cblas_xerbla.c:8
#define F77_K
const int N
Definition: speed_test.cpp:3
int RowMajorStrg
Definition: cblas_globals.c:2