39 lines
1.3 KiB
C
39 lines
1.3 KiB
C
/*
|
|
* Written by T. H. Do, 1/23/98, SGI/CRAY Research.
|
|
*/
|
|
#include <string.h>
|
|
#include "cblas.h"
|
|
#include "cblas_test.h"
|
|
|
|
void get_transpose_type(char *type, enum CBLAS_TRANSPOSE *trans) {
|
|
if( (strncmp( type,"n",1 )==0)||(strncmp( type,"N",1 )==0) )
|
|
*trans = CblasNoTrans;
|
|
else if( (strncmp( type,"t",1 )==0)||(strncmp( type,"T",1 )==0) )
|
|
*trans = CblasTrans;
|
|
else if( (strncmp( type,"c",1 )==0)||(strncmp( type,"C",1 )==0) )
|
|
*trans = CblasConjTrans;
|
|
else *trans = UNDEFINED;
|
|
}
|
|
|
|
void get_uplo_type(char *type, enum CBLAS_UPLO *uplo) {
|
|
if( (strncmp( type,"u",1 )==0)||(strncmp( type,"U",1 )==0) )
|
|
*uplo = CblasUpper;
|
|
else if( (strncmp( type,"l",1 )==0)||(strncmp( type,"L",1 )==0) )
|
|
*uplo = CblasLower;
|
|
else *uplo = UNDEFINED;
|
|
}
|
|
void get_diag_type(char *type, enum CBLAS_DIAG *diag) {
|
|
if( (strncmp( type,"u",1 )==0)||(strncmp( type,"U",1 )==0) )
|
|
*diag = CblasUnit;
|
|
else if( (strncmp( type,"n",1 )==0)||(strncmp( type,"N",1 )==0) )
|
|
*diag = CblasNonUnit;
|
|
else *diag = UNDEFINED;
|
|
}
|
|
void get_side_type(char *type, enum CBLAS_SIDE *side) {
|
|
if( (strncmp( type,"l",1 )==0)||(strncmp( type,"L",1 )==0) )
|
|
*side = CblasLeft;
|
|
else if( (strncmp( type,"r",1 )==0)||(strncmp( type,"R",1 )==0) )
|
|
*side = CblasRight;
|
|
else *side = UNDEFINED;
|
|
}
|