LAPACK
3.11.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
cblas_dscal.c
Go to the documentation of this file.
1
/*
2
* cblas_dscal.c
3
*
4
* The program is a C interface to dscal.
5
*
6
* Written by Keita Teranishi. 2/11/1998
7
*
8
*/
9
#include "
cblas.h
"
10
#include "
cblas_f77.h
"
11
void
cblas_dscal
(
const
CBLAS_INT
N
,
const
double
alpha,
double
*X,
12
const
CBLAS_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_dscal
( &
F77_N
, &alpha, X, &
F77_incX
);
21
}
CBLAS_INT
#define CBLAS_INT
Definition:
cblas.h:24
cblas.h
F77_incX
#define F77_incX
F77_N
#define F77_N
cblas_dscal
void cblas_dscal(const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT incX)
Definition:
cblas_dscal.c:11
F77_dscal
#define F77_dscal(...)
Definition:
cblas_f77.h:240
F77_INT
#define F77_INT
Definition:
cblas_f77.h:32
cblas_f77.h
N
#define N
Definition:
example_user.c:10
CBLAS
src
cblas_dscal.c
Generated on Mon Nov 14 2022 13:12:13 for LAPACK by
1.9.5