v0.11.1
third_party
cblas
cblas_cscal.c
Go to the documentation of this file.
1
/*
2
* cblas_cscal.c
3
*
4
* The program is a C interface to cscal.f.
5
*
6
* Written by Keita Teranishi. 2/11/1998
7
*
8
*/
9
#include "
cblas.h
"
10
#include "
cblas_f77.h
"
11
void
cblas_cscal
(
const
int
N
,
const
void
*
alpha
,
void
*X,
12
const
int
incX)
13
{
14
#ifdef F77_INT
15
F77_INT
F77_N
=
N
,
F77_incX
=incX;
16
#else
17
#define F77_N N
18
#define F77_incX incX
19
#endif
20
F77_cscal
( &
F77_N
,
alpha
, X, &
F77_incX
);
21
}
cblas.h
F77_incX
#define F77_incX
F77_N
#define F77_N
cblas_cscal
void cblas_cscal(const int N, const void *alpha, void *X, const int incX)
Definition:
cblas_cscal.c:11
cblas_f77.h
F77_cscal
void F77_cscal(FINT, const void *, 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