libflame
revision_anchor
|
Functions | |
void | bli_param_map_to_netlib_trans (trans_t blis_trans, void *blas_trans) |
void | bli_param_map_to_netlib_uplo (uplo_t blis_uplo, void *blas_uplo) |
void | bli_param_map_to_netlib_side (side_t blis_side, void *blas_side) |
void | bli_param_map_to_netlib_diag (diag_t blis_diag, void *blas_diag) |
void bli_param_map_to_netlib_diag | ( | diag_t | blis_diag, |
void * | blas_diag | ||
) |
References bli_abort_msg(), bli_is_nonunit_diag(), bli_is_unit_diag(), CblasNonUnit, and CblasUnit.
Referenced by bli_ctrmm_blas(), bli_ctrmv_blas(), bli_ctrsm_blas(), bli_ctrsv_blas(), bli_dtrmm_blas(), bli_dtrmv_blas(), bli_dtrsm_blas(), bli_dtrsv_blas(), bli_strmm_blas(), bli_strmv_blas(), bli_strsm_blas(), bli_strsv_blas(), bli_ztrmm_blas(), bli_ztrmv_blas(), bli_ztrsm_blas(), and bli_ztrsv_blas().
{ if ( bli_is_nonunit_diag( blis_diag ) ) { #ifdef FLA_ENABLE_CBLAS_INTERFACES *( ( enum CBLAS_DIAG* ) blas_diag ) = CblasNonUnit; #else *( ( char* ) blas_diag ) = 'N'; #endif } else if ( bli_is_unit_diag( blis_diag ) ) { #ifdef FLA_ENABLE_CBLAS_INTERFACES *( ( enum CBLAS_DIAG* ) blas_diag ) = CblasUnit; #else *( ( char* ) blas_diag ) = 'U'; #endif } else { bli_abort_msg( "Invalid BLIS diag value to map." ); } }
void bli_param_map_to_netlib_side | ( | side_t | blis_side, |
void * | blas_side | ||
) |
References bli_abort_msg(), bli_is_left(), bli_is_right(), CblasLeft, and CblasRight.
Referenced by bli_chemm_blas(), bli_csymm_blas(), bli_csymv_blas(), bli_ctrmm_blas(), bli_ctrsm_blas(), bli_dsymm_blas(), bli_dtrmm_blas(), bli_dtrsm_blas(), bli_ssymm_blas(), bli_strmm_blas(), bli_strsm_blas(), bli_zhemm_blas(), bli_zsymm_blas(), bli_zsymv_blas(), bli_ztrmm_blas(), and bli_ztrsm_blas().
{ if ( bli_is_left( blis_side ) ) { #ifdef FLA_ENABLE_CBLAS_INTERFACES *( ( enum CBLAS_SIDE* ) blas_side ) = CblasLeft; #else *( ( char* ) blas_side ) = 'L'; #endif } else if ( bli_is_right( blis_side ) ) { #ifdef FLA_ENABLE_CBLAS_INTERFACES *( ( enum CBLAS_SIDE* ) blas_side ) = CblasRight; #else *( ( char* ) blas_side ) = 'R'; #endif } else { bli_abort_msg( "Invalid BLIS side value to map." ); } }
void bli_param_map_to_netlib_trans | ( | trans_t | blis_trans, |
void * | blas_trans | ||
) |
References bli_abort_msg(), bli_is_conjnotrans(), bli_is_conjtrans(), bli_is_notrans(), bli_is_trans(), CblasConjTrans, CblasNoTrans, and CblasTrans.
Referenced by bli_cgemm_blas(), bli_cgemv_blas(), bli_cher2k_blas(), bli_cherk_blas(), bli_csyr2_blas(), bli_csyr2k_blas(), bli_csyr_blas(), bli_csyrk_blas(), bli_ctrmm_blas(), bli_ctrmv_blas(), bli_ctrsm_blas(), bli_ctrsv_blas(), bli_dgemm_blas(), bli_dgemv_blas(), bli_dsyr2k_blas(), bli_dsyrk_blas(), bli_dtrmm_blas(), bli_dtrmv_blas(), bli_dtrsm_blas(), bli_dtrsv_blas(), bli_sgemm_blas(), bli_sgemv_blas(), bli_ssyr2k_blas(), bli_ssyrk_blas(), bli_strmm_blas(), bli_strmv_blas(), bli_strsm_blas(), bli_strsv_blas(), bli_zgemm_blas(), bli_zgemv_blas(), bli_zher2k_blas(), bli_zherk_blas(), bli_zsyr2_blas(), bli_zsyr2k_blas(), bli_zsyr_blas(), bli_zsyrk_blas(), bli_ztrmm_blas(), bli_ztrmv_blas(), bli_ztrsm_blas(), and bli_ztrsv_blas().
{ if ( bli_is_notrans( blis_trans ) || bli_is_conjnotrans( blis_trans ) ) { #ifdef FLA_ENABLE_CBLAS_INTERFACES *( ( enum CBLAS_TRANSPOSE* ) blas_trans ) = CblasNoTrans; #else *( ( char* ) blas_trans ) = 'N'; #endif } else if ( bli_is_trans( blis_trans ) ) { #ifdef FLA_ENABLE_CBLAS_INTERFACES *( ( enum CBLAS_TRANSPOSE* ) blas_trans ) = CblasTrans; #else *( ( char* ) blas_trans ) = 'T'; #endif } else if ( bli_is_conjtrans( blis_trans )) { #ifdef FLA_ENABLE_CBLAS_INTERFACES *( ( enum CBLAS_TRANSPOSE* ) blas_trans ) = CblasConjTrans; #else *( ( char* ) blas_trans ) = 'C'; #endif } else { bli_abort_msg( "Invalid BLIS trans value to map." ); } }
void bli_param_map_to_netlib_uplo | ( | uplo_t | blis_uplo, |
void * | blas_uplo | ||
) |
References bli_abort_msg(), bli_is_lower(), bli_is_upper(), CblasLower, and CblasUpper.
Referenced by bli_chemm_blas(), bli_chemv_blas(), bli_cher2_blas(), bli_cher2k_blas(), bli_cher_blas(), bli_cherk_blas(), bli_csymm_blas(), bli_csymv_blas(), bli_csyr2_blas(), bli_csyr2k_blas(), bli_csyr_blas(), bli_csyrk_blas(), bli_ctrmm_blas(), bli_ctrmv_blas(), bli_ctrsm_blas(), bli_ctrsv_blas(), bli_dsymm_blas(), bli_dsymv_blas(), bli_dsyr2_blas(), bli_dsyr2k_blas(), bli_dsyr_blas(), bli_dsyrk_blas(), bli_dtrmm_blas(), bli_dtrmv_blas(), bli_dtrsm_blas(), bli_dtrsv_blas(), bli_ssymm_blas(), bli_ssymv_blas(), bli_ssyr2_blas(), bli_ssyr2k_blas(), bli_ssyr_blas(), bli_ssyrk_blas(), bli_strmm_blas(), bli_strmv_blas(), bli_strsm_blas(), bli_strsv_blas(), bli_zhemm_blas(), bli_zhemv_blas(), bli_zher2_blas(), bli_zher2k_blas(), bli_zher_blas(), bli_zherk_blas(), bli_zsymm_blas(), bli_zsymv_blas(), bli_zsyr2_blas(), bli_zsyr2k_blas(), bli_zsyr_blas(), bli_zsyrk_blas(), bli_ztrmm_blas(), bli_ztrmv_blas(), bli_ztrsm_blas(), and bli_ztrsv_blas().
{ if ( bli_is_lower( blis_uplo ) ) { #ifdef FLA_ENABLE_CBLAS_INTERFACES *( ( enum CBLAS_UPLO* ) blas_uplo ) = CblasLower; #else *( ( char* ) blas_uplo ) = 'L'; #endif } else if ( bli_is_upper( blis_uplo ) ) { #ifdef FLA_ENABLE_CBLAS_INTERFACES *( ( enum CBLAS_UPLO* ) blas_uplo ) = CblasUpper; #else *( ( char* ) blas_uplo ) = 'U'; #endif } else { bli_abort_msg( "Invalid BLIS uplo value to map." ); } }