Functions | |
FLA_Error | FLA_Trsv (FLA_Uplo uplo, FLA_Trans trans, FLA_Diag diag, FLA_Obj A, FLA_Obj x) |
void FLA_F2C() | fla_trsv_f (F_INT *uplo, F_INT *trans, F_INT *diag, F_INT *A, F_INT *x, F_INT *IERROR) |
Variables | |
fla_trsv_t * | fla_trsv_cntl_blas |
References FLA_Check_error_level(), FLA_Trsv_check(), and FLA_Trsv_internal().
Referenced by fla_trsv_f().
00038 { 00039 FLA_Error r_val; 00040 00041 // Check parameters. 00042 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) 00043 FLA_Trsv_check( uplo, trans, diag, A, x ); 00044 00045 // Invoke FLA_Trsv_internal() with flat control tree that simply calls 00046 // external wrapper. 00047 r_val = FLA_Trsv_internal( uplo, trans, diag, A, x, fla_trsv_cntl_blas ); 00048 00049 return r_val; 00050 }
void FLA_F2C() fla_trsv_f | ( | F_INT * | uplo, | |
F_INT * | trans, | |||
F_INT * | diag, | |||
F_INT * | A, | |||
F_INT * | x, | |||
F_INT * | IERROR | |||
) |