Functions | |
FLA_Error | FLA_Gemm_tn (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl) |
FLA_Error FLA_Gemm_tn | ( | FLA_Obj | alpha, | |
FLA_Obj | A, | |||
FLA_Obj | B, | |||
FLA_Obj | beta, | |||
FLA_Obj | C, | |||
fla_gemm_t * | cntl | |||
) |
References FLA_Gemm_tn_blk_var1(), FLA_Gemm_tn_blk_var2(), FLA_Gemm_tn_blk_var3(), FLA_Gemm_tn_blk_var4(), FLA_Gemm_tn_blk_var5(), FLA_Gemm_tn_blk_var6(), and FLA_Gemm_tn_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_tn_task( alpha, A, B, beta, C, cntl ); 00042 } 00043 else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 ) 00044 { 00045 r_val = FLA_Gemm_tn_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_tn_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_tn_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_tn_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_tn_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_tn_blk_var6( alpha, A, B, beta, C, cntl ); 00071 } 00072 #endif 00073 return r_val; 00074 }