Functions | |
FLA_Error | FLA_Axpy (FLA_Obj alpha, FLA_Obj A, FLA_Obj B) |
void FLA_F2C() | fla_axpy_f (F_INT *alpha, F_INT *A, F_INT *B, F_INT *IERROR) |
Variables | |
fla_axpy_t * | fla_axpy_cntl_blas |
References FLA_Axpy_check(), FLA_Axpy_internal(), and FLA_Check_error_level().
Referenced by fla_axpy_f().
00038 { 00039 FLA_Error r_val; 00040 00041 // Check parameters. 00042 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) 00043 FLA_Axpy_check( alpha, A, B ); 00044 00045 // Invoke FLA_Axpy_internal() with flat control tree that simply calls 00046 // external wrapper. 00047 r_val = FLA_Axpy_internal( alpha, A, B, fla_axpy_cntl_blas ); 00048 00049 return r_val; 00050 }
void FLA_F2C() fla_axpy_f | ( | F_INT * | alpha, | |
F_INT * | A, | |||
F_INT * | B, | |||
F_INT * | IERROR | |||
) |
References FLA_Axpy().
00054 { 00055 *IERROR = FLA_Axpy( *( ( FLA_Obj * ) alpha ), 00056 *( ( FLA_Obj * ) A ), 00057 *( ( FLA_Obj * ) B ) ); 00058 }