FLA_Random_herm_matrix.c File Reference

(r)


Functions

FLA_Error FLA_Random_herm_matrix (FLA_Uplo uplo, FLA_Obj A)
void FLA_F2C() fla_random_herm_matrix_f (F_INT *uplo, F_INT *A, F_INT *IERROR)

Function Documentation

FLA_Error FLA_Random_herm_matrix ( FLA_Uplo  uplo,
FLA_Obj  A 
)

References FLA_Check_error_level(), FLA_Hermitianize(), FLA_Random_herm_matrix_check(), and FLA_Random_tri_matrix().

Referenced by fla_random_herm_matrix_f().

00036 {
00037   if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
00038     FLA_Random_herm_matrix_check( uplo, A );
00039 
00040   FLA_Random_tri_matrix( uplo, FLA_NONUNIT_DIAG, A );
00041 
00042   FLA_Hermitianize( uplo, A );
00043 
00044   return FLA_SUCCESS;
00045 }

void FLA_F2C() fla_random_herm_matrix_f ( F_INT *  uplo,
F_INT *  A,
F_INT *  IERROR 
)

References FLA_Random_herm_matrix().

00049 {
00050   *IERROR = FLA_Random_herm_matrix( *( ( FLA_Uplo * ) uplo ),
00051                                     *( ( FLA_Obj  * ) A    ) );
00052 }


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