/*

 *     Written by T. H. Do, 1/23/98, SGI/CRAY Research.

 */

#include <string.h></string.h>

#include "common.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;

}