lookup_node_by_loc_gmsh_msh1_file Function

private elemental function lookup_node_by_loc_gmsh_msh1_file(mesh_data, location) 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 location 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
integer, intent(in) :: location

location in node

Return Value type(gmsh_msh1_node_type)


Calls

proc~~lookup_node_by_loc_gmsh_msh1_file~~CallsGraph proc~lookup_node_by_loc_gmsh_msh1_file lookup_node_by_loc_gmsh_msh1_file interface~output_number_of_nodes output_number_of_nodes proc~lookup_node_by_loc_gmsh_msh1_file->interface~output_number_of_nodes proc~initialize_gmsh_msh1_node initialize_gmsh_msh1_node proc~lookup_node_by_loc_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_loc_gmsh_msh1_file~~CalledByGraph proc~lookup_node_by_loc_gmsh_msh1_file lookup_node_by_loc_gmsh_msh1_file interface~lookup_node lookup_node interface~lookup_node->proc~lookup_node_by_loc_gmsh_msh1_file

Source Code

    elemental function lookup_node_by_loc_gmsh_msh1_file(mesh_data, location) result(node)

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

        !> location in [[gmsh_msh1_data_type:node]]
        integer, intent(in) :: location

        type(gmsh_msh1_node_type) :: node



        if (location .lt. 1) then

            call initialize_gmsh_msh1_node(node)

        else if ( output_number_of_nodes(mesh_data) .lt. location ) then

            call initialize_gmsh_msh1_node(node)

        else

            node = mesh_data%node(location)

        end if

    end function lookup_node_by_loc_gmsh_msh1_file