FLA_Gemm_hh.c File Reference

(r)


Functions

FLA_Error FLA_Gemm_hh (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)

Function Documentation

FLA_Error FLA_Gemm_hh ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)

References FLA_Gemm_hh_blk_var1(), FLA_Gemm_hh_blk_var2(), FLA_Gemm_hh_blk_var3(), FLA_Gemm_hh_blk_var4(), FLA_Gemm_hh_blk_var5(), FLA_Gemm_hh_blk_var6(), and FLA_Gemm_hh_task().

Referenced by FLA_Gemm_internal().

00036 {
00037     FLA_Error r_val = FLA_SUCCESS;
00038     
00039     if      ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
00040     {
00041         r_val = FLA_Gemm_hh_task( alpha, A, B, beta, C, cntl );
00042     }
00043     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
00044     {
00045         r_val = FLA_Gemm_hh_blk_var1( alpha, A, B, beta, C, cntl );
00046     }
00047 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
00048     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
00049     {
00050         r_val = FLA_Gemm_hh_blk_var2( alpha, A, B, beta, C, cntl );
00051     }
00052 #endif
00053     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
00054     {
00055         r_val = FLA_Gemm_hh_blk_var3( alpha, A, B, beta, C, cntl );
00056     }
00057 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
00058     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
00059     {
00060         r_val = FLA_Gemm_hh_blk_var4( alpha, A, B, beta, C, cntl );
00061     }
00062 #endif
00063     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
00064     {
00065         r_val = FLA_Gemm_hh_blk_var5( alpha, A, B, beta, C, cntl );
00066     }
00067 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
00068     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
00069     {
00070         r_val = FLA_Gemm_hh_blk_var6( alpha, A, B, beta, C, cntl );
00071     }
00072 #endif  
00073     return r_val;
00074 }


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