|
libflame
12600
|
| void FLA_Param_map_blis_to_flame_diag | ( | diag1_t | diag, |
| FLA_Diag * | flame_diag | ||
| ) |
References bl1_is_nonunit_diag(), bl1_is_unit_diag(), and bl1_is_zero_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 );
}
| void FLA_Param_map_blis_to_flame_side | ( | side1_t | side, |
| FLA_Side * | flame_side | ||
| ) |
References bl1_is_left(), and bl1_is_right().
{
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 );
}
| void FLA_Param_map_blis_to_flame_trans | ( | trans1_t | trans, |
| FLA_Trans * | flame_trans | ||
| ) |
References bl1_is_conjnotrans(), bl1_is_conjtrans(), bl1_is_notrans(), and bl1_is_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 );
}
| void FLA_Param_map_blis_to_flame_uplo | ( | uplo1_t | uplo, |
| FLA_Uplo * | flame_uplo | ||
| ) |
References bl1_is_lower(), and bl1_is_upper().
{
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 );
}
| 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 );
}
| 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 );
}
| 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 );
}
| 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 );
}
| 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 );
}
| 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 );
}
| 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 );
}
| void FLA_Param_map_flame_to_blis_conj | ( | FLA_Conj | conj, |
| conj1_t * | blis_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().
{
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 );
}
}
| void FLA_Param_map_flame_to_blis_diag | ( | FLA_Diag | diag, |
| diag1_t * | blis_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().
{
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 );
}
}
| void FLA_Param_map_flame_to_blis_side | ( | FLA_Side | side, |
| side1_t * | blis_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().
{
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 );
}
}
| void FLA_Param_map_flame_to_blis_trans | ( | FLA_Trans | trans, |
| trans1_t * | blis_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().
{
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 );
}
}
| void FLA_Param_map_flame_to_blis_uplo | ( | FLA_Uplo | uplo, |
| uplo1_t * | blis_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().
{
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 );
}
}
| void FLA_Param_map_flame_to_netlib_diag | ( | FLA_Diag | diag, |
| void * | blas_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().
{
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 );
}
}
| 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 );
}
}
| void FLA_Param_map_flame_to_netlib_evd_type | ( | FLA_Evd_type | evd_type, |
| void * | lapack_evd_type | ||
| ) |
Referenced by FLA_Hevd_external(), FLA_Hevdd_external(), FLA_Hevdr_external(), FLA_Tevd_external(), FLA_Tevdd_external(), and FLA_Tevdr_external().
{
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 );
}
}
| void FLA_Param_map_flame_to_netlib_machval | ( | FLA_Machval | machval, |
| void * | blas_machval | ||
| ) |
Referenced by FLA_Mach_params_opd(), and FLA_Mach_params_ops().
{
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 );
}
}
| void FLA_Param_map_flame_to_netlib_side | ( | FLA_Side | side, |
| void * | blas_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().
{
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 );
}
}
| 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 );
}
}
| void FLA_Param_map_flame_to_netlib_svd_type | ( | FLA_Svd_type | svd_type, |
| void * | lapack_svd_type | ||
| ) |
Referenced by FLA_Svd_external(), and FLA_Svdd_external().
{
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 );
}
}
| void FLA_Param_map_flame_to_netlib_trans | ( | FLA_Trans | trans, |
| void * | blas_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().
{
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 );
}
}
| void FLA_Param_map_flame_to_netlib_uplo | ( | FLA_Uplo | uplo, |
| void * | blas_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().
{
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 );
}
}
| 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 );
}
| 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 );
}
| 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 );
}
| 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 );
}
| 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 );
}
| 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 );
}
1.7.6.1