1/*
2 *
3 * cblas_dgbmv.c
4 * This program is a C interface to dgbmv.
5 * Written by Keita Teranishi
6 * 4/6/1998
7 *
8 */
9#include "cblas.h"
10#include "cblas_f77.h"
11void cblas_dgbmv(const enum CBLAS_ORDER order,
12                 const enum CBLAS_TRANSPOSE TransA, const int M, const int N,
13                 const int KL, const int KU,
14                 const double alpha, const double  *A, const int lda,
15                 const double  *X, const int incX, const double beta,
16                 double  *Y, const int incY)
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
40   CBLAS_CallFromC = 1;
41   if (order == 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         cblas_xerbla(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA);
49         CBLAS_CallFromC = 0;
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 (order == 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         cblas_xerbla(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA);
68         CBLAS_CallFromC = 0;
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 cblas_xerbla(1, "cblas_dgbmv", "Illegal Order setting, %d\n", order);
79   CBLAS_CallFromC = 0;
80   RowMajorStrg = 0;
81}
82