libflame  revision_anchor
Functions
blis_prototypes_misc.h File Reference

(r)

Go to the source code of this file.

Functions

void bl1_abort (void)
 
void bl1_abort_msg (char *message)
 
void bl1_param_map_to_netlib_trans (trans1_t blis_trans, void *blas_trans)
 
void bl1_param_map_to_netlib_uplo (uplo1_t blis_uplo, void *blas_uplo)
 
void bl1_param_map_to_netlib_side (side1_t blis_side, void *blas_side)
 
void bl1_param_map_to_netlib_diag (diag1_t blis_diag, void *blas_diag)
 

Function Documentation

◆ bl1_abort()

void bl1_abort ( void  )

◆ bl1_abort_msg()

void bl1_abort_msg ( char *  message)

References bl1_abort().

Referenced by bl1_check_storage_2m(), bl1_check_storage_3m(), bl1_param_map_to_netlib_diag(), bl1_param_map_to_netlib_side(), bl1_param_map_to_netlib_trans(), and bl1_param_map_to_netlib_uplo().

19 {
20  fprintf( stderr, "BLIS: %s\n", message );
21  fprintf( stderr, "BLIS: Aborting.\n" );
22  bl1_abort();
23 }
void bl1_abort(void)
Definition: bl1_abort.c:13

◆ bl1_param_map_to_netlib_diag()

void bl1_param_map_to_netlib_diag ( diag1_t  blis_diag,
void *  blas_diag 
)

References bl1_abort_msg(), bl1_is_nonunit_diag(), bl1_is_unit_diag(), CblasNonUnit, and CblasUnit.

Referenced by bl1_ctrmm_blas(), bl1_ctrmv_blas(), bl1_ctrsm_blas(), bl1_ctrsv_blas(), bl1_dtrmm_blas(), bl1_dtrmv_blas(), bl1_dtrsm_blas(), bl1_dtrsv_blas(), bl1_strmm_blas(), bl1_strmv_blas(), bl1_strsm_blas(), bl1_strsv_blas(), bl1_ztrmm_blas(), bl1_ztrmv_blas(), bl1_ztrsm_blas(), and bl1_ztrsv_blas().

96 {
97  if ( bl1_is_nonunit_diag( blis_diag ) )
98  {
99 #ifdef FLA_ENABLE_CBLAS_INTERFACES
100  *( ( enum CBLAS_DIAG* ) blas_diag ) = CblasNonUnit;
101 #else
102  *( ( char* ) blas_diag ) = 'N';
103 #endif
104  }
105  else if ( bl1_is_unit_diag( blis_diag ) )
106  {
107 #ifdef FLA_ENABLE_CBLAS_INTERFACES
108  *( ( enum CBLAS_DIAG* ) blas_diag ) = CblasUnit;
109 #else
110  *( ( char* ) blas_diag ) = 'U';
111 #endif
112  }
113  else
114  {
115  bl1_abort_msg( "Invalid BLIS diag value to map." );
116  }
117 }
void bl1_abort_msg(char *message)
Definition: bl1_abort.c:18
CBLAS_DIAG
Definition: blis_prototypes_cblas.h:20
Definition: blis_prototypes_cblas.h:20
int bl1_is_nonunit_diag(diag1_t diag)
Definition: bl1_is.c:73
int bl1_is_unit_diag(diag1_t diag)
Definition: bl1_is.c:78
Definition: blis_prototypes_cblas.h:20

◆ bl1_param_map_to_netlib_side()

void bl1_param_map_to_netlib_side ( side1_t  blis_side,
void *  blas_side 
)

References bl1_abort_msg(), bl1_is_left(), bl1_is_right(), CblasLeft, and CblasRight.

Referenced by bl1_chemm_blas(), bl1_csymm_blas(), bl1_csymv_blas(), bl1_ctrmm_blas(), bl1_ctrsm_blas(), bl1_dsymm_blas(), bl1_dtrmm_blas(), bl1_dtrsm_blas(), bl1_ssymm_blas(), bl1_strmm_blas(), bl1_strsm_blas(), bl1_zhemm_blas(), bl1_zsymm_blas(), bl1_zsymv_blas(), bl1_ztrmm_blas(), and bl1_ztrsm_blas().

72 {
73  if ( bl1_is_left( blis_side ) )
74  {
75 #ifdef FLA_ENABLE_CBLAS_INTERFACES
76  *( ( enum CBLAS_SIDE* ) blas_side ) = CblasLeft;
77 #else
78  *( ( char* ) blas_side ) = 'L';
79 #endif
80  }
81  else if ( bl1_is_right( blis_side ) )
82  {
83 #ifdef FLA_ENABLE_CBLAS_INTERFACES
84  *( ( enum CBLAS_SIDE* ) blas_side ) = CblasRight;
85 #else
86  *( ( char* ) blas_side ) = 'R';
87 #endif
88  }
89  else
90  {
91  bl1_abort_msg( "Invalid BLIS side value to map." );
92  }
93 }
void bl1_abort_msg(char *message)
Definition: bl1_abort.c:18
Definition: blis_prototypes_cblas.h:21
Definition: blis_prototypes_cblas.h:21
int bl1_is_left(side1_t side)
Definition: bl1_is.c:61
CBLAS_SIDE
Definition: blis_prototypes_cblas.h:21
int bl1_is_right(side1_t side)
Definition: bl1_is.c:66

◆ bl1_param_map_to_netlib_trans()

void bl1_param_map_to_netlib_trans ( trans1_t  blis_trans,
void *  blas_trans 
)

References bl1_abort_msg(), bl1_is_conjnotrans(), bl1_is_conjtrans(), bl1_is_notrans(), bl1_is_trans(), CblasConjTrans, CblasNoTrans, and CblasTrans.

Referenced by bl1_cgemm_blas(), bl1_cgemv_blas(), bl1_cher2k_blas(), bl1_cherk_blas(), bl1_csyr2_blas(), bl1_csyr2k_blas(), bl1_csyr_blas(), bl1_csyrk_blas(), bl1_ctrmm_blas(), bl1_ctrmv_blas(), bl1_ctrsm_blas(), bl1_ctrsv_blas(), bl1_dgemm_blas(), bl1_dgemv_blas(), bl1_dsyr2k_blas(), bl1_dsyrk_blas(), bl1_dtrmm_blas(), bl1_dtrmv_blas(), bl1_dtrsm_blas(), bl1_dtrsv_blas(), bl1_sgemm_blas(), bl1_sgemv_blas(), bl1_ssyr2k_blas(), bl1_ssyrk_blas(), bl1_strmm_blas(), bl1_strmv_blas(), bl1_strsm_blas(), bl1_strsv_blas(), bl1_zgemm_blas(), bl1_zgemv_blas(), bl1_zher2k_blas(), bl1_zherk_blas(), bl1_zsyr2_blas(), bl1_zsyr2k_blas(), bl1_zsyr_blas(), bl1_zsyrk_blas(), bl1_ztrmm_blas(), bl1_ztrmv_blas(), bl1_ztrsm_blas(), and bl1_ztrsv_blas().

16 {
17  if ( bl1_is_notrans( blis_trans ) || bl1_is_conjnotrans( blis_trans ) )
18  {
19 #ifdef FLA_ENABLE_CBLAS_INTERFACES
20  *( ( enum CBLAS_TRANSPOSE* ) blas_trans ) = CblasNoTrans;
21 #else
22  *( ( char* ) blas_trans ) = 'N';
23 #endif
24  }
25  else if ( bl1_is_trans( blis_trans ) )
26  {
27 #ifdef FLA_ENABLE_CBLAS_INTERFACES
28  *( ( enum CBLAS_TRANSPOSE* ) blas_trans ) = CblasTrans;
29 #else
30  *( ( char* ) blas_trans ) = 'T';
31 #endif
32  }
33  else if ( bl1_is_conjtrans( blis_trans ))
34  {
35 #ifdef FLA_ENABLE_CBLAS_INTERFACES
36  *( ( enum CBLAS_TRANSPOSE* ) blas_trans ) = CblasConjTrans;
37 #else
38  *( ( char* ) blas_trans ) = 'C';
39 #endif
40  }
41  else
42  {
43  bl1_abort_msg( "Invalid BLIS trans value to map." );
44  }
45 }
Definition: blis_prototypes_cblas.h:18
void bl1_abort_msg(char *message)
Definition: bl1_abort.c:18
int bl1_is_conjtrans(trans1_t trans)
Definition: bl1_is.c:30
int bl1_is_trans(trans1_t trans)
Definition: bl1_is.c:20
CBLAS_TRANSPOSE
Definition: blis_prototypes_cblas.h:18
int bl1_is_notrans(trans1_t trans)
Definition: bl1_is.c:15
Definition: blis_prototypes_cblas.h:18
int bl1_is_conjnotrans(trans1_t trans)
Definition: bl1_is.c:25
Definition: blis_prototypes_cblas.h:18

◆ bl1_param_map_to_netlib_uplo()

void bl1_param_map_to_netlib_uplo ( uplo1_t  blis_uplo,
void *  blas_uplo 
)

References bl1_abort_msg(), bl1_is_lower(), bl1_is_upper(), CblasLower, and CblasUpper.

Referenced by bl1_chemm_blas(), bl1_chemv_blas(), bl1_cher2_blas(), bl1_cher2k_blas(), bl1_cher_blas(), bl1_cherk_blas(), bl1_csymm_blas(), bl1_csymv_blas(), bl1_csyr2_blas(), bl1_csyr2k_blas(), bl1_csyr_blas(), bl1_csyrk_blas(), bl1_ctrmm_blas(), bl1_ctrmv_blas(), bl1_ctrsm_blas(), bl1_ctrsv_blas(), bl1_dsymm_blas(), bl1_dsymv_blas(), bl1_dsyr2_blas(), bl1_dsyr2k_blas(), bl1_dsyr_blas(), bl1_dsyrk_blas(), bl1_dtrmm_blas(), bl1_dtrmv_blas(), bl1_dtrsm_blas(), bl1_dtrsv_blas(), bl1_ssymm_blas(), bl1_ssymv_blas(), bl1_ssyr2_blas(), bl1_ssyr2k_blas(), bl1_ssyr_blas(), bl1_ssyrk_blas(), bl1_strmm_blas(), bl1_strmv_blas(), bl1_strsm_blas(), bl1_strsv_blas(), bl1_zhemm_blas(), bl1_zhemv_blas(), bl1_zher2_blas(), bl1_zher2k_blas(), bl1_zher_blas(), bl1_zherk_blas(), bl1_zsymm_blas(), bl1_zsymv_blas(), bl1_zsyr2_blas(), bl1_zsyr2k_blas(), bl1_zsyr_blas(), bl1_zsyrk_blas(), bl1_ztrmm_blas(), bl1_ztrmv_blas(), bl1_ztrsm_blas(), and bl1_ztrsv_blas().

48 {
49  if ( bl1_is_lower( blis_uplo ) )
50  {
51 #ifdef FLA_ENABLE_CBLAS_INTERFACES
52  *( ( enum CBLAS_UPLO* ) blas_uplo ) = CblasLower;
53 #else
54  *( ( char* ) blas_uplo ) = 'L';
55 #endif
56  }
57  else if ( bl1_is_upper( blis_uplo ) )
58  {
59 #ifdef FLA_ENABLE_CBLAS_INTERFACES
60  *( ( enum CBLAS_UPLO* ) blas_uplo ) = CblasUpper;
61 #else
62  *( ( char* ) blas_uplo ) = 'U';
63 #endif
64  }
65  else
66  {
67  bl1_abort_msg( "Invalid BLIS uplo value to map." );
68  }
69 }
void bl1_abort_msg(char *message)
Definition: bl1_abort.c:18
int bl1_is_lower(uplo1_t uplo)
Definition: bl1_is.c:49
int bl1_is_upper(uplo1_t uplo)
Definition: bl1_is.c:54
CBLAS_UPLO
Definition: blis_prototypes_cblas.h:19
Definition: blis_prototypes_cblas.h:19
Definition: blis_prototypes_cblas.h:19