v0.11.1
third_party
cblas
cblas_daxpy.c
Go to the documentation of this file.
1
/*
2
* cblas_daxpy.c
3
*
4
* The program is a C interface to daxpy.
5
*
6
* Written by Keita Teranishi. 2/11/1998
7
*
8
*/
9
#include "
cblas.h
"
10
#include "
cblas_f77.h
"
11
void
cblas_daxpy
(
const
int
N
,
const
double
alpha
,
const
double
*X,
12
const
int
incX,
double
*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_daxpy
( &
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_daxpy
void cblas_daxpy(const int N, const double alpha, const double *X, const int incX, double *Y, const int incY)
Definition:
cblas_daxpy.c:11
cblas_f77.h
F77_daxpy
void F77_daxpy(FINT, const double *, const double *, FINT, double *, 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