Functions | |
FLA_Error | FLA_Form_perm_matrix (FLA_Obj ipiv, FLA_Obj A) |
void FLA_F2C() | fla_form_perm_matrix_f (F_INT *ipiv, F_INT *A, F_INT *IERROR) |
References FLA_Apply_pivots(), FLA_Check_error_level(), FLA_Form_perm_matrix_check(), and FLA_Obj_set_to_identity().
Referenced by fla_form_perm_matrix_f().
00036 { 00037 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) 00038 FLA_Form_perm_matrix_check( ipiv, A ); 00039 00040 // We assume that A is correctly sized, m x m, where m is the row 00041 // dimension of the matrix given to FLA_LU_piv() or similar function. 00042 FLA_Obj_set_to_identity( A ); 00043 00044 // We assume that ipiv contains pivots in native FLAME format. That is, 00045 // we assume the pivot type is FLA_NATIVE_PIVOTS. This is not a huge 00046 // assumption since the user has to go out of his way to shift the 00047 // pivots into LAPACK-indexed pivots. 00048 FLA_Apply_pivots( FLA_LEFT, FLA_NO_TRANSPOSE, ipiv, A ); 00049 00050 return FLA_SUCCESS; 00051 }
void FLA_F2C() fla_form_perm_matrix_f | ( | F_INT * | ipiv, | |
F_INT * | A, | |||
F_INT * | IERROR | |||
) |
References FLA_Form_perm_matrix().
00055 { 00056 *IERROR = FLA_Form_perm_matrix( *( ( FLA_Obj * ) ipiv ), 00057 *( ( FLA_Obj * ) A ) ); 00058 }