#include <stdio.h>
#include <stdlib.h>
#include "cblas.h"
#include "cblas_f77.h"
Go to the source code of this file.
|
void | cblas_cgemv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const void *alpha, const void *A, const int lda, const void *X, const int incX, const void *beta, void *Y, const int incY) |
|
◆ F77_incX
◆ F77_incY
◆ F77_lda
◆ F77_M
◆ F77_N
◆ F77_TA
◆ cblas_cgemv()
void cblas_cgemv |
( |
const enum CBLAS_ORDER |
order, |
|
|
const enum CBLAS_TRANSPOSE |
TransA, |
|
|
const int |
M, |
|
|
const int |
N, |
|
|
const void * |
alpha, |
|
|
const void * |
A, |
|
|
const int |
lda, |
|
|
const void * |
X, |
|
|
const int |
incX, |
|
|
const void * |
beta, |
|
|
void * |
Y, |
|
|
const int |
incY |
|
) |
| |
Definition at line 12 of file cblas_cgemv.c.
34 int n=0,
i=0, incx=incX;
35 const float *xx= (
const float *)X;
36 float ALPHA[2],BETA[2];
38 float *x=(
float *)X, *y=(
float *)Y, *st=0, *tx=0;
53 cblas_xerbla(2,
"cblas_cgemv",
"Illegal TransA setting, %d\n", TransA);
72 ALPHA[0]= *( (
const float *)
alpha );
73 ALPHA[1]= -( *( (
const float *)
alpha+1) );
74 BETA[0]= *( (
const float *) beta );
75 BETA[1]= -( *( (
const float *) beta+1 ) );
80 x = malloc(
n*
sizeof(
float));
125 else stx = (
const float *)X;
129 cblas_xerbla(2,
"cblas_cgemv",
"Illegal TransA setting, %d\n", TransA);
146 if (x != (
const float *)X) free(x);
void cblas_xerbla(int p, const char *rout, const char *form,...)
void F77_cgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)
FTensor::Index< 'i', 3 > i