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
▼
LAPACK
►
LAPACK
►
Routines
►
Modules
►
Data Types
▼
Files
▼
File List
►
BLAS
▼
CBLAS
►
examples
►
include
▼
src
►
cblas_caxpy.c
►
cblas_ccopy.c
►
cblas_cdotc_sub.c
►
cblas_cdotu_sub.c
►
cblas_cgbmv.c
►
cblas_cgemm.c
►
cblas_cgemmtr.c
►
cblas_cgemv.c
►
cblas_cgerc.c
►
cblas_cgeru.c
►
cblas_chbmv.c
►
cblas_chemm.c
►
cblas_chemv.c
►
cblas_cher.c
►
cblas_cher2.c
►
cblas_cher2k.c
►
cblas_cherk.c
►
cblas_chpmv.c
►
cblas_chpr.c
►
cblas_chpr2.c
►
cblas_crotg.c
►
cblas_cscal.c
►
cblas_csrot.c
►
cblas_csscal.c
►
cblas_cswap.c
►
cblas_csymm.c
►
cblas_csyr2k.c
►
cblas_csyrk.c
►
cblas_ctbmv.c
►
cblas_ctbsv.c
►
cblas_ctpmv.c
►
cblas_ctpsv.c
►
cblas_ctrmm.c
►
cblas_ctrmv.c
►
cblas_ctrsm.c
►
cblas_ctrsv.c
►
cblas_dasum.c
►
cblas_daxpy.c
►
cblas_dcabs1.c
►
cblas_dcopy.c
►
cblas_ddot.c
►
cblas_dgbmv.c
►
cblas_dgemm.c
►
cblas_dgemmtr.c
►
cblas_dgemv.c
►
cblas_dger.c
►
cblas_dnrm2.c
►
cblas_drot.c
►
cblas_drotg.c
►
cblas_drotm.c
►
cblas_drotmg.c
►
cblas_dsbmv.c
►
cblas_dscal.c
►
cblas_dsdot.c
►
cblas_dspmv.c
►
cblas_dspr.c
►
cblas_dspr2.c
►
cblas_dswap.c
►
cblas_dsymm.c
►
cblas_dsymv.c
►
cblas_dsyr.c
►
cblas_dsyr2.c
►
cblas_dsyr2k.c
►
cblas_dsyrk.c
►
cblas_dtbmv.c
►
cblas_dtbsv.c
►
cblas_dtpmv.c
►
cblas_dtpsv.c
►
cblas_dtrmm.c
►
cblas_dtrmv.c
►
cblas_dtrsm.c
►
cblas_dtrsv.c
►
cblas_dzasum.c
►
cblas_dznrm2.c
►
cblas_globals.c
►
cblas_icamax.c
►
cblas_idamax.c
►
cblas_isamax.c
►
cblas_izamax.c
►
cblas_sasum.c
►
cblas_saxpy.c
►
cblas_scabs1.c
►
cblas_scasum.c
►
cblas_scnrm2.c
►
cblas_scopy.c
►
cblas_sdot.c
►
cblas_sdsdot.c
►
cblas_sgbmv.c
►
cblas_sgemm.c
►
cblas_sgemmtr.c
►
cblas_sgemv.c
►
cblas_sger.c
►
cblas_snrm2.c
►
cblas_srot.c
►
cblas_srotg.c
►
cblas_srotm.c
►
cblas_srotmg.c
►
cblas_ssbmv.c
►
cblas_sscal.c
►
cblas_sspmv.c
►
cblas_sspr.c
►
cblas_sspr2.c
►
cblas_sswap.c
►
cblas_ssymm.c
►
cblas_ssymv.c
►
cblas_ssyr.c
►
cblas_ssyr2.c
►
cblas_ssyr2k.c
►
cblas_ssyrk.c
►
cblas_stbmv.c
►
cblas_stbsv.c
►
cblas_stpmv.c
►
cblas_stpsv.c
►
cblas_strmm.c
►
cblas_strmv.c
►
cblas_strsm.c
►
cblas_strsv.c
►
cblas_xerbla.c
►
cblas_zaxpy.c
►
cblas_zcopy.c
►
cblas_zdotc_sub.c
►
cblas_zdotu_sub.c
►
cblas_zdrot.c
►
cblas_zdscal.c
►
cblas_zgbmv.c
►
cblas_zgemm.c
►
cblas_zgemmtr.c
►
cblas_zgemv.c
►
cblas_zgerc.c
►
cblas_zgeru.c
►
cblas_zhbmv.c
►
cblas_zhemm.c
►
cblas_zhemv.c
►
cblas_zher.c
►
cblas_zher2.c
►
cblas_zher2k.c
►
cblas_zherk.c
►
cblas_zhpmv.c
►
cblas_zhpr.c
►
cblas_zhpr2.c
►
cblas_zrotg.c
►
cblas_zscal.c
►
cblas_zswap.c
►
cblas_zsymm.c
►
cblas_zsyr2k.c
►
cblas_zsyrk.c
►
cblas_ztbmv.c
►
cblas_ztbsv.c
►
cblas_ztpmv.c
►
cblas_ztpsv.c
►
cblas_ztrmm.c
►
cblas_ztrmv.c
►
cblas_ztrsm.c
►
cblas_ztrsv.c
►
cdotcsub.f
►
cdotusub.f
►
dasumsub.f
►
dcabs1sub.f
►
ddotsub.f
►
dnrm2sub.f
►
dsdotsub.f
►
dzasumsub.f
►
dznrm2sub.f
►
icamaxsub.f
►
idamaxsub.f
►
isamaxsub.f
►
izamaxsub.f
►
sasumsub.f
►
scabs1sub.f
►
scasumsub.f
►
scnrm2sub.f
►
sdotsub.f
►
sdsdotsub.f
►
snrm2sub.f
►
xerbla.c
►
zdotcsub.f
►
zdotusub.f
►
testing
DOCS
►
INSTALL
►
SRC
►
TESTING
►
File Members
•
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Macros
Modules
Pages
Loading...
Searching...
No Matches
cblas_dspr2.c
Go to the documentation of this file.
1
/*
2
* cblas_dspr2.c
3
* The program is a C interface to dspr2.
4
*
5
* Keita Teranishi 5/20/98
6
*
7
*/
8
#include "
cblas.h
"
9
#include "
cblas_f77.h
"
10
void
API_SUFFIX
(
cblas_dspr2
)(
const
CBLAS_LAYOUT
layout,
const
CBLAS_UPLO
Uplo,
11
const
CBLAS_INT
N,
const
double
alpha,
const
double
*X,
12
const
CBLAS_INT
incX,
const
double
*Y,
const
CBLAS_INT
incY,
double
*A)
13
{
14
char
UL;
15
#ifdef F77_CHAR
16
F77_CHAR
F77_UL
;
17
#else
18
#define F77_UL &UL
19
#endif
20
21
#ifdef F77_INT
22
F77_INT
F77_N
=N,
F77_incX
=incX,
F77_incY
=incY;
23
#else
24
#define F77_N N
25
#define F77_incX incX
26
#define F77_incY incY
27
#endif
28
29
extern
int
CBLAS_CallFromC
;
30
extern
int
RowMajorStrg
;
31
RowMajorStrg
= 0;
32
CBLAS_CallFromC
= 1;
33
if
(layout ==
CblasColMajor
)
34
{
35
if
(Uplo ==
CblasLower
) UL =
'L'
;
36
else
if
(Uplo ==
CblasUpper
) UL =
'U'
;
37
else
38
{
39
API_SUFFIX
(
cblas_xerbla
)(2,
"cblas_dspr2"
,
"Illegal Uplo setting, %d\n"
,Uplo );
40
CBLAS_CallFromC
= 0;
41
RowMajorStrg
= 0;
42
return
;
43
}
44
#ifdef F77_CHAR
45
F77_UL
= C2F_CHAR(&UL);
46
#endif
47
48
F77_dspr2
(
F77_UL
, &
F77_N
, &alpha, X, &
F77_incX
, Y, &
F77_incY
, A);
49
50
}
else
if
(layout ==
CblasRowMajor
)
51
{
52
RowMajorStrg
= 1;
53
if
(Uplo ==
CblasLower
) UL =
'U'
;
54
else
if
(Uplo ==
CblasUpper
) UL =
'L'
;
55
else
56
{
57
API_SUFFIX
(
cblas_xerbla
)(2,
"cblas_dspr2"
,
"Illegal Uplo setting, %d\n"
,Uplo );
58
CBLAS_CallFromC
= 0;
59
RowMajorStrg
= 0;
60
return
;
61
}
62
#ifdef F77_CHAR
63
F77_UL
= C2F_CHAR(&UL);
64
#endif
65
F77_dspr2
(
F77_UL
, &
F77_N
, &alpha, X, &
F77_incX
, Y, &
F77_incY
, A);
66
}
else
API_SUFFIX
(
cblas_xerbla
)(1,
"cblas_dspr2"
,
"Illegal layout setting, %d\n"
, layout);
67
CBLAS_CallFromC
= 0;
68
RowMajorStrg
= 0;
69
return
;
70
}
10
void
API_SUFFIX
(
cblas_dspr2
)(
const
CBLAS_LAYOUT
layout,
const
CBLAS_UPLO
Uplo, {
…
}
CBLAS_UPLO
CBLAS_UPLO
Definition
cblas.h:41
CblasLower
@ CblasLower
Definition
cblas.h:41
CblasUpper
@ CblasUpper
Definition
cblas.h:41
cblas_xerbla
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
Definition
cblas_xerbla.c:12
CBLAS_LAYOUT
CBLAS_LAYOUT
Definition
cblas.h:39
CblasColMajor
@ CblasColMajor
Definition
cblas.h:39
CblasRowMajor
@ CblasRowMajor
Definition
cblas.h:39
API_SUFFIX
#define API_SUFFIX(a)
Definition
cblas.h:57
CBLAS_INT
#define CBLAS_INT
Definition
cblas.h:24
cblas.h
F77_incX
#define F77_incX
F77_incY
#define F77_incY
F77_N
#define F77_N
F77_UL
#define F77_UL
cblas_dspr2
void API_SUFFIX cblas_dspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, const double *Y, const CBLAS_INT incY, double *A)
Definition
cblas_dspr2.c:10
F77_INT
#define F77_INT
Definition
cblas_example2_64.c:4
F77_dspr2
#define F77_dspr2(...)
Definition
cblas_f77.h:350
cblas_f77.h
CBLAS_CallFromC
int CBLAS_CallFromC
Definition
cblas_globals.c:1
RowMajorStrg
int RowMajorStrg
Definition
cblas_globals.c:2
CBLAS
src
cblas_dspr2.c
Generated on Mon Jan 20 2025 17:18:06 for LAPACK by
1.11.0