LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ get_uplo_type()

void get_uplo_type ( char *  type,
CBLAS_UPLO uplo 
)

Definition at line 18 of file auxiliary.c.

18  {
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 }
#define UNDEFINED
Definition: cblas_test.h:19