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
8void get_transpose_type(char *type, enum 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
18void get_uplo_type(char *type, enum 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}
25void get_diag_type(char *type, enum 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}
32void get_side_type(char *type, enum 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