FLA_Her2k.h File Reference

(r)

Go to the source code of this file.

Functions

FLA_Error FLA_Her2k_internal (FLA_Uplo uplo, FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_her2k_t *cntl)
FLA_Error FLA_Her2k_lh (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_her2k_t *cntl)
FLA_Error FLA_Her2k_ln (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_her2k_t *cntl)
FLA_Error FLA_Her2k_uh (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_her2k_t *cntl)
FLA_Error FLA_Her2k_un (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_her2k_t *cntl)


Function Documentation

FLA_Error FLA_Her2k_internal ( FLA_Uplo  uplo,
FLA_Trans  trans,
FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_her2k_t cntl 
)

References FLA_Check_error_level(), FLA_Her2k_internal(), FLA_Her2k_internal_check(), FLA_Her2k_lh(), FLA_Her2k_ln(), FLA_Her2k_uh(), FLA_Her2k_un(), FLA_Obj_elemtype(), and FLASH_Queue_get_enabled().

00039 {
00040     FLA_Error r_val = FLA_SUCCESS;
00041 
00042     if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
00043         FLA_Her2k_internal_check( uplo, trans, alpha, A, B, beta, C, cntl );
00044 
00045     if      ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
00046               FLA_Obj_elemtype( A ) == FLA_MATRIX &&
00047               FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
00048     {
00049         // Recurse
00050         r_val = FLA_Her2k_internal( uplo,
00051                                     trans,
00052                                     alpha,
00053                                     *FLASH_OBJ_PTR_AT( A ),
00054                                     *FLASH_OBJ_PTR_AT( B ),
00055                                     beta,
00056                                     *FLASH_OBJ_PTR_AT( C ),
00057                                     flash_her2k_cntl_sq );
00058     }
00059     else if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
00060               FLA_Obj_elemtype( A ) == FLA_SCALAR &&
00061               FLASH_Queue_get_enabled( ) )
00062     {
00063         // Enqueue
00064         ENQUEUE_FLASH_Her2k( uplo, trans, alpha, A, B, beta, C, cntl );
00065     }
00066     else
00067     {
00068         if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
00069              FLA_Obj_elemtype( A ) == FLA_SCALAR &&
00070              !FLASH_Queue_get_enabled( ) )
00071         {
00072             // Execute leaf
00073             cntl = flash_her2k_cntl_blas;
00074         }
00075 
00076         // Parameter combinations
00077         if      ( uplo == FLA_LOWER_TRIANGULAR )
00078         {
00079             if      ( trans == FLA_NO_TRANSPOSE )
00080                 r_val = FLA_Her2k_ln( alpha, A, B, beta, C, cntl );
00081             else if ( trans == FLA_CONJ_TRANSPOSE )
00082                 r_val = FLA_Her2k_lh( alpha, A, B, beta, C, cntl );
00083         }
00084         else if ( uplo == FLA_UPPER_TRIANGULAR )
00085         {
00086             if      ( trans == FLA_NO_TRANSPOSE )
00087                 r_val = FLA_Her2k_un( alpha, A, B, beta, C, cntl );
00088             else if ( trans == FLA_CONJ_TRANSPOSE )
00089                 r_val = FLA_Her2k_uh( alpha, A, B, beta, C, cntl );
00090         }
00091     }
00092 
00093     return r_val;
00094 }

FLA_Error FLA_Her2k_lh ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_her2k_t cntl 
)

References FLA_Her2k_lh_blk_var1(), FLA_Her2k_lh_blk_var10(), FLA_Her2k_lh_blk_var2(), FLA_Her2k_lh_blk_var3(), FLA_Her2k_lh_blk_var4(), FLA_Her2k_lh_blk_var5(), FLA_Her2k_lh_blk_var6(), FLA_Her2k_lh_blk_var7(), FLA_Her2k_lh_blk_var8(), FLA_Her2k_lh_blk_var9(), and FLA_Her2k_lh_task().

Referenced by FLA_Her2k_internal().

00036 {
00037     FLA_Error r_val = FLA_SUCCESS;
00038     
00039     if      ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
00040     {
00041         r_val = FLA_Her2k_lh_task( alpha, A, B, beta, C, cntl );
00042     }
00043 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
00044     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
00045     {
00046         r_val = FLA_Her2k_lh_blk_var1( alpha, A, B, beta, C, cntl );
00047     }
00048     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
00049     {
00050         r_val = FLA_Her2k_lh_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_Her2k_lh_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_Her2k_lh_blk_var4( alpha, A, B, beta, C, cntl );
00061     }
00062     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
00063     {
00064         r_val = FLA_Her2k_lh_blk_var5( alpha, A, B, beta, C, cntl );
00065     }
00066     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
00067     {
00068         r_val = FLA_Her2k_lh_blk_var6( alpha, A, B, beta, C, cntl );
00069     }
00070     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT7 )
00071     {
00072         r_val = FLA_Her2k_lh_blk_var7( alpha, A, B, beta, C, cntl );
00073     }
00074     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT8 )
00075     {
00076         r_val = FLA_Her2k_lh_blk_var8( alpha, A, B, beta, C, cntl );
00077     }
00078 #endif
00079     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT9 )
00080     {
00081         r_val = FLA_Her2k_lh_blk_var9( alpha, A, B, beta, C, cntl );
00082     }
00083 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
00084     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT10 )
00085     {
00086         r_val = FLA_Her2k_lh_blk_var10( alpha, A, B, beta, C, cntl );
00087     }
00088 #endif
00089     return r_val;
00090 }

FLA_Error FLA_Her2k_ln ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_her2k_t cntl 
)

References FLA_Her2k_ln_blk_var1(), FLA_Her2k_ln_blk_var10(), FLA_Her2k_ln_blk_var2(), FLA_Her2k_ln_blk_var3(), FLA_Her2k_ln_blk_var4(), FLA_Her2k_ln_blk_var5(), FLA_Her2k_ln_blk_var6(), FLA_Her2k_ln_blk_var7(), FLA_Her2k_ln_blk_var8(), FLA_Her2k_ln_blk_var9(), and FLA_Her2k_ln_task().

Referenced by FLA_Her2k_internal().

00036 {
00037     FLA_Error r_val = FLA_SUCCESS;
00038     
00039     if      ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
00040     {
00041         r_val = FLA_Her2k_ln_task( alpha, A, B, beta, C, cntl );
00042     }
00043 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
00044     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
00045     {
00046         r_val = FLA_Her2k_ln_blk_var1( alpha, A, B, beta, C, cntl );
00047     }
00048     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
00049     {
00050         r_val = FLA_Her2k_ln_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_Her2k_ln_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_Her2k_ln_blk_var4( alpha, A, B, beta, C, cntl );
00061     }
00062     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
00063     {
00064         r_val = FLA_Her2k_ln_blk_var5( alpha, A, B, beta, C, cntl );
00065     }
00066     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
00067     {
00068         r_val = FLA_Her2k_ln_blk_var6( alpha, A, B, beta, C, cntl );
00069     }
00070     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT7 )
00071     {
00072         r_val = FLA_Her2k_ln_blk_var7( alpha, A, B, beta, C, cntl );
00073     }
00074     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT8 )
00075     {
00076         r_val = FLA_Her2k_ln_blk_var8( alpha, A, B, beta, C, cntl );
00077     }
00078 #endif
00079     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT9 )
00080     {
00081         r_val = FLA_Her2k_ln_blk_var9( alpha, A, B, beta, C, cntl );
00082     }
00083 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
00084     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT10 )
00085     {
00086         r_val = FLA_Her2k_ln_blk_var10( alpha, A, B, beta, C, cntl );
00087     }
00088 #endif
00089     return r_val;
00090 }

FLA_Error FLA_Her2k_uh ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_her2k_t cntl 
)

References FLA_Her2k_uh_blk_var1(), FLA_Her2k_uh_blk_var10(), FLA_Her2k_uh_blk_var2(), FLA_Her2k_uh_blk_var3(), FLA_Her2k_uh_blk_var4(), FLA_Her2k_uh_blk_var5(), FLA_Her2k_uh_blk_var6(), FLA_Her2k_uh_blk_var7(), FLA_Her2k_uh_blk_var8(), FLA_Her2k_uh_blk_var9(), and FLA_Her2k_uh_task().

Referenced by FLA_Her2k_internal().

00036 {
00037     FLA_Error r_val = FLA_SUCCESS;
00038     
00039     if      ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
00040     {
00041         r_val = FLA_Her2k_uh_task( alpha, A, B, beta, C, cntl );
00042     }
00043 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
00044     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
00045     {
00046         r_val = FLA_Her2k_uh_blk_var1( alpha, A, B, beta, C, cntl );
00047     }
00048     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
00049     {
00050         r_val = FLA_Her2k_uh_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_Her2k_uh_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_Her2k_uh_blk_var4( alpha, A, B, beta, C, cntl );
00061     }
00062     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
00063     {
00064         r_val = FLA_Her2k_uh_blk_var5( alpha, A, B, beta, C, cntl );
00065     }
00066     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
00067     {
00068         r_val = FLA_Her2k_uh_blk_var6( alpha, A, B, beta, C, cntl );
00069     }
00070     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT7 )
00071     {
00072         r_val = FLA_Her2k_uh_blk_var7( alpha, A, B, beta, C, cntl );
00073     }
00074     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT8 )
00075     {
00076         r_val = FLA_Her2k_uh_blk_var8( alpha, A, B, beta, C, cntl );
00077     }
00078 #endif
00079     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT9 )
00080     {
00081         r_val = FLA_Her2k_uh_blk_var9( alpha, A, B, beta, C, cntl );
00082     }
00083 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
00084     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT10 )
00085     {
00086         r_val = FLA_Her2k_uh_blk_var10( alpha, A, B, beta, C, cntl );
00087     }
00088 #endif
00089     return r_val;
00090 }

FLA_Error FLA_Her2k_un ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_her2k_t cntl 
)

References FLA_Her2k_un_blk_var1(), FLA_Her2k_un_blk_var10(), FLA_Her2k_un_blk_var2(), FLA_Her2k_un_blk_var3(), FLA_Her2k_un_blk_var4(), FLA_Her2k_un_blk_var5(), FLA_Her2k_un_blk_var6(), FLA_Her2k_un_blk_var7(), FLA_Her2k_un_blk_var8(), FLA_Her2k_un_blk_var9(), and FLA_Her2k_un_task().

Referenced by FLA_Her2k_internal().

00036 {
00037     FLA_Error r_val = FLA_SUCCESS;
00038     
00039     if      ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
00040     {
00041         r_val = FLA_Her2k_un_task( alpha, A, B, beta, C, cntl );
00042     }
00043 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
00044     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
00045     {
00046         r_val = FLA_Her2k_un_blk_var1( alpha, A, B, beta, C, cntl );
00047     }
00048     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
00049     {
00050         r_val = FLA_Her2k_un_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_Her2k_un_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_Her2k_un_blk_var4( alpha, A, B, beta, C, cntl );
00061     }
00062     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
00063     {
00064         r_val = FLA_Her2k_un_blk_var5( alpha, A, B, beta, C, cntl );
00065     }
00066     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
00067     {
00068         r_val = FLA_Her2k_un_blk_var6( alpha, A, B, beta, C, cntl );
00069     }
00070     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT7 )
00071     {
00072         r_val = FLA_Her2k_un_blk_var7( alpha, A, B, beta, C, cntl );
00073     }
00074     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT8 )
00075     {
00076         r_val = FLA_Her2k_un_blk_var8( alpha, A, B, beta, C, cntl );
00077     }
00078 #endif
00079     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT9 )
00080     {
00081         r_val = FLA_Her2k_un_blk_var9( alpha, A, B, beta, C, cntl );
00082     }
00083 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
00084     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT10 )
00085     {
00086         r_val = FLA_Her2k_un_blk_var10( alpha, A, B, beta, C, cntl );
00087     }
00088 #endif
00089     return r_val;
00090 }


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