all_flag Function

private elemental function all_flag(mesh_data)

If any of the flags is .false., it indicates that the file read operation failed.

Arguments

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

Return Value logical


Called by

proc~~all_flag~~CalledByGraph proc~all_flag all_flag proc~is_invalid_gmsh_msh1_file is_invalid_gmsh_msh1_file proc~is_invalid_gmsh_msh1_file->proc~all_flag interface~is_invalid is_invalid interface~is_invalid->proc~is_invalid_gmsh_msh1_file

Source Code

    elemental function all_flag(mesh_data)

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

        logical :: all_flag



        all_flag =     mesh_data%flag_nod_section_header    &!
        &        .and. mesh_data%flag_number_of_nodes       &!
        &        .and. mesh_data%flag_deallocation_nodes    &!
        &        .and. mesh_data%flag_allocation_nodes      &!
        &        .and. mesh_data%flag_reading_nodes         &!
        &        .and. mesh_data%flag_nod_section_footer    &!
        &        .and. mesh_data%flag_elm_section_header    &!
        &        .and. mesh_data%flag_number_of_elements    &!
        &        .and. mesh_data%flag_deallocation_elements &!
        &        .and. mesh_data%flag_allocation_elements   &!
        &        .and. mesh_data%flag_reading_elements      &!
        &        .and. mesh_data%flag_elm_section_footer

    end function all_flag