Functions | |
void | FLA_Param_map_to_blas_trans (FLA_Trans trans, void *blas_trans) |
void | FLA_Param_map_to_blas_uplo (FLA_Uplo uplo, void *blas_uplo) |
void | FLA_Param_map_to_blas_side (FLA_Side side, void *blas_side) |
void | FLA_Param_map_to_blas_diag (FLA_Diag diag, void *blas_diag) |
void | FLA_Param_map_to_lapack_direct (FLA_Direct direct, void *lapack_direct) |
void | FLA_Param_map_to_lapack_storev (FLA_Store storev, void *lapack_storev) |
void FLA_Param_map_to_blas_diag | ( | FLA_Diag | diag, | |
void * | blas_diag | |||
) |
References CblasNonUnit, and CblasUnit.
Referenced by FLA_Trinv_blk_external(), FLA_Trinv_unb_external(), FLA_Trmm_external(), FLA_Trmv_external(), FLA_Trsm_external(), and FLA_Trsv_external().
00134 { 00135 if ( diag == FLA_NONUNIT_DIAG ) 00136 { 00137 #ifdef FLA_ENABLE_CBLAS_INTERFACE 00138 *( ( CBLAS_DIAG* ) blas_diag ) = CblasNonUnit; 00139 #else 00140 *( ( char* ) blas_diag ) = 'N'; 00141 #endif 00142 } 00143 else 00144 { 00145 #ifdef FLA_ENABLE_CBLAS_INTERFACE 00146 *( ( CBLAS_DIAG* ) blas_diag ) = CblasUnit; 00147 #else 00148 *( ( char* ) blas_diag ) = 'U'; 00149 #endif 00150 } 00151 }
void FLA_Param_map_to_blas_side | ( | FLA_Side | side, | |
void * | blas_side | |||
) |
References CblasLeft, and CblasRight.
Referenced by FLA_Apply_Q_blk_external(), FLA_Apply_Q_unb_external(), FLA_Hemm_external(), FLA_Symm_external(), FLA_Trmm_external(), and FLA_Trsm_external().
00108 { 00109 if ( side == FLA_LEFT ) 00110 { 00111 #ifdef FLA_ENABLE_CBLAS_INTERFACE 00112 *( ( CBLAS_SIDE* ) blas_side ) = CblasLeft; 00113 #else 00114 *( ( char* ) blas_side ) = 'L'; 00115 #endif 00116 } 00117 else 00118 { 00119 #ifdef FLA_ENABLE_CBLAS_INTERFACE 00120 *( ( CBLAS_SIDE* ) blas_side ) = CblasRight; 00121 #else 00122 *( ( char* ) blas_side ) = 'R'; 00123 #endif 00124 } 00125 }
void FLA_Param_map_to_blas_trans | ( | FLA_Trans | trans, | |
void * | blas_trans | |||
) |
References CblasConjTrans, CblasNoTrans, and CblasTrans.
Referenced by FLA_Apply_Q_blk_external(), FLA_Apply_Q_unb_external(), FLA_Gemm_external(), FLA_Gemv_external(), FLA_Gemvc_external(), FLA_Her2k_external(), FLA_Herk_external(), FLA_Sylv_unb_external(), FLA_Syr2k_external(), FLA_Syrk_external(), FLA_Trmm_external(), FLA_Trmv_external(), FLA_Trsm_external(), and FLA_Trsv_external().
00043 { 00044 if ( trans == FLA_NO_TRANSPOSE ) 00045 { 00046 #ifdef FLA_ENABLE_CBLAS_INTERFACE 00047 *( ( CBLAS_TRANSPOSE* ) blas_trans ) = CblasNoTrans; 00048 #else 00049 *( ( char* ) blas_trans ) = 'N'; 00050 #endif 00051 } 00052 else if ( trans == FLA_TRANSPOSE ) 00053 { 00054 #ifdef FLA_ENABLE_CBLAS_INTERFACE 00055 *( ( CBLAS_TRANSPOSE* ) blas_trans ) = CblasTrans; 00056 #else 00057 *( ( char* ) blas_trans ) = 'T'; 00058 #endif 00059 } 00060 else if ( trans == FLA_CONJ_TRANSPOSE ) 00061 { 00062 #ifdef FLA_ENABLE_CBLAS_INTERFACE 00063 *( ( CBLAS_TRANSPOSE* ) blas_trans ) = CblasConjTrans; 00064 #else 00065 *( ( char* ) blas_trans ) = 'C'; 00066 #endif 00067 } 00068 else 00069 { 00070 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED ); 00071 } 00072 }
void FLA_Param_map_to_blas_uplo | ( | FLA_Uplo | uplo, | |
void * | blas_uplo | |||
) |
References CblasLower, and CblasUpper.
Referenced by FLA_Chol_blk_external(), FLA_Chol_unb_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_Symm_external(), FLA_Symv_external(), FLA_Syr2_external(), FLA_Syr2k_external(), FLA_Syr_external(), FLA_Syrk_external(), FLA_Trinv_blk_external(), FLA_Trinv_unb_external(), FLA_Trmm_external(), FLA_Trmv_external(), FLA_Trsm_external(), FLA_Trsv_external(), FLA_Ttmm_blk_external(), and FLA_Ttmm_unb_external().
00082 { 00083 if ( uplo == FLA_LOWER_TRIANGULAR ) 00084 { 00085 #ifdef FLA_ENABLE_CBLAS_INTERFACE 00086 *( ( CBLAS_UPLO* ) blas_uplo ) = CblasLower; 00087 #else 00088 *( ( char* ) blas_uplo ) = 'L'; 00089 #endif 00090 } 00091 else 00092 { 00093 #ifdef FLA_ENABLE_CBLAS_INTERFACE 00094 *( ( CBLAS_UPLO* ) blas_uplo ) = CblasUpper; 00095 #else 00096 *( ( char* ) blas_uplo ) = 'U'; 00097 #endif 00098 } 00099 }
void FLA_Param_map_to_lapack_direct | ( | FLA_Direct | direct, | |
void * | lapack_direct | |||
) |
Referenced by FLA_Accum_T_UT_unb_external().
00160 { 00161 if ( direct == FLA_FORWARD ) 00162 { 00163 *( ( char* ) lapack_direct ) = 'F'; 00164 } 00165 else // direct == FLA_BACKWARD 00166 { 00167 *( ( char* ) lapack_direct ) = 'B'; 00168 } 00169 }
void FLA_Param_map_to_lapack_storev | ( | FLA_Store | storev, | |
void * | lapack_storev | |||
) |
Referenced by FLA_Accum_T_UT_unb_external().
00178 { 00179 if ( storev == FLA_COLUMNWISE ) 00180 { 00181 *( ( char* ) lapack_storev ) = 'C'; 00182 } 00183 else // storev == FLA_ROWWISE 00184 { 00185 *( ( char* ) lapack_storev ) = 'R'; 00186 } 00187 }