FLA_Param.c File Reference

(r)

Functions
void	FLA_Param_map_flame_to_netlib_trans (FLA_Trans trans, void *blas_trans)
void	FLA_Param_map_flame_to_netlib_uplo (FLA_Uplo uplo, void *blas_uplo)
void	FLA_Param_map_flame_to_netlib_side (FLA_Side side, void *blas_side)
void	FLA_Param_map_flame_to_netlib_diag (FLA_Diag diag, void *blas_diag)
void	FLA_Param_map_flame_to_netlib_direct (FLA_Direct direct, void *lapack_direct)
void	FLA_Param_map_flame_to_netlib_storev (FLA_Store storev, void *lapack_storev)
void	FLA_Param_map_flame_to_netlib_evd_type (FLA_Evd_type evd_type, void *lapack_evd_type)
void	FLA_Param_map_flame_to_netlib_svd_type (FLA_Svd_type svd_type, void *lapack_svd_type)
void	FLA_Param_map_flame_to_netlib_machval (FLA_Machval machval, void *blas_machval)
void	FLA_Param_map_flame_to_blis_trans (FLA_Trans trans, trans1_t *blis_trans)
void	FLA_Param_map_flame_to_blis_conj (FLA_Conj conj, conj1_t *blis_conj)
void	FLA_Param_map_flame_to_blis_uplo (FLA_Uplo uplo, uplo1_t *blis_uplo)
void	FLA_Param_map_flame_to_blis_side (FLA_Side side, side1_t *blis_side)
void	FLA_Param_map_flame_to_blis_diag (FLA_Diag diag, diag1_t *blis_diag)
void	FLA_Param_map_netlib_to_flame_trans (char *trans, FLA_Trans *flame_trans)
void	FLA_Param_map_netlib_to_flame_uplo (char *uplo, FLA_Uplo *flame_uplo)
void	FLA_Param_map_netlib_to_flame_side (char *side, FLA_Side *flame_side)
void	FLA_Param_map_netlib_to_flame_diag (char *diag, FLA_Diag *flame_diag)
void	FLA_Param_map_netlib_to_flame_inv (int *itype, FLA_Inv *flame_inv)
void	FLA_Param_map_netlib_to_flame_svd_type (char *svd, FLA_Svd_type *flame_svd)
void	FLA_Param_map_blis_to_flame_trans (trans1_t trans, FLA_Trans *flame_trans)
void	FLA_Param_map_blis_to_flame_uplo (uplo1_t uplo, FLA_Uplo *flame_uplo)
void	FLA_Param_map_blis_to_flame_side (side1_t side, FLA_Side *flame_side)
void	FLA_Param_map_blis_to_flame_diag (diag1_t diag, FLA_Diag *flame_diag)
void	FLA_Param_map_char_to_flame_trans (char *trans, FLA_Trans *flame_trans)
void	FLA_Param_map_char_to_flame_uplo (char *uplo, FLA_Uplo *flame_uplo)
void	FLA_Param_map_char_to_flame_side (char *side, FLA_Side *flame_side)
void	FLA_Param_map_char_to_flame_diag (char *diag, FLA_Diag *flame_diag)
void	FLA_Param_map_char_to_flame_direct (char *direct, FLA_Direct *flame_direct)
void	FLA_Param_map_char_to_flame_storev (char *storev, FLA_Direct *flame_storev)
void	FLA_Param_map_char_to_flame_inv (char *inv, FLA_Inv *flame_inv)

Function Documentation

FLA_Param_map_blis_to_flame_diag()

void FLA_Param_map_blis_to_flame_diag	(	diag1_t	diag,
		FLA_Diag *	flame_diag )

{
    if      ( bl1_is_nonunit_diag( diag ) )
        *flame_diag = FLA_NONUNIT_DIAG;
    else if ( bl1_is_unit_diag( diag ) )
        *flame_diag = FLA_UNIT_DIAG;
    else if ( bl1_is_zero_diag( diag ) )
        *flame_diag = FLA_ZERO_DIAG;
    else
        FLA_Check_error_code( FLA_INVALID_DIAG );
}

References bl1_is_nonunit_diag(), bl1_is_unit_diag(), and bl1_is_zero_diag().

FLA_Param_map_blis_to_flame_side()

void FLA_Param_map_blis_to_flame_side	(	side1_t	side,
		FLA_Side *	flame_side )

{
    if      ( bl1_is_left( side ) )
        *flame_side = FLA_LEFT;
    else if ( bl1_is_right( side ) )
        *flame_side = FLA_RIGHT;
    else
        FLA_Check_error_code( FLA_INVALID_SIDE );
}

References bl1_is_left(), and bl1_is_right().

FLA_Param_map_blis_to_flame_trans()

void FLA_Param_map_blis_to_flame_trans	(	trans1_t	trans,
		FLA_Trans *	flame_trans )

{
    if      ( bl1_is_notrans( trans ) )
        *flame_trans = FLA_NO_TRANSPOSE;
    else if ( bl1_is_trans( trans ) )
        *flame_trans = FLA_TRANSPOSE;
    else if ( bl1_is_conjnotrans( trans ) )
        *flame_trans = FLA_CONJ_NO_TRANSPOSE;
    else if ( bl1_is_conjtrans( trans ) )
        *flame_trans = FLA_CONJ_TRANSPOSE;
    else
        FLA_Check_error_code( FLA_INVALID_TRANS );
}

References bl1_is_conjnotrans(), bl1_is_conjtrans(), bl1_is_notrans(), and bl1_is_trans().

FLA_Param_map_blis_to_flame_uplo()

void FLA_Param_map_blis_to_flame_uplo	(	uplo1_t	uplo,
		FLA_Uplo *	flame_uplo )

{
    if      ( bl1_is_lower( uplo ) )
        *flame_uplo = FLA_LOWER_TRIANGULAR;
    else if ( bl1_is_upper( uplo ) )
        *flame_uplo = FLA_UPPER_TRIANGULAR;
    else
        FLA_Check_error_code( FLA_INVALID_UPLO );
}

References bl1_is_lower(), and bl1_is_upper().

FLA_Param_map_char_to_flame_diag()

void FLA_Param_map_char_to_flame_diag	(	char *	diag,
		FLA_Diag *	flame_diag )

{
    if      ( *diag == 'n' || *diag == 'N' )
        *flame_diag = FLA_NONUNIT_DIAG;
    else if ( *diag == 'u' || *diag == 'U' )
        *flame_diag = FLA_UNIT_DIAG;
    else
        FLA_Check_error_code( FLA_INVALID_DIAG );
}

FLA_Param_map_char_to_flame_direct()

void FLA_Param_map_char_to_flame_direct	(	char *	direct,
		FLA_Direct *	flame_direct )

{
    if      ( *direct == 'b' || *direct == 'B' )
        *flame_direct = FLA_BACKWARD;
    else if ( *direct == 'f' || *direct == 'F' )
        *flame_direct = FLA_FORWARD;
    else
        FLA_Check_error_code( FLA_INVALID_DIRECT );
}

FLA_Param_map_char_to_flame_inv()

void FLA_Param_map_char_to_flame_inv	(	char *	inv,
		FLA_Inv *	flame_inv )

{
    if      ( *inv == 'i' || *inv == 'I' )
        *flame_inv = FLA_INVERSE;
    else if ( *inv == 'n' || *inv == 'N' )
        *flame_inv = FLA_NO_INVERSE;
    else
        FLA_Check_error_code( FLA_INVALID_INVERSE );
}

FLA_Param_map_char_to_flame_side()

void FLA_Param_map_char_to_flame_side	(	char *	side,
		FLA_Side *	flame_side )

{
    if      ( *side == 'l' || *side == 'L' )
        *flame_side = FLA_LEFT;
    else if ( *side == 'r' || *side == 'R' )
        *flame_side = FLA_RIGHT;
    else
        FLA_Check_error_code( FLA_INVALID_SIDE );
}

FLA_Param_map_char_to_flame_storev()

void FLA_Param_map_char_to_flame_storev	(	char *	storev,
		FLA_Direct *	flame_storev )

{
    if      ( *storev == 'c' || *storev == 'C' )
        *flame_storev = FLA_COLUMNWISE;
    else if ( *storev == 'r' || *storev == 'R' )
        *flame_storev = FLA_ROWWISE;
    else
        FLA_Check_error_code( FLA_INVALID_STOREV );
}

FLA_Param_map_char_to_flame_trans()

void FLA_Param_map_char_to_flame_trans	(	char *	trans,
		FLA_Trans *	flame_trans )

{
    if      ( *trans == 'n' || *trans == 'N' )
        *flame_trans = FLA_NO_TRANSPOSE;
    else if ( *trans == 't' || *trans == 'T' )
        *flame_trans = FLA_TRANSPOSE;
    else if ( *trans == 'c' || *trans == 'C' )
        *flame_trans = FLA_CONJ_NO_TRANSPOSE;
    else if ( *trans == 'h' || *trans == 'H' )
        *flame_trans = FLA_CONJ_TRANSPOSE;
    else
        FLA_Check_error_code( FLA_INVALID_TRANS );
}

FLA_Param_map_char_to_flame_uplo()

void FLA_Param_map_char_to_flame_uplo	(	char *	uplo,
		FLA_Uplo *	flame_uplo )

{
    if      ( *uplo == 'l' || *uplo == 'L' )
        *flame_uplo = FLA_LOWER_TRIANGULAR;
    else if ( *uplo == 'u' || *uplo == 'U' )
        *flame_uplo = FLA_UPPER_TRIANGULAR;
    else
        FLA_Check_error_code( FLA_INVALID_UPLO );
}

FLA_Param_map_flame_to_blis_conj()

void FLA_Param_map_flame_to_blis_conj	(	FLA_Conj	conj,
		conj1_t *	blis_conj )

{
    if ( conj == FLA_NO_CONJUGATE )
    {
        *blis_conj = BLIS1_NO_CONJUGATE;
    }
    else if ( conj == FLA_CONJUGATE )
    {
        *blis_conj = BLIS1_CONJUGATE;
    }
    else
    {
        FLA_Check_error_code( FLA_INVALID_CONJ );
    }
}

References BLIS1_CONJUGATE, and BLIS1_NO_CONJUGATE.

Referenced by FLA_Apply_diag_matrix(), FLA_Dot2cs_external(), FLA_Dot2s_external(), FLA_Dot_external(), FLA_Dotc_external(), FLA_Dotcs_external(), FLA_Dots_external(), FLA_Gemv_external(), FLA_Gemvc_external(), FLA_Ger_external(), FLA_Gerc_external(), FLA_Hemv_external(), FLA_Hemvc_external(), FLA_Her2_external(), FLA_Her2c_external(), FLA_Her_external(), FLA_Herc_external(), FLA_Hermitianize(), FLA_Inv_scal_external(), FLA_Inv_scalc_external(), FLA_Invert(), FLA_Scal_external(), FLA_Scalc_external(), FLA_Scale_diag(), FLA_Shift_diag(), and FLA_Symmetrize().

FLA_Param_map_flame_to_blis_diag()

void FLA_Param_map_flame_to_blis_diag	(	FLA_Diag	diag,
		diag1_t *	blis_diag )

{
    if ( diag == FLA_NONUNIT_DIAG )
    {
        *blis_diag = BLIS1_NONUNIT_DIAG;
    }
    else if ( diag == FLA_UNIT_DIAG )
    {
        *blis_diag = BLIS1_UNIT_DIAG;
    }
    else
    {
        FLA_Check_error_code( FLA_INVALID_DIAG );
    }
}

References BLIS1_NONUNIT_DIAG, and BLIS1_UNIT_DIAG.

Referenced by FLA_Random_tri_matrix(), FLA_Trmm_external(), FLA_Trmmsx_external(), FLA_Trmv_external(), FLA_Trsm_external(), FLA_Trsmsx_external(), and FLA_Trsv_external().

FLA_Param_map_flame_to_blis_side()

void FLA_Param_map_flame_to_blis_side	(	FLA_Side	side,
		side1_t *	blis_side )

{
    if ( side == FLA_LEFT )
    {
        *blis_side = BLIS1_LEFT;
    }
    else if ( side == FLA_RIGHT )
    {
        *blis_side = BLIS1_RIGHT;
    }
    else
    {
        FLA_Check_error_code( FLA_INVALID_SIDE );
    }
}

References BLIS1_LEFT, and BLIS1_RIGHT.

Referenced by FLA_Apply_diag_matrix(), FLA_Hemm_external(), FLA_Symm_external(), FLA_Trmm_external(), FLA_Trmmsx_external(), FLA_Trsm_external(), and FLA_Trsmsx_external().

FLA_Param_map_flame_to_blis_trans()

void FLA_Param_map_flame_to_blis_trans	(	FLA_Trans	trans,
		trans1_t *	blis_trans )

{
    if ( trans == FLA_NO_TRANSPOSE )
    {
        *blis_trans = BLIS1_NO_TRANSPOSE;
    }
    else if ( trans == FLA_TRANSPOSE )
    {
        *blis_trans = BLIS1_TRANSPOSE;
    }
    else if ( trans == FLA_CONJ_NO_TRANSPOSE )
    {
        *blis_trans = BLIS1_CONJ_NO_TRANSPOSE;
    }
    else if ( trans == FLA_CONJ_TRANSPOSE )
    {
        *blis_trans = BLIS1_CONJ_TRANSPOSE;
    }
    else
    {
        FLA_Check_error_code( FLA_INVALID_TRANS );
    }
}

References BLIS1_CONJ_NO_TRANSPOSE, BLIS1_CONJ_TRANSPOSE, BLIS1_NO_TRANSPOSE, and BLIS1_TRANSPOSE.

Referenced by FLA_Axpy_external(), FLA_Axpyrt_external(), FLA_Axpys_external(), FLA_Axpyt_external(), FLA_Copy_external(), FLA_Copyrt_external(), FLA_Copyt_external(), FLA_Gemm_external(), FLA_Gemv_external(), FLA_Gemvc_external(), FLA_Her2k_external(), FLA_Herk_external(), FLA_Inv_scal_elemwise(), FLA_Scal_elemwise(), FLA_Swap_external(), FLA_Swapt_external(), FLA_Syr2k_external(), FLA_Syrk_external(), FLA_Trmm_external(), FLA_Trmmsx_external(), FLA_Trmv_external(), FLA_Trsm_external(), FLA_Trsmsx_external(), and FLA_Trsv_external().

FLA_Param_map_flame_to_blis_uplo()

void FLA_Param_map_flame_to_blis_uplo	(	FLA_Uplo	uplo,
		uplo1_t *	blis_uplo )

{
    if ( uplo == FLA_LOWER_TRIANGULAR )
    {
        *blis_uplo = BLIS1_LOWER_TRIANGULAR;
    }
    else if ( uplo == FLA_UPPER_TRIANGULAR )
    {
        *blis_uplo = BLIS1_UPPER_TRIANGULAR;
    }
    else
    {
        FLA_Check_error_code( FLA_INVALID_UPLO );
    }
}

References BLIS1_LOWER_TRIANGULAR, and BLIS1_UPPER_TRIANGULAR.

Referenced by FLA_Axpyrt_external(), FLA_Conjugate_r(), FLA_Copyr_external(), FLA_Copyrt_external(), FLA_Hemm_external(), FLA_Hemv_external(), FLA_Hemvc_external(), FLA_Her2_external(), FLA_Her2c_external(), FLA_Her2k_external(), FLA_Her_external(), FLA_Herc_external(), FLA_Herk_external(), FLA_Hermitianize(), FLA_Max_abs_value_herm(), FLA_Random_tri_matrix(), FLA_Scalr_external(), FLA_Setr(), FLA_Symm_external(), FLA_Symmetrize(), FLA_Symv_external(), FLA_Syr2_external(), FLA_Syr2k_external(), FLA_Syr_external(), FLA_Syrk_external(), FLA_Triangularize(), FLA_Trmm_external(), FLA_Trmmsx_external(), FLA_Trmv_external(), FLA_Trsm_external(), FLA_Trsmsx_external(), and FLA_Trsv_external().

FLA_Param_map_flame_to_netlib_diag()

void FLA_Param_map_flame_to_netlib_diag	(	FLA_Diag	diag,
		void *	blas_diag )

{
    if ( diag == FLA_NONUNIT_DIAG )
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_DIAG* ) blas_diag ) = CblasNonUnit;
#else
        *( ( char*            ) blas_diag ) = 'N';
#endif
    }
    else if ( diag == FLA_UNIT_DIAG )
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_DIAG* ) blas_diag ) = CblasUnit;
#else
        *( ( char*            ) blas_diag ) = 'U';
#endif
    }
    else
    {
        FLA_Check_error_code( FLA_INVALID_DIAG );
    }
}

References CblasNonUnit, and CblasUnit.

Referenced by FLA_Trinv_blk_external(), FLA_Trinv_unb_external(), FLA_Trmm_external_gpu(), FLA_Trsm_external_gpu(), and FLA_Trsv_external_gpu().

FLA_Param_map_flame_to_netlib_direct()

void FLA_Param_map_flame_to_netlib_direct	(	FLA_Direct	direct,
		void *	lapack_direct )

{
    if ( direct == FLA_FORWARD )
    {
        *( ( char* ) lapack_direct ) = 'F';
    }
    else if ( direct == FLA_BACKWARD )
    {
        *( ( char* ) lapack_direct ) = 'B';
    }
    else
    {
        FLA_Check_error_code( FLA_INVALID_DIRECT );
    }
}

FLA_Param_map_flame_to_netlib_evd_type()

void FLA_Param_map_flame_to_netlib_evd_type	(	FLA_Evd_type	evd_type,
		void *	lapack_evd_type )

{
    if ( evd_type == FLA_EVD_WITHOUT_VECTORS )
    {
        *( ( char* ) lapack_evd_type ) = 'N';
    }
    else if ( evd_type == FLA_EVD_WITH_VECTORS )
    {
        *( ( char* ) lapack_evd_type ) = 'V';
    }
    else if ( evd_type == FLA_EVD_OF_TRIDIAG_WITH_VECTORS )
    {
        *( ( char* ) lapack_evd_type ) = 'I';
    }
    else
    {
        FLA_Check_error_code( FLA_INVALID_EVD_TYPE );
    }
}

Referenced by FLA_Hevd_external(), FLA_Hevdd_external(), FLA_Hevdr_external(), FLA_Tevd_external(), FLA_Tevdd_external(), and FLA_Tevdr_external().

FLA_Param_map_flame_to_netlib_machval()

void FLA_Param_map_flame_to_netlib_machval	(	FLA_Machval	machval,
		void *	blas_machval )

{
    if      ( machval == FLA_MACH_EPS )
    {
        *( ( char* ) blas_machval ) = 'E';
    }
    else if ( machval == FLA_MACH_SFMIN )
    {
        *( ( char* ) blas_machval ) = 'S';
    }
    else if ( machval == FLA_MACH_BASE )
    {
        *( ( char* ) blas_machval ) = 'B';
    }
    else if ( machval == FLA_MACH_PREC )
    {
        *( ( char* ) blas_machval ) = 'P';
    }
    else if ( machval == FLA_MACH_NDIGMANT )
    {
        *( ( char* ) blas_machval ) = 'N';
    }
    else if ( machval == FLA_MACH_RND )
    {
        *( ( char* ) blas_machval ) = 'R';
    }
    else if ( machval == FLA_MACH_EMIN )
    {
        *( ( char* ) blas_machval ) = 'M';
    }
    else if ( machval == FLA_MACH_RMIN )
    {
        *( ( char* ) blas_machval ) = 'U';
    }
    else if ( machval == FLA_MACH_EMAX )
    {
        *( ( char* ) blas_machval ) = 'L';
    }
    else if ( machval == FLA_MACH_RMAX )
    {
        *( ( char* ) blas_machval ) = 'O';
    }
    else
    {
        FLA_Check_error_code( FLA_INVALID_MACHVAL );
    }
}

Referenced by FLA_Mach_params_opd(), and FLA_Mach_params_ops().

FLA_Param_map_flame_to_netlib_side()

void FLA_Param_map_flame_to_netlib_side	(	FLA_Side	side,
		void *	blas_side )

{
    if ( side == FLA_LEFT )
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_SIDE* ) blas_side ) = CblasLeft;
#else
        *( ( char*            ) blas_side ) = 'L';
#endif
    }
    else if ( side == FLA_RIGHT )
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_SIDE* ) blas_side ) = CblasRight;
#else
        *( ( char*            ) blas_side ) = 'R';
#endif
    }
    else
    {
        FLA_Check_error_code( FLA_INVALID_SIDE );
    }
}

References CblasLeft, and CblasRight.

Referenced by FLA_Apply_Q_blk_external(), FLA_Bidiag_apply_U_external(), FLA_Bidiag_apply_V_external(), FLA_Hemm_external_gpu(), FLA_Symm_external_gpu(), FLA_Tridiag_apply_Q_external(), FLA_Trmm_external_gpu(), and FLA_Trsm_external_gpu().

FLA_Param_map_flame_to_netlib_storev()

void FLA_Param_map_flame_to_netlib_storev	(	FLA_Store	storev,
		void *	lapack_storev )

{
    if ( storev == FLA_COLUMNWISE )
    {
        *( ( char* ) lapack_storev ) = 'C';
    }
    else if ( storev == FLA_ROWWISE )
    {
        *( ( char* ) lapack_storev ) = 'R';
    }
    else
    {
        FLA_Check_error_code( FLA_INVALID_STOREV );
    }
}

FLA_Param_map_flame_to_netlib_svd_type()

void FLA_Param_map_flame_to_netlib_svd_type	(	FLA_Svd_type	svd_type,
		void *	lapack_svd_type )

{
    if      ( svd_type == FLA_SVD_VECTORS_ALL )
    {
        *( ( char* ) lapack_svd_type ) = 'A';
    }
    else if ( svd_type == FLA_SVD_VECTORS_MIN_COPY )
    {
        *( ( char* ) lapack_svd_type ) = 'S';
    }
    else if ( svd_type == FLA_SVD_VECTORS_MIN_OVERWRITE )
    {
        *( ( char* ) lapack_svd_type ) = 'O';
    }
    else if ( svd_type == FLA_SVD_VECTORS_NONE )
    {
        *( ( char* ) lapack_svd_type ) = 'N';
    }
    else
    {
        FLA_Check_error_code( FLA_INVALID_SVD_TYPE );
    }
}

Referenced by FLA_Svd_external(), and FLA_Svdd_external().

FLA_Param_map_flame_to_netlib_trans()

void FLA_Param_map_flame_to_netlib_trans	(	FLA_Trans	trans,
		void *	blas_trans )

{
    if ( trans == FLA_NO_TRANSPOSE )
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_TRANSPOSE* ) blas_trans ) = CblasNoTrans;
#else
        *( ( char*                 ) blas_trans ) = 'N';
#endif
    }
    else if ( trans == FLA_TRANSPOSE )
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_TRANSPOSE* ) blas_trans ) = CblasTrans;
#else
        *( ( char*                 ) blas_trans ) = 'T';
#endif
    }
    else if ( trans == FLA_CONJ_TRANSPOSE )
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_TRANSPOSE* ) blas_trans ) = CblasConjTrans;
#else
        *( ( char*                 ) blas_trans ) = 'C';
#endif
    }
    else
    {
        FLA_Check_error_code( FLA_INVALID_TRANS );
    }
}

References CblasConjTrans, CblasNoTrans, and CblasTrans.

Referenced by FLA_Apply_Q_blk_external(), FLA_Bidiag_apply_U_external(), FLA_Bidiag_apply_V_external(), FLA_Gemm_external_gpu(), FLA_Gemv_external_gpu(), FLA_Her2k_external_gpu(), FLA_Herk_external_gpu(), FLA_Sylv_unb_external(), FLA_Syr2k_external_gpu(), FLA_Syrk_external_gpu(), FLA_Tridiag_apply_Q_external(), FLA_Trmm_external_gpu(), FLA_Trsm_external_gpu(), and FLA_Trsv_external_gpu().

FLA_Param_map_flame_to_netlib_uplo()

void FLA_Param_map_flame_to_netlib_uplo	(	FLA_Uplo	uplo,
		void *	blas_uplo )

{
    if ( uplo == FLA_LOWER_TRIANGULAR )
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_UPLO* ) blas_uplo ) = CblasLower;
#else
        *( ( char*            ) blas_uplo ) = 'L';
#endif
    }
    else if ( uplo == FLA_UPPER_TRIANGULAR )
    {
#ifdef FLA_ENABLE_CBLAS_INTERFACES
        *( ( enum CBLAS_UPLO* ) blas_uplo ) = CblasUpper;
#else
        *( ( char*            ) blas_uplo ) = 'U';
#endif
    }
    else
    {
        FLA_Check_error_code( FLA_INVALID_UPLO );
    }
}

References CblasLower, and CblasUpper.

Referenced by FLA_Bsvd_external(), FLA_Bsvdd_external(), FLA_Chol_blk_external(), FLA_Chol_unb_external(), FLA_Eig_gest_blk_external(), FLA_Eig_gest_unb_external(), FLA_Hemm_external_gpu(), FLA_Her2k_external_gpu(), FLA_Herk_external_gpu(), FLA_Hevd_external(), FLA_Hevdd_external(), FLA_Hevdr_external(), FLA_Symm_external_gpu(), FLA_Syr2k_external_gpu(), FLA_Syrk_external_gpu(), FLA_Tridiag_apply_Q_external(), FLA_Tridiag_blk_external(), FLA_Tridiag_form_Q_external(), FLA_Tridiag_unb_external(), FLA_Trinv_blk_external(), FLA_Trinv_unb_external(), FLA_Trmm_external_gpu(), FLA_Trsm_external_gpu(), FLA_Trsv_external_gpu(), FLA_Ttmm_blk_external(), and FLA_Ttmm_unb_external().

FLA_Param_map_netlib_to_flame_diag()

void FLA_Param_map_netlib_to_flame_diag	(	char *	diag,
		FLA_Diag *	flame_diag )

{
    if      ( *diag == 'n' || *diag == 'N' )
        *flame_diag = FLA_NONUNIT_DIAG;
    else if ( *diag == 'u' || *diag == 'U' )
        *flame_diag = FLA_UNIT_DIAG;
    else
        FLA_Check_error_code( FLA_INVALID_DIAG );
}

FLA_Param_map_netlib_to_flame_inv()

void FLA_Param_map_netlib_to_flame_inv	(	int *	itype,
		FLA_Inv *	flame_inv )

{
    if      ( *itype == 1 )
        *flame_inv = FLA_INVERSE;
    else if ( *itype == 2 || *itype == 3 )
        *flame_inv = FLA_NO_INVERSE;
    else
        FLA_Check_error_code( FLA_INVALID_INVERSE );
}

FLA_Param_map_netlib_to_flame_side()

void FLA_Param_map_netlib_to_flame_side	(	char *	side,
		FLA_Side *	flame_side )

{
    if      ( *side == 'l' || *side == 'L' )
        *flame_side = FLA_LEFT;
    else if ( *side == 'r' || *side == 'R' )
        *flame_side = FLA_RIGHT;
    else
        FLA_Check_error_code( FLA_INVALID_SIDE );
}

FLA_Param_map_netlib_to_flame_svd_type()

void FLA_Param_map_netlib_to_flame_svd_type	(	char *	svd,
		FLA_Svd_type *	flame_svd )

{
        if      ( *svd == 'A' || *svd == 'a' ) 
                *flame_svd = FLA_SVD_VECTORS_ALL;
    else if ( *svd == 'S' || *svd == 's' ) 
                *flame_svd = FLA_SVD_VECTORS_MIN_COPY;
    else if ( *svd == 'O' || *svd == 'o' ) 
                *flame_svd = FLA_SVD_VECTORS_MIN_OVERWRITE;
    else if ( *svd == 'N' || *svd == 'n' ) 
                *flame_svd = FLA_SVD_VECTORS_NONE;
    else
        FLA_Check_error_code( FLA_INVALID_SVD_TYPE );
}

FLA_Param_map_netlib_to_flame_trans()

void FLA_Param_map_netlib_to_flame_trans	(	char *	trans,
		FLA_Trans *	flame_trans )

{
    if      ( *trans == 'n' || *trans == 'N' )
        *flame_trans = FLA_NO_TRANSPOSE;
    else if ( *trans == 't' || *trans == 'T' )
        *flame_trans = FLA_TRANSPOSE;
    else if ( *trans == 'c' || *trans == 'C' )
        *flame_trans = FLA_CONJ_TRANSPOSE;
    else
        FLA_Check_error_code( FLA_INVALID_TRANS );
}

FLA_Param_map_netlib_to_flame_uplo()

void FLA_Param_map_netlib_to_flame_uplo	(	char *	uplo,
		FLA_Uplo *	flame_uplo )

{
    if      ( *uplo == 'l' || *uplo == 'L' )
        *flame_uplo = FLA_LOWER_TRIANGULAR;
    else if ( *uplo == 'u' || *uplo == 'U' )
        *flame_uplo = FLA_UPPER_TRIANGULAR;
    else
        FLA_Check_error_code( FLA_INVALID_UPLO );
}