Functions | |
FLA_Error | FLASH_Axpy (FLA_Obj alpha, FLA_Obj A, FLA_Obj B) |
void FLA_F2C() | flash_axpy_f (F_INT *alpha, F_INT *A, F_INT *B, F_INT *IERROR) |
Variables | |
fla_axpy_t * | flash_axpy_cntl |
References FLA_Axpy_check(), FLA_Axpy_internal(), FLA_Check_error_level(), FLASH_Queue_disable(), FLASH_Queue_enable(), and FLASH_Queue_get_enabled().
Referenced by flash_axpy_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_Axpy_check( alpha, A, B ); 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_Axpy_internal( alpha, A, B, flash_axpy_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_axpy_f | ( | F_INT * | alpha, | |
F_INT * | A, | |||
F_INT * | B, | |||
F_INT * | IERROR | |||
) |
References FLASH_Axpy().
00064 { 00065 *IERROR = FLASH_Axpy( *( ( FLA_Obj * ) alpha ), 00066 *( ( FLA_Obj * ) A ), 00067 *( ( FLA_Obj * ) B ) ); 00068 }