v0.11.1
third_party
cblas
cblas_caxpy.c
Go to the documentation of this file.
1
/*
2
* cblas_caxpy.c
3
*
4
* The program is a C interface to caxpy.
5
*
6
* Written by Keita Teranishi. 2/11/1998
7
*
8
*/
9
#include "
cblas.h
"
10
#include "
cblas_f77.h
"
11
void
cblas_caxpy
(
const
int
N
,
const
void
*
alpha
,
const
void
*X,
12
const
int
incX,
void
*Y,
const
int
incY)
13
{
14
#ifdef F77_INT
15
F77_INT
F77_N
=
N
,
F77_incX
=incX,
F77_incY
=incY;
16
#else
17
#define F77_N N
18
#define F77_incX incX
19
#define F77_incY incY
20
#endif
21
F77_caxpy
( &
F77_N
,
alpha
, X, &
F77_incX
, Y, &
F77_incY
);
22
}
cblas.h
F77_incX
#define F77_incX
F77_incY
#define F77_incY
F77_N
#define F77_N
cblas_caxpy
void cblas_caxpy(const int N, const void *alpha, const void *X, const int incX, void *Y, const int incY)
Definition:
cblas_caxpy.c:11
cblas_f77.h
F77_caxpy
void F77_caxpy(FINT, const void *, const void *, FINT, void *, FINT)
ElectroPhysiology::alpha
const double alpha
Definition:
ElecPhysOperators.hpp:28
N
const int N
Definition:
speed_test.cpp:3
Generated on Tue Apr 13 2021 23:14:46 for MoFEM by
Doxygen
1.9.1 and hosted at