lookup_node_by_num_gmsh_msh1_file Function

private elemental function lookup_node_by_num_gmsh_msh1_file(mesh_data, node_number) result(node)

Look up a gmsh_msh1_node_type in the gmsh_msh1_data_type.

Warning

If no gmsh_msh1_node_type corresponding to the node_number argument exists, a gmsh_msh1_node_type initialized by initialize_gmsh_msh1_node will be returned.

Arguments

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

Return Value type(gmsh_msh1_node_type)


Calls

proc~~lookup_node_by_num_gmsh_msh1_file~~CallsGraph proc~lookup_node_by_num_gmsh_msh1_file lookup_node_by_num_gmsh_msh1_file interface~output_number_of_nodes output_number_of_nodes proc~lookup_node_by_num_gmsh_msh1_file->interface~output_number_of_nodes proc~initialize_gmsh_msh1_node initialize_gmsh_msh1_node proc~lookup_node_by_num_gmsh_msh1_file->proc~initialize_gmsh_msh1_node proc~output_number_of_nodes_gmsh_msh1_element output_number_of_nodes_gmsh_msh1_element interface~output_number_of_nodes->proc~output_number_of_nodes_gmsh_msh1_element proc~output_number_of_nodes_gmsh_msh1_file output_number_of_nodes_gmsh_msh1_file interface~output_number_of_nodes->proc~output_number_of_nodes_gmsh_msh1_file proc~initialize_gmsh_msh1_node_number initialize_gmsh_msh1_node_number proc~initialize_gmsh_msh1_node->proc~initialize_gmsh_msh1_node_number

Called by

proc~~lookup_node_by_num_gmsh_msh1_file~~CalledByGraph proc~lookup_node_by_num_gmsh_msh1_file lookup_node_by_num_gmsh_msh1_file interface~lookup_node lookup_node interface~lookup_node->proc~lookup_node_by_num_gmsh_msh1_file

Variables

Type Visibility Attributes Name Initial
integer, private :: itr_node

Source Code

    elemental function lookup_node_by_num_gmsh_msh1_file(mesh_data, node_number) result(node)

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

        type(gmsh_msh1_node_number_type), intent(in) :: node_number

        type(gmsh_msh1_node_type) :: node



        integer :: itr_node



        do itr_node = 1, output_number_of_nodes(mesh_data)

            if ( mesh_data%node(itr_node)%node_number .eq. node_number ) then

                node = mesh_data%node(itr_node)

                return

            end if

        end do

        call initialize_gmsh_msh1_node(node)

    end function lookup_node_by_num_gmsh_msh1_file