FLA_Param.c File Reference

(r)


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)

Function Documentation

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 }


Generated on Mon Jul 6 05:45:53 2009 for libflame by  doxygen 1.5.9