#include <stdio.h>
#include <stdlib.h>
#include "cblas.h"
#include "cblas_f77.h"
Go to the source code of this file.
|
void | cblas_chemv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, 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_N
◆ F77_UL
◆ cblas_chemv()
void cblas_chemv |
( |
const enum CBLAS_ORDER |
order, |
|
|
const enum CBLAS_UPLO |
Uplo, |
|
|
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_chemv.c.
32 int n=0,
i=0, incx=incX;
33 const float *xx= (
float *)X, *alp= (
float *)
alpha, *bet = (
float *)beta;
34 float ALPHA[2],BETA[2];
36 float *x=(
float *)X, *y=(
float *)Y, *st=0, *tx;
49 cblas_xerbla(2,
"cblas_chemv",
"Illegal Uplo setting, %d\n",Uplo );
71 x = malloc(
n*
sizeof(
float));
124 cblas_xerbla(2,
"cblas_chemv",
"Illegal Uplo setting, %d\n", Uplo);
void cblas_xerbla(int p, const char *rout, const char *form,...)
void F77_chemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)
FTensor::Index< 'i', 3 > i