"Fossies" - the Fresh Open Source Software Archive

Member "lapack-3.9.1/CBLAS/testing/auxiliary.c" (25 Mar 2021, 1309 Bytes) of package /linux/misc/lapack-3.9.1.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) C and C++ source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file.

    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, 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, 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, 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, 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 }