LAPACK  3.10.0
LAPACK: Linear Algebra PACKage
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 }
void get_diag_type(char *type, CBLAS_DIAG *diag)
Definition: auxiliary.c:25
void get_side_type(char *type, CBLAS_SIDE *side)
Definition: auxiliary.c:32
void get_uplo_type(char *type, CBLAS_UPLO *uplo)
Definition: auxiliary.c:18
void get_transpose_type(char *type, CBLAS_TRANSPOSE *trans)
Definition: auxiliary.c:8
CBLAS_UPLO
Definition: cblas.h:21
@ CblasLower
Definition: cblas.h:21
@ CblasUpper
Definition: cblas.h:21
CBLAS_TRANSPOSE
Definition: cblas.h:20
@ CblasNoTrans
Definition: cblas.h:20
@ CblasTrans
Definition: cblas.h:20
@ CblasConjTrans
Definition: cblas.h:20
CBLAS_SIDE
Definition: cblas.h:23
@ CblasRight
Definition: cblas.h:23
@ CblasLeft
Definition: cblas.h:23
CBLAS_DIAG
Definition: cblas.h:22
@ CblasUnit
Definition: cblas.h:22
@ CblasNonUnit
Definition: cblas.h:22
#define UNDEFINED
Definition: cblas_test.h:19