Functions | |
FLA_Error | FLA_LU_piv (FLA_Obj A, FLA_Obj p) |
void FLA_F2C() | fla_lu_piv_f (F_INT *A, F_INT *p, F_INT *IERROR) |
Variables | |
fla_lu_t * | fla_lu_piv_cntl |
fla_lu_t * | fla_lu_piv_cntl2 |
References FLA_Check_error_level(), FLA_LU_piv_check(), and FLA_LU_piv_internal().
Referenced by fla_lu_piv_f().
00039 { 00040 FLA_Error r_val; 00041 00042 // Check parameters. 00043 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) 00044 FLA_LU_piv_check( A, p ); 00045 00046 // Invoke FLA_LU_piv_internal() with large control tree. 00047 r_val = FLA_LU_piv_internal( A, p, fla_lu_piv_cntl2 ); 00048 00049 return r_val; 00050 }
void FLA_F2C() fla_lu_piv_f | ( | F_INT * | A, | |
F_INT * | p, | |||
F_INT * | IERROR | |||
) |
References FLA_LU_piv().
00054 { 00055 *IERROR = FLA_LU_piv( *( ( FLA_Obj * ) A ), 00056 *( ( FLA_Obj * ) p ) ); 00057 }