FLA_Form_perm_matrix.c File Reference

(r)


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)

Function Documentation

FLA_Error FLA_Form_perm_matrix ( FLA_Obj  ipiv,
FLA_Obj  A 
)

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 }


Generated on Mon Jul 6 05:45:53 2009 for libflame by  doxygen 1.5.9