Home | History | Annotate | Download | only in testing 
      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, 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 
     18 void 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 }
     25 void 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 }
     32 void 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