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
get_transpose_type(char * type,CBLAS_TRANSPOSE * trans)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
get_uplo_type(char * type,CBLAS_UPLO * uplo)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 }
get_diag_type(char * type,CBLAS_DIAG * diag)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 }
get_side_type(char * type,CBLAS_SIDE * side)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 }
39