auxiliary.c File Reference

#include <string.h>
#include "cblas.h"
#include "cblas_test.h"

Go to the source code of this file.

Functions
void	get_transpose_type (char *type, CBLAS_TRANSPOSE *trans)
void	get_uplo_type (char *type, CBLAS_UPLO *uplo)
void	get_diag_type (char *type, CBLAS_DIAG *diag)
void	get_side_type (char *type, CBLAS_SIDE *side)

Function Documentation

get_diag_type()

void get_diag_type	(	char *	type,
		CBLAS_DIAG *	diag )

Definition at line 25 of file auxiliary.c.

                                                 {
  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;
}

get_side_type()

void get_side_type	(	char *	type,
		CBLAS_SIDE *	side )

Definition at line 32 of file auxiliary.c.

                                                 {
  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;
}

get_transpose_type()

void get_transpose_type	(	char *	type,
		CBLAS_TRANSPOSE *	trans )

Definition at line 8 of file auxiliary.c.

                                                            {
  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;
}

get_uplo_type()

void get_uplo_type	(	char *	type,
		CBLAS_UPLO *	uplo )

Definition at line 18 of file auxiliary.c.

                                                 {
  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;
}