LAPACK
3.11.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
cblas_dsyr.c
Go to the documentation of this file.
1
/*
2
*
3
* cblas_dsyr.c
4
* This program is a C interface to dsyr.
5
* Written by Keita Teranishi
6
* 4/6/1998
7
*
8
*/
9
10
#include "
cblas.h
"
11
#include "
cblas_f77.h
"
12
void
cblas_dsyr
(
const
CBLAS_LAYOUT
layout,
const
CBLAS_UPLO
Uplo,
13
const
CBLAS_INT
N
,
const
double
alpha,
const
double
*X,
14
const
CBLAS_INT
incX,
double
*A,
const
CBLAS_INT
lda)
15
{
16
char
UL;
17
#ifdef F77_CHAR
18
F77_CHAR
F77_UL
;
19
#else
20
#define F77_UL &UL
21
#endif
22
23
#ifdef F77_INT
24
F77_INT
F77_N
=
N
,
F77_incX
=incX,
F77_lda
=lda;
25
#else
26
#define F77_N N
27
#define F77_incX incX
28
#define F77_lda lda
29
#endif
30
extern
int
CBLAS_CallFromC
;
31
extern
int
RowMajorStrg
;
32
RowMajorStrg
= 0;
33
CBLAS_CallFromC
= 1;
34
if
(layout ==
CblasColMajor
)
35
{
36
if
(Uplo ==
CblasLower
) UL =
'L'
;
37
else
if
(Uplo ==
CblasUpper
) UL =
'U'
;
38
else
39
{
40
cblas_xerbla
(2,
"cblas_dsyr"
,
"Illegal Uplo setting, %d\n"
,Uplo );
41
CBLAS_CallFromC
= 0;
42
RowMajorStrg
= 0;
43
return
;
44
}
45
#ifdef F77_CHAR
46
F77_UL
= C2F_CHAR(&UL);
47
#endif
48
49
F77_dsyr
(
F77_UL
, &
F77_N
, &alpha, X, &
F77_incX
, A, &
F77_lda
);
50
51
}
else
if
(layout ==
CblasRowMajor
)
52
{
53
RowMajorStrg
= 1;
54
if
(Uplo ==
CblasLower
) UL =
'U'
;
55
else
if
(Uplo ==
CblasUpper
) UL =
'L'
;
56
else
57
{
58
cblas_xerbla
(2,
"cblas_dsyr"
,
"Illegal Uplo setting, %d\n"
,Uplo );
59
CBLAS_CallFromC
= 0;
60
RowMajorStrg
= 0;
61
return
;
62
}
63
#ifdef F77_CHAR
64
F77_UL
= C2F_CHAR(&UL);
65
#endif
66
F77_dsyr
(
F77_UL
, &
F77_N
, &alpha, X, &
F77_incX
, A, &
F77_lda
);
67
}
else
cblas_xerbla
(1,
"cblas_dsyr"
,
"Illegal layout setting, %d\n"
, layout);
68
CBLAS_CallFromC
= 0;
69
RowMajorStrg
= 0;
70
return
;
71
}
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
CBLAS_INT
#define CBLAS_INT
Definition:
cblas.h:24
cblas.h
F77_incX
#define F77_incX
F77_N
#define F77_N
F77_lda
#define F77_lda
F77_UL
#define F77_UL
cblas_dsyr
void cblas_dsyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, double *A, const CBLAS_INT lda)
Definition:
cblas_dsyr.c:12
F77_dsyr
#define F77_dsyr(...)
Definition:
cblas_f77.h:326
F77_INT
#define F77_INT
Definition:
cblas_f77.h:32
cblas_f77.h
CBLAS_CallFromC
int CBLAS_CallFromC
Definition:
cblas_globals.c:1
RowMajorStrg
int RowMajorStrg
Definition:
cblas_globals.c:2
N
#define N
Definition:
example_user.c:10
CBLAS
src
cblas_dsyr.c
Generated on Mon Nov 14 2022 13:12:13 for LAPACK by
1.9.5