blis_prototypes_misc.h File Reference

(r12600)

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

void bl1_abort

(

void

)

Referenced by bl1_abort_msg(), bl1_daxmyv2(), bl1_daxpyv2b(), bl1_daxpyv2bdotaxpy(), bl1_daxpyv3b(), bl1_ddotaxmyv2(), bl1_ddotaxpy(), bl1_ddotsv2(), bl1_ddotsv3(), bl1_ddotv2axpyv2b(), bl1_saxmyv2(), bl1_saxpyv2b(), bl1_saxpyv2bdotaxpy(), bl1_saxpyv3b(), bl1_sdotaxmyv2(), bl1_sdotaxpy(), bl1_sdotsv2(), bl1_sdotsv3(), and bl1_sdotv2axpyv2b().

{
    abort();
}

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().

{
    fprintf( stderr, "BLIS: %s\n", message );
    fprintf( stderr, "BLIS: Aborting.\n" );
    bl1_abort();
}

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().

{
    if ( bl1_is_nonunit_diag( blis_diag ) )
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_DIAG* ) blas_diag ) = CblasNonUnit;
#else
        *( ( char*            ) blas_diag ) = 'N';
#endif
    }
    else if ( bl1_is_unit_diag( blis_diag ) )
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_DIAG* ) blas_diag ) = CblasUnit;
#else
        *( ( char*            ) blas_diag ) = 'U';
#endif
    }
    else
    {
        bl1_abort_msg( "Invalid BLIS diag value to map." );
    }
}

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().

{
    if ( bl1_is_left( blis_side ) )
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_SIDE* ) blas_side ) = CblasLeft;
#else
        *( ( char*            ) blas_side ) = 'L';
#endif
    }
    else if ( bl1_is_right( blis_side ) )
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_SIDE* ) blas_side ) = CblasRight;
#else
        *( ( char*            ) blas_side ) = 'R';
#endif
    }
    else
    {
        bl1_abort_msg( "Invalid BLIS side value to map." );
    }
}

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().

{
    if ( bl1_is_notrans( blis_trans ) || bl1_is_conjnotrans( blis_trans ) )
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_TRANSPOSE* ) blas_trans ) = CblasNoTrans;
#else
        *( ( char*                 ) blas_trans ) = 'N';
#endif
    }
    else if ( bl1_is_trans( blis_trans ) )
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_TRANSPOSE* ) blas_trans ) = CblasTrans;
#else
        *( ( char*                 ) blas_trans ) = 'T';
#endif
    }
    else if ( bl1_is_conjtrans( blis_trans ))
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_TRANSPOSE* ) blas_trans ) = CblasConjTrans;
#else
        *( ( char*                 ) blas_trans ) = 'C';
#endif
    }
    else
    {
        bl1_abort_msg( "Invalid BLIS trans value to map." );
    }
}

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().

{
    if ( bl1_is_lower( blis_uplo ) )
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_UPLO* ) blas_uplo ) = CblasLower;
#else
        *( ( char*            ) blas_uplo ) = 'L';
#endif
    }
    else if ( bl1_is_upper( blis_uplo ) )
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_UPLO* ) blas_uplo ) = CblasUpper;
#else
        *( ( char*            ) blas_uplo ) = 'U';
#endif
    }
    else
    {
        bl1_abort_msg( "Invalid BLIS uplo value to map." );
    }
}