Go to the source code of this file.
Functions | |
FLA_Error | FLASH_Gemm (FLA_Trans transa, FLA_Trans transb, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C) |
FLA_Error | FLASH_Hemm (FLA_Side side, FLA_Uplo uplo, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C) |
FLA_Error | FLASH_Herk (FLA_Uplo uplo, FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj beta, FLA_Obj C) |
FLA_Error | FLASH_Her2k (FLA_Uplo uplo, FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C) |
FLA_Error | FLASH_Symm (FLA_Side side, FLA_Uplo uplo, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C) |
FLA_Error | FLASH_Syrk (FLA_Uplo uplo, FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj beta, FLA_Obj C) |
FLA_Error | FLASH_Syr2k (FLA_Uplo uplo, FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C) |
FLA_Error | FLASH_Trmm (FLA_Side side, FLA_Uplo uplo, FLA_Trans trans, FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B) |
FLA_Error | FLASH_Trsm (FLA_Side side, FLA_Uplo uplo, FLA_Trans trans, FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B) |
void FLA_F2C() | flash_gemm_f (F_INT *transa, F_INT *transb, F_INT *alpha, F_INT *A, F_INT *B, F_INT *beta, F_INT *C, F_INT *IERROR) |
void FLA_F2C() | flash_hemm_f (F_INT *side, F_INT *uplo, F_INT *alpha, F_INT *A, F_INT *B, F_INT *beta, F_INT *C, F_INT *IERROR) |
void FLA_F2C() | flash_her2k_f (F_INT *uplo, F_INT *trans, F_INT *alpha, F_INT *A, F_INT *B, F_INT *beta, F_INT *C, F_INT *IERROR) |
void FLA_F2C() | flash_herk_f (F_INT *uplo, F_INT *trans, F_INT *alpha, F_INT *A, F_INT *beta, F_INT *C, F_INT *IERROR) |
void FLA_F2C() | flash_symm_f (F_INT *side, F_INT *uplo, F_INT *alpha, F_INT *A, F_INT *B, F_INT *beta, F_INT *C, F_INT *IERROR) |
void FLA_F2C() | flash_syr2k_f (F_INT *uplo, F_INT *trans, F_INT *alpha, F_INT *A, F_INT *B, F_INT *beta, F_INT *C, F_INT *IERROR) |
void FLA_F2C() | flash_syrk_f (F_INT *uplo, F_INT *trans, F_INT *alpha, F_INT *A, F_INT *beta, F_INT *C, F_INT *IERROR) |
void FLA_F2C() | flash_trmm_f (F_INT *side, F_INT *uplo, F_INT *trans, F_INT *diag, F_INT *alpha, F_INT *A, F_INT *B, F_INT *IERROR) |
void FLA_F2C() | flash_trsm_f (F_INT *side, F_INT *uplo, F_INT *trans, F_INT *diag, F_INT *alpha, F_INT *A, F_INT *B, F_INT *IERROR) |
FLA_Error FLASH_Gemm | ( | FLA_Trans | transa, | |
FLA_Trans | transb, | |||
FLA_Obj | alpha, | |||
FLA_Obj | A, | |||
FLA_Obj | B, | |||
FLA_Obj | beta, | |||
FLA_Obj | C | |||
) |
References FLA_Check_error_level(), FLA_Gemm_check(), FLA_Gemm_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().
Referenced by flash_gemm_f().
00038 { 00039 FLA_Error r_val; 00040 00041 // Check parameters. 00042 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) 00043 FLA_Gemm_check( transa, transb, alpha, A, B, beta, C ); 00044 00045 // Begin a parallel region. 00046 FLASH_Queue_begin(); 00047 00048 // Enqueue tasks via a SuperMatrix-aware control tree. 00049 r_val = FLA_Gemm_internal( transa, transb, alpha, A, B, beta, C, flash_gemm_cntl_mm_op ); 00050 00051 // End the parallel region. 00052 FLASH_Queue_end(); 00053 00054 return r_val; 00055 }
void FLA_F2C() flash_gemm_f | ( | F_INT * | transa, | |
F_INT * | transb, | |||
F_INT * | alpha, | |||
F_INT * | A, | |||
F_INT * | B, | |||
F_INT * | beta, | |||
F_INT * | C, | |||
F_INT * | IERROR | |||
) |
References FLASH_Gemm().
00059 { 00060 *IERROR = FLASH_Gemm( *( ( FLA_Trans * ) transa ), 00061 *( ( FLA_Trans * ) transb ), 00062 *( ( FLA_Obj * ) alpha ), 00063 *( ( FLA_Obj * ) A ), 00064 *( ( FLA_Obj * ) B ), 00065 *( ( FLA_Obj * ) beta ), 00066 *( ( FLA_Obj * ) C ) ); 00067 }
FLA_Error FLASH_Hemm | ( | FLA_Side | side, | |
FLA_Uplo | uplo, | |||
FLA_Obj | alpha, | |||
FLA_Obj | A, | |||
FLA_Obj | B, | |||
FLA_Obj | beta, | |||
FLA_Obj | C | |||
) |
References FLA_Check_error_level(), FLA_Hemm_check(), FLA_Hemm_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().
Referenced by flash_hemm_f().
00038 { 00039 FLA_Error r_val; 00040 00041 // Check parameters. 00042 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) 00043 FLA_Hemm_check( side, uplo, alpha, A, B, beta, C ); 00044 00045 // Begin a parallel region. 00046 FLASH_Queue_begin(); 00047 00048 // Enqueue tasks via a SuperMatrix-aware control tree. 00049 r_val = FLA_Hemm_internal( side, uplo, alpha, A, B, beta, C, flash_hemm_cntl_mm ); 00050 00051 // End the parallel region. 00052 FLASH_Queue_end(); 00053 00054 return r_val; 00055 }
void FLA_F2C() flash_hemm_f | ( | F_INT * | side, | |
F_INT * | uplo, | |||
F_INT * | alpha, | |||
F_INT * | A, | |||
F_INT * | B, | |||
F_INT * | beta, | |||
F_INT * | C, | |||
F_INT * | IERROR | |||
) |
References FLASH_Hemm().
00059 { 00060 *IERROR = FLASH_Hemm( *( ( FLA_Side * ) side ), 00061 *( ( FLA_Uplo * ) uplo ), 00062 *( ( FLA_Obj * ) alpha ), 00063 *( ( FLA_Obj * ) A ), 00064 *( ( FLA_Obj * ) B ), 00065 *( ( FLA_Obj * ) beta ), 00066 *( ( FLA_Obj * ) C ) ); 00067 }
FLA_Error FLASH_Her2k | ( | FLA_Uplo | uplo, | |
FLA_Trans | trans, | |||
FLA_Obj | alpha, | |||
FLA_Obj | A, | |||
FLA_Obj | B, | |||
FLA_Obj | beta, | |||
FLA_Obj | C | |||
) |
References FLA_Check_error_level(), FLA_Her2k_check(), FLA_Her2k_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().
Referenced by flash_her2k_f().
00038 { 00039 FLA_Error r_val; 00040 00041 // Check parameters. 00042 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) 00043 FLA_Her2k_check( uplo, trans, alpha, A, B, beta, C ); 00044 00045 // Begin a parallel region. 00046 FLASH_Queue_begin(); 00047 00048 // Enqueue tasks via a SuperMatrix-aware control tree. 00049 r_val = FLA_Her2k_internal( uplo, trans, alpha, A, B, beta, C, flash_her2k_cntl_sq ); 00050 00051 // End the parallel region. 00052 FLASH_Queue_end(); 00053 00054 return r_val; 00055 }
void FLA_F2C() flash_her2k_f | ( | F_INT * | uplo, | |
F_INT * | trans, | |||
F_INT * | alpha, | |||
F_INT * | A, | |||
F_INT * | B, | |||
F_INT * | beta, | |||
F_INT * | C, | |||
F_INT * | IERROR | |||
) |
References FLASH_Her2k().
00059 { 00060 *IERROR = FLASH_Her2k( *( ( FLA_Uplo * ) uplo ), 00061 *( ( FLA_Trans * ) trans ), 00062 *( ( FLA_Obj * ) alpha ), 00063 *( ( FLA_Obj * ) A ), 00064 *( ( FLA_Obj * ) B ), 00065 *( ( FLA_Obj * ) beta ), 00066 *( ( FLA_Obj * ) C ) ); 00067 }
FLA_Error FLASH_Herk | ( | FLA_Uplo | uplo, | |
FLA_Trans | trans, | |||
FLA_Obj | alpha, | |||
FLA_Obj | A, | |||
FLA_Obj | beta, | |||
FLA_Obj | C | |||
) |
References FLA_Check_error_level(), FLA_Herk_check(), FLA_Herk_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().
Referenced by flash_herk_f().
00038 { 00039 FLA_Error r_val; 00040 00041 // Check parameters. 00042 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) 00043 FLA_Herk_check( uplo, trans, alpha, A, beta, C ); 00044 00045 // Begin a parallel region. 00046 FLASH_Queue_begin(); 00047 00048 // Enqueue tasks via a SuperMatrix-aware control tree. 00049 r_val = FLA_Herk_internal( uplo, trans, alpha, A, beta, C, flash_herk_cntl_sq ); 00050 00051 // End the parallel region. 00052 FLASH_Queue_end(); 00053 00054 return r_val; 00055 }
void FLA_F2C() flash_herk_f | ( | F_INT * | uplo, | |
F_INT * | trans, | |||
F_INT * | alpha, | |||
F_INT * | A, | |||
F_INT * | beta, | |||
F_INT * | C, | |||
F_INT * | IERROR | |||
) |
References FLASH_Herk().
00059 { 00060 *IERROR = FLASH_Herk( *( ( FLA_Uplo * ) uplo ), 00061 *( ( FLA_Trans * ) trans ), 00062 *( ( FLA_Obj * ) alpha ), 00063 *( ( FLA_Obj * ) A ), 00064 *( ( FLA_Obj * ) beta ), 00065 *( ( FLA_Obj * ) C ) ); 00066 }
FLA_Error FLASH_Symm | ( | FLA_Side | side, | |
FLA_Uplo | uplo, | |||
FLA_Obj | alpha, | |||
FLA_Obj | A, | |||
FLA_Obj | B, | |||
FLA_Obj | beta, | |||
FLA_Obj | C | |||
) |
References FLA_Check_error_level(), FLA_Symm_check(), FLA_Symm_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().
Referenced by flash_symm_f().
00038 { 00039 FLA_Error r_val; 00040 00041 // Check parameters. 00042 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) 00043 FLA_Symm_check( side, uplo, alpha, A, B, beta, C ); 00044 00045 // Begin a parallel region. 00046 FLASH_Queue_begin(); 00047 00048 // Enqueue tasks via a SuperMatrix-aware control tree. 00049 r_val = FLA_Symm_internal( side, uplo, alpha, A, B, beta, C, flash_symm_cntl_mm ); 00050 00051 // End the parallel region. 00052 FLASH_Queue_end(); 00053 00054 return r_val; 00055 }
void FLA_F2C() flash_symm_f | ( | F_INT * | side, | |
F_INT * | uplo, | |||
F_INT * | alpha, | |||
F_INT * | A, | |||
F_INT * | B, | |||
F_INT * | beta, | |||
F_INT * | C, | |||
F_INT * | IERROR | |||
) |
References FLASH_Symm().
00059 { 00060 *IERROR = FLASH_Symm( *( ( FLA_Side * ) side ), 00061 *( ( FLA_Uplo * ) uplo ), 00062 *( ( FLA_Obj * ) alpha ), 00063 *( ( FLA_Obj * ) A ), 00064 *( ( FLA_Obj * ) B ), 00065 *( ( FLA_Obj * ) beta ), 00066 *( ( FLA_Obj * ) C ) ); 00067 }
FLA_Error FLASH_Syr2k | ( | FLA_Uplo | uplo, | |
FLA_Trans | trans, | |||
FLA_Obj | alpha, | |||
FLA_Obj | A, | |||
FLA_Obj | B, | |||
FLA_Obj | beta, | |||
FLA_Obj | C | |||
) |
References FLA_Check_error_level(), FLA_Syr2k_check(), FLA_Syr2k_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().
Referenced by flash_syr2k_f().
00038 { 00039 FLA_Error r_val; 00040 00041 // Check parameters. 00042 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) 00043 FLA_Syr2k_check( uplo, trans, alpha, A, B, beta, C ); 00044 00045 // Begin a parallel region. 00046 FLASH_Queue_begin(); 00047 00048 // Enqueue tasks via a SuperMatrix-aware control tree. 00049 r_val = FLA_Syr2k_internal( uplo, trans, alpha, A, B, beta, C, flash_syr2k_cntl_sq ); 00050 00051 // End the parallel region. 00052 FLASH_Queue_end(); 00053 00054 return r_val; 00055 }
void FLA_F2C() flash_syr2k_f | ( | F_INT * | uplo, | |
F_INT * | trans, | |||
F_INT * | alpha, | |||
F_INT * | A, | |||
F_INT * | B, | |||
F_INT * | beta, | |||
F_INT * | C, | |||
F_INT * | IERROR | |||
) |
References FLASH_Syr2k().
00059 { 00060 *IERROR = FLASH_Syr2k( *( ( FLA_Uplo * ) uplo ), 00061 *( ( FLA_Trans * ) trans ), 00062 *( ( FLA_Obj * ) alpha ), 00063 *( ( FLA_Obj * ) A ), 00064 *( ( FLA_Obj * ) B ), 00065 *( ( FLA_Obj * ) beta ), 00066 *( ( FLA_Obj * ) C ) ); 00067 }
FLA_Error FLASH_Syrk | ( | FLA_Uplo | uplo, | |
FLA_Trans | trans, | |||
FLA_Obj | alpha, | |||
FLA_Obj | A, | |||
FLA_Obj | beta, | |||
FLA_Obj | C | |||
) |
References FLA_Check_error_level(), FLA_Syrk_check(), FLA_Syrk_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().
Referenced by flash_syrk_f().
00038 { 00039 FLA_Error r_val; 00040 00041 // Check parameters. 00042 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) 00043 FLA_Syrk_check( uplo, trans, alpha, A, beta, C ); 00044 00045 // Begin a parallel region. 00046 FLASH_Queue_begin(); 00047 00048 // Enqueue tasks via a SuperMatrix-aware control tree. 00049 r_val = FLA_Syrk_internal( uplo, trans, alpha, A, beta, C, flash_syrk_cntl_sq ); 00050 00051 // End the parallel region. 00052 FLASH_Queue_end(); 00053 00054 return r_val; 00055 }
void FLA_F2C() flash_syrk_f | ( | F_INT * | uplo, | |
F_INT * | trans, | |||
F_INT * | alpha, | |||
F_INT * | A, | |||
F_INT * | beta, | |||
F_INT * | C, | |||
F_INT * | IERROR | |||
) |
References FLASH_Syrk().
00059 { 00060 *IERROR = FLASH_Syrk( *( ( FLA_Uplo * ) uplo ), 00061 *( ( FLA_Trans * ) trans ), 00062 *( ( FLA_Obj * ) alpha ), 00063 *( ( FLA_Obj * ) A ), 00064 *( ( FLA_Obj * ) beta ), 00065 *( ( FLA_Obj * ) C ) ); 00066 }
FLA_Error FLASH_Trmm | ( | FLA_Side | side, | |
FLA_Uplo | uplo, | |||
FLA_Trans | trans, | |||
FLA_Diag | diag, | |||
FLA_Obj | alpha, | |||
FLA_Obj | A, | |||
FLA_Obj | B | |||
) |
References FLA_Check_error_level(), FLA_Trmm_check(), FLA_Trmm_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().
Referenced by flash_trmm_f().
00038 { 00039 FLA_Error r_val; 00040 00041 // Check parameters. 00042 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) 00043 FLA_Trmm_check( side, uplo, trans, diag, alpha, A, B ); 00044 00045 // Begin a parallel region. 00046 FLASH_Queue_begin(); 00047 00048 // Enqueue tasks via a SuperMatrix-aware control tree. 00049 r_val = FLA_Trmm_internal( side, uplo, trans, diag, alpha, A, B, flash_trmm_cntl_mm ); 00050 00051 // End the parallel region. 00052 FLASH_Queue_end(); 00053 00054 return r_val; 00055 }
void FLA_F2C() flash_trmm_f | ( | F_INT * | side, | |
F_INT * | uplo, | |||
F_INT * | trans, | |||
F_INT * | diag, | |||
F_INT * | alpha, | |||
F_INT * | A, | |||
F_INT * | B, | |||
F_INT * | IERROR | |||
) |
References FLASH_Trmm().
00059 { 00060 *IERROR = FLASH_Trmm( *( ( FLA_Side * ) side ), 00061 *( ( FLA_Uplo * ) uplo ), 00062 *( ( FLA_Trans * ) trans ), 00063 *( ( FLA_Diag * ) diag ), 00064 *( ( FLA_Obj * ) alpha ), 00065 *( ( FLA_Obj * ) A ), 00066 *( ( FLA_Obj * ) B ) ); 00067 }
FLA_Error FLASH_Trsm | ( | FLA_Side | side, | |
FLA_Uplo | uplo, | |||
FLA_Trans | trans, | |||
FLA_Diag | diag, | |||
FLA_Obj | alpha, | |||
FLA_Obj | A, | |||
FLA_Obj | B | |||
) |
References FLA_Check_error_level(), FLA_Trsm_check(), FLA_Trsm_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().
Referenced by flash_trsm_f().
00038 { 00039 FLA_Error r_val; 00040 00041 // Check parameters. 00042 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) 00043 FLA_Trsm_check( side, uplo, trans, diag, alpha, A, B ); 00044 00045 // Begin a parallel region. 00046 FLASH_Queue_begin(); 00047 00048 // Enqueue tasks via a SuperMatrix-aware control tree. 00049 r_val = FLA_Trsm_internal( side, uplo, trans, diag, alpha, A, B, flash_trsm_cntl_mm ); 00050 00051 // End the parallel region. 00052 FLASH_Queue_end(); 00053 00054 return r_val; 00055 }
void FLA_F2C() flash_trsm_f | ( | F_INT * | side, | |
F_INT * | uplo, | |||
F_INT * | trans, | |||
F_INT * | diag, | |||
F_INT * | alpha, | |||
F_INT * | A, | |||
F_INT * | B, | |||
F_INT * | IERROR | |||
) |
References FLASH_Trsm().
00059 { 00060 *IERROR = FLASH_Trsm( *( ( FLA_Side * ) side ), 00061 *( ( FLA_Uplo * ) uplo ), 00062 *( ( FLA_Trans * ) trans ), 00063 *( ( FLA_Diag * ) diag ), 00064 *( ( FLA_Obj * ) alpha ), 00065 *( ( FLA_Obj * ) A ), 00066 *( ( FLA_Obj * ) B ) ); 00067 }