v0.11.1
third_party
cblas
cblas_csscal.c
Go to the documentation of this file.
1
/*
2
* cblas_csscal.c
3
*
4
* The program is a C interface to csscal.
5
*
6
* Written by Keita Teranishi. 2/11/1998
7
*
8
*/
9
#include "
cblas.h
"
10
#include "
cblas_f77.h
"
11
void
cblas_csscal
(
const
int
N
,
const
float
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_csscal
( &
F77_N
, &
alpha
, X, &
F77_incX
);
21
}
cblas.h
F77_incX
#define F77_incX
F77_N
#define F77_N
cblas_csscal
void cblas_csscal(const int N, const float alpha, void *X, const int incX)
Definition:
cblas_csscal.c:11
cblas_f77.h
F77_csscal
void F77_csscal(FINT, const float *, 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