Go to the source code of this file.
Functions | |
FLA_Error | FLASH_Gemv (FLA_Trans transa, FLA_Obj alpha, FLA_Obj A, FLA_Obj x, FLA_Obj beta, FLA_Obj y) |
FLA_Error | FLASH_Trsv (FLA_Uplo uplo, FLA_Trans transa, FLA_Diag diag, FLA_Obj A, FLA_Obj x) |
void FLA_F2C() | flash_gemv_f (F_INT *transa, F_INT *alpha, F_INT *A, F_INT *x, F_INT *beta, F_INT *y, F_INT *IERROR) |
void FLA_F2C() | flash_trsv_f (F_INT *uplo, F_INT *transa, F_INT *diag, F_INT *A, F_INT *x, F_INT *IERROR) |
FLA_Error FLASH_Gemv | ( | FLA_Trans | transa, | |
FLA_Obj | alpha, | |||
FLA_Obj | A, | |||
FLA_Obj | x, | |||
FLA_Obj | beta, | |||
FLA_Obj | y | |||
) |
References FLA_Check_error_level(), FLA_Gemv_check(), FLA_Gemv_internal(), FLASH_Queue_disable(), FLASH_Queue_enable(), and FLASH_Queue_get_enabled().
Referenced by flash_gemv_f().
00038 { 00039 FLA_Error r_val; 00040 FLA_Bool enable_supermatrix; 00041 00042 // Check parameters. 00043 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) 00044 FLA_Gemv_check( transa, alpha, A, x, beta, y ); 00045 00046 // Find the status of SuperMatrix. 00047 enable_supermatrix = FLASH_Queue_get_enabled(); 00048 00049 // Temporarily disable SuperMatrix. 00050 FLASH_Queue_disable(); 00051 00052 // Execute tasks. 00053 r_val = FLA_Gemv_internal( transa, alpha, A, x, beta, y, flash_gemv_cntl_fm_rp ); 00054 00055 // Restore SuperMatrix to its previous status. 00056 if ( enable_supermatrix ) 00057 FLASH_Queue_enable(); 00058 00059 return r_val; 00060 }
void FLA_F2C() flash_gemv_f | ( | F_INT * | transa, | |
F_INT * | alpha, | |||
F_INT * | A, | |||
F_INT * | x, | |||
F_INT * | beta, | |||
F_INT * | y, | |||
F_INT * | IERROR | |||
) |
References FLASH_Gemv().
00064 { 00065 *IERROR = FLASH_Gemv( *( ( FLA_Trans * ) transa ), 00066 *( ( FLA_Obj * ) alpha ), 00067 *( ( FLA_Obj * ) A ), 00068 *( ( FLA_Obj * ) x ), 00069 *( ( FLA_Obj * ) beta ), 00070 *( ( FLA_Obj * ) y ) ); 00071 }
References FLA_Check_error_level(), FLA_Trsv_check(), FLA_Trsv_internal(), FLASH_Queue_disable(), FLASH_Queue_enable(), and FLASH_Queue_get_enabled().
Referenced by flash_trsv_f().
00038 { 00039 FLA_Error r_val; 00040 FLA_Bool enable_supermatrix; 00041 00042 // Check parameters. 00043 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) 00044 FLA_Trsv_check( uplo, trans, diag, A, x ); 00045 00046 // Find the status of SuperMatrix. 00047 enable_supermatrix = FLASH_Queue_get_enabled(); 00048 00049 // Temporarily disable SuperMatrix. 00050 FLASH_Queue_disable(); 00051 00052 // Execute tasks. 00053 r_val = FLA_Trsv_internal( uplo, trans, diag, A, x, flash_trsv_cntl ); 00054 00055 // Restore SuperMatrix to its previous status. 00056 if ( enable_supermatrix ) 00057 FLASH_Queue_enable(); 00058 00059 return r_val; 00060 }
void FLA_F2C() flash_trsv_f | ( | F_INT * | uplo, | |
F_INT * | transa, | |||
F_INT * | diag, | |||
F_INT * | A, | |||
F_INT * | x, | |||
F_INT * | IERROR | |||
) |
References FLASH_Trsv().
00064 { 00065 *IERROR = FLASH_Trsv( *( ( FLA_Uplo * ) uplo ), 00066 *( ( FLA_Trans * ) trans ), 00067 *( ( FLA_Diag * ) diag ), 00068 *( ( FLA_Obj * ) A ), 00069 *( ( FLA_Obj * ) x ) ); 00070 }