LAPACK
3.11.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
cblas_snrm2.c
Go to the documentation of this file.
1
/*
2
* cblas_snrm2.c
3
*
4
* The program is a C interface to snrm2.
5
* It calls the fortran wrapper before calling snrm2.
6
*
7
* Written by Keita Teranishi. 2/11/1998
8
*
9
*/
10
#include "
cblas.h
"
11
#include "
cblas_f77.h
"
12
float
cblas_snrm2
(
const
CBLAS_INT
N
,
const
float
*X,
const
CBLAS_INT
incX)
13
{
14
float
nrm2;
15
#ifdef F77_INT
16
F77_INT
F77_N
=
N
,
F77_incX
=incX;
17
#else
18
#define F77_N N
19
#define F77_incX incX
20
#endif
21
F77_snrm2_sub
( &
F77_N
, X, &
F77_incX
, &nrm2);
22
return
nrm2;
23
}
CBLAS_INT
#define CBLAS_INT
Definition:
cblas.h:24
cblas.h
F77_INT
#define F77_INT
Definition:
cblas_f77.h:32
F77_snrm2_sub
#define F77_snrm2_sub(...)
Definition:
cblas_f77.h:223
cblas_f77.h
F77_incX
#define F77_incX
F77_N
#define F77_N
cblas_snrm2
float cblas_snrm2(const CBLAS_INT N, const float *X, const CBLAS_INT incX)
Definition:
cblas_snrm2.c:12
N
#define N
Definition:
example_user.c:10
CBLAS
src
cblas_snrm2.c
Generated on Mon Nov 14 2022 13:12:13 for LAPACK by
1.9.5