is_read_successful_gmsh_msh1_file Function

private elemental function is_read_successful_gmsh_msh1_file(mesh_data) result(is_valid)

Arguments

Type IntentOptional Attributes Name
type(gmsh_msh1_data_type), intent(in) :: mesh_data

Return Value logical


Calls

proc~~is_read_successful_gmsh_msh1_file~~CallsGraph proc~is_read_successful_gmsh_msh1_file is_read_successful_gmsh_msh1_file proc~all_flag all_flag proc~is_read_successful_gmsh_msh1_file->proc~all_flag proc~is_iostat_failure is_iostat_failure proc~is_read_successful_gmsh_msh1_file->proc~is_iostat_failure proc~is_stat_failure is_stat_failure proc~is_read_successful_gmsh_msh1_file->proc~is_stat_failure

Called by

proc~~is_read_successful_gmsh_msh1_file~~CalledByGraph proc~is_read_successful_gmsh_msh1_file is_read_successful_gmsh_msh1_file interface~is_read_successful is_read_successful interface~is_read_successful->proc~is_read_successful_gmsh_msh1_file proc~validate_gmsh_msh1_data validate_gmsh_msh1_data proc~validate_gmsh_msh1_data->interface~is_read_successful interface~validate validate proc~validate_gmsh_msh1_data->interface~validate proc~validate_gmsh_msh1_element_with_mesh_data_private validate_gmsh_msh1_element_with_mesh_data_private proc~validate_gmsh_msh1_data->proc~validate_gmsh_msh1_element_with_mesh_data_private proc~validate_gmsh_msh1_element_with_mesh_data_public validate_gmsh_msh1_element_with_mesh_data_public proc~validate_gmsh_msh1_element_with_mesh_data_public->interface~is_read_successful proc~validate_gmsh_msh1_element_with_mesh_data_public->proc~validate_gmsh_msh1_element_with_mesh_data_private interface~validate->proc~validate_gmsh_msh1_data interface~validate->proc~validate_gmsh_msh1_element_with_mesh_data_public proc~validate_gmsh_msh1_element_without_mesh_data validate_gmsh_msh1_element_without_mesh_data interface~validate->proc~validate_gmsh_msh1_element_without_mesh_data proc~validate_gmsh_msh1_node validate_gmsh_msh1_node interface~validate->proc~validate_gmsh_msh1_node proc~validate_gmsh_msh1_element_with_mesh_data_private->interface~validate proc~validate_gmsh_msh1_element_without_mesh_data->interface~validate proc~validate_gmsh_msh1_node->interface~validate

Variables

Type Visibility Attributes Name Initial
logical, private :: is_invalid

Source Code

    elemental function is_read_successful_gmsh_msh1_file(mesh_data) result(is_valid)

        type(gmsh_msh1_data_type), intent(in) :: mesh_data

        logical :: is_valid



        logical :: is_invalid



        is_invalid = &!
            &              is_stat_failure   ( mesh_data%status )   &!
            & .or.         is_iostat_failure ( mesh_data%status )   &!
            & .or. ( .not. all_flag          ( mesh_data        ) )

        is_valid = .not. is_invalid

    end function is_read_successful_gmsh_msh1_file