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) |
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 }