validate_gmsh_msh1_element_without_mesh_data Function

private elemental function validate_gmsh_msh1_element_without_mesh_data(element) result(is_valid)

Checks if the derived type is valid.

Note

This function does NOT verify that referenced gmsh_msh1_node_type exist in the mesh.

Arguments

Type IntentOptional Attributes Name
type(gmsh_msh1_element_type), intent(in) :: element

Return Value logical


Calls

proc~~validate_gmsh_msh1_element_without_mesh_data~~CallsGraph proc~validate_gmsh_msh1_element_without_mesh_data validate_gmsh_msh1_element_without_mesh_data interface~validate validate proc~validate_gmsh_msh1_element_without_mesh_data->interface~validate interface~validate->proc~validate_gmsh_msh1_element_without_mesh_data proc~validate_gmsh_msh1_data validate_gmsh_msh1_data interface~validate->proc~validate_gmsh_msh1_data proc~validate_gmsh_msh1_element_with_mesh_data_public validate_gmsh_msh1_element_with_mesh_data_public interface~validate->proc~validate_gmsh_msh1_element_with_mesh_data_public proc~validate_gmsh_msh1_node validate_gmsh_msh1_node interface~validate->proc~validate_gmsh_msh1_node proc~validate_gmsh_msh1_number validate_gmsh_msh1_number interface~validate->proc~validate_gmsh_msh1_number proc~validate_gmsh_msh1_reg_elem validate_gmsh_msh1_reg_elem interface~validate->proc~validate_gmsh_msh1_reg_elem proc~validate_gmsh_msh1_reg_phys validate_gmsh_msh1_reg_phys interface~validate->proc~validate_gmsh_msh1_reg_phys proc~validate_gmsh_msh1_data->interface~validate interface~is_read_successful is_read_successful proc~validate_gmsh_msh1_data->interface~is_read_successful 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->interface~is_read_successful proc~validate_gmsh_msh1_element_with_mesh_data_public->proc~validate_gmsh_msh1_element_with_mesh_data_private proc~validate_gmsh_msh1_node->interface~validate proc~is_read_successful_gmsh_msh1_file is_read_successful_gmsh_msh1_file interface~is_read_successful->proc~is_read_successful_gmsh_msh1_file proc~validate_gmsh_msh1_element_with_mesh_data_private->interface~validate 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~~validate_gmsh_msh1_element_without_mesh_data~~CalledByGraph proc~validate_gmsh_msh1_element_without_mesh_data validate_gmsh_msh1_element_without_mesh_data interface~validate validate proc~validate_gmsh_msh1_element_without_mesh_data->interface~validate interface~validate->proc~validate_gmsh_msh1_element_without_mesh_data proc~validate_gmsh_msh1_data validate_gmsh_msh1_data interface~validate->proc~validate_gmsh_msh1_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_public validate_gmsh_msh1_element_with_mesh_data_public interface~validate->proc~validate_gmsh_msh1_element_with_mesh_data_public 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_private->interface~validate proc~validate_gmsh_msh1_node->interface~validate proc~validate_gmsh_msh1_element_with_mesh_data_public->proc~validate_gmsh_msh1_element_with_mesh_data_private

Source Code

    elemental function validate_gmsh_msh1_element_without_mesh_data(element) result(is_valid)

        type(gmsh_msh1_element_type), intent(in) :: element

        logical :: is_valid



        is_valid = validate(element%elm_number)

        if (.not. is_valid) return



        is_valid = validate(element%reg_elem)

        if (.not. is_valid) return



        is_valid = validate(element%reg_phys)

        if (.not. is_valid) return



        is_valid = allocated(element%node_number_list)

        if (.not. is_valid) return



        is_valid = all( validate( element%node_number_list(:) ) )

    end function validate_gmsh_msh1_element_without_mesh_data