LAPACK
3.12.1
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
auxiliary.c
Go to the documentation of this file.
1
/*
2
* Written by T. H. Do, 1/23/98, SGI/CRAY Research.
3
*/
4
#include <string.h>
5
#include "
cblas.h
"
6
#include "
cblas_test.h
"
7
8
void
get_transpose_type
(
char
*type,
CBLAS_TRANSPOSE
*trans) {
9
if
( (strncmp( type,
"n"
,1 )==0)||(strncmp( type,
"N"
,1 )==0) )
10
*trans =
CblasNoTrans
;
11
else
if
( (strncmp( type,
"t"
,1 )==0)||(strncmp( type,
"T"
,1 )==0) )
12
*trans =
CblasTrans
;
13
else
if
( (strncmp( type,
"c"
,1 )==0)||(strncmp( type,
"C"
,1 )==0) )
14
*trans =
CblasConjTrans
;
15
else
*trans =
UNDEFINED
;
16
}
17
18
void
get_uplo_type
(
char
*type,
CBLAS_UPLO
*uplo) {
19
if
( (strncmp( type,
"u"
,1 )==0)||(strncmp( type,
"U"
,1 )==0) )
20
*uplo =
CblasUpper
;
21
else
if
( (strncmp( type,
"l"
,1 )==0)||(strncmp( type,
"L"
,1 )==0) )
22
*uplo =
CblasLower
;
23
else
*uplo =
UNDEFINED
;
24
}
25
void
get_diag_type
(
char
*type,
CBLAS_DIAG
*diag) {
26
if
( (strncmp( type,
"u"
,1 )==0)||(strncmp( type,
"U"
,1 )==0) )
27
*diag =
CblasUnit
;
28
else
if
( (strncmp( type,
"n"
,1 )==0)||(strncmp( type,
"N"
,1 )==0) )
29
*diag =
CblasNonUnit
;
30
else
*diag =
UNDEFINED
;
31
}
32
void
get_side_type
(
char
*type,
CBLAS_SIDE
*side) {
33
if
( (strncmp( type,
"l"
,1 )==0)||(strncmp( type,
"L"
,1 )==0) )
34
*side =
CblasLeft
;
35
else
if
( (strncmp( type,
"r"
,1 )==0)||(strncmp( type,
"R"
,1 )==0) )
36
*side =
CblasRight
;
37
else
*side =
UNDEFINED
;
38
}
get_diag_type
void get_diag_type(char *type, CBLAS_DIAG *diag)
Definition
auxiliary.c:25
get_side_type
void get_side_type(char *type, CBLAS_SIDE *side)
Definition
auxiliary.c:32
get_uplo_type
void get_uplo_type(char *type, CBLAS_UPLO *uplo)
Definition
auxiliary.c:18
get_transpose_type
void get_transpose_type(char *type, CBLAS_TRANSPOSE *trans)
Definition
auxiliary.c:8
CBLAS_UPLO
CBLAS_UPLO
Definition
cblas.h:41
CblasLower
@ CblasLower
Definition
cblas.h:41
CblasUpper
@ CblasUpper
Definition
cblas.h:41
CBLAS_TRANSPOSE
CBLAS_TRANSPOSE
Definition
cblas.h:40
CblasNoTrans
@ CblasNoTrans
Definition
cblas.h:40
CblasTrans
@ CblasTrans
Definition
cblas.h:40
CblasConjTrans
@ CblasConjTrans
Definition
cblas.h:40
CBLAS_SIDE
CBLAS_SIDE
Definition
cblas.h:43
CblasRight
@ CblasRight
Definition
cblas.h:43
CblasLeft
@ CblasLeft
Definition
cblas.h:43
CBLAS_DIAG
CBLAS_DIAG
Definition
cblas.h:42
CblasUnit
@ CblasUnit
Definition
cblas.h:42
CblasNonUnit
@ CblasNonUnit
Definition
cblas.h:42
cblas.h
UNDEFINED
#define UNDEFINED
Definition
cblas_test.h:28
cblas_test.h
CBLAS
testing
auxiliary.c
Generated on Mon Jan 20 2025 17:18:06 for LAPACK by
1.11.0