LAPACK
3.12.1
LAPACK: Linear Algebra PACKage
Toggle main menu visibility
Main Page
Related Pages
Routines
Modules
Modules List
Module Members
All
c
d
s
z
Functions/Subroutines
Variables
c
d
s
z
Data Types
Data Types List
Data Type Index
Data Fields
All
Functions/Subroutines
Variables
Files
File List
File Members
All
_
a
b
c
d
f
g
h
i
l
m
p
r
s
t
u
x
z
Functions/Subroutines
_
a
c
d
f
g
h
i
l
m
s
t
x
z
Variables
c
l
r
Typedefs
Enumerations
Enumerator
Macros
a
b
c
f
i
p
t
u
x
•
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Macros
Modules
Pages
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
API_SUFFIX
(
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
}
12
float
API_SUFFIX
(
cblas_snrm2
)(
const
CBLAS_INT
N,
const
float
*X,
const
CBLAS_INT
incX) {
…
}
API_SUFFIX
#define API_SUFFIX(a)
Definition
cblas.h:57
CBLAS_INT
#define CBLAS_INT
Definition
cblas.h:24
cblas.h
F77_INT
#define F77_INT
Definition
cblas_example2_64.c:4
F77_snrm2_sub
#define F77_snrm2_sub(...)
Definition
cblas_f77.h:245
cblas_f77.h
F77_incX
#define F77_incX
F77_N
#define F77_N
cblas_snrm2
float API_SUFFIX cblas_snrm2(const CBLAS_INT N, const float *X, const CBLAS_INT incX)
Definition
cblas_snrm2.c:12
CBLAS
src
cblas_snrm2.c
Generated on Mon Jan 20 2025 17:18:06 for LAPACK by
1.11.0