initialize_gmsh_msh1_node Subroutine

private elemental subroutine initialize_gmsh_msh1_node(node)

Arguments

Type IntentOptional Attributes Name
type(gmsh_msh1_node_type), intent(out) :: node

Calls

proc~~initialize_gmsh_msh1_node~~CallsGraph proc~initialize_gmsh_msh1_node initialize_gmsh_msh1_node 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~~initialize_gmsh_msh1_node~~CalledByGraph proc~initialize_gmsh_msh1_node initialize_gmsh_msh1_node proc~lookup_node_by_loc_gmsh_msh1_file lookup_node_by_loc_gmsh_msh1_file proc~lookup_node_by_loc_gmsh_msh1_file->proc~initialize_gmsh_msh1_node proc~lookup_node_by_num_gmsh_msh1_file lookup_node_by_num_gmsh_msh1_file proc~lookup_node_by_num_gmsh_msh1_file->proc~initialize_gmsh_msh1_node proc~read_gmsh_msh1_file_kernel read_gmsh_msh1_file_kernel proc~read_gmsh_msh1_file_kernel->proc~initialize_gmsh_msh1_node interface~lookup_node lookup_node interface~lookup_node->proc~lookup_node_by_loc_gmsh_msh1_file interface~lookup_node->proc~lookup_node_by_num_gmsh_msh1_file proc~read_gmsh_msh1_file read_gmsh_msh1_file proc~read_gmsh_msh1_file->proc~read_gmsh_msh1_file_kernel

Source Code

    elemental subroutine initialize_gmsh_msh1_node(node)

        type(gmsh_msh1_node_type), intent(out) :: node



        call initialize_gmsh_msh1_node_number(node%node_number)

        node%x_coord = ieee_value( node%x_coord, ieee_signaling_nan )
        node%y_coord =             node%x_coord
        node%z_coord =             node%x_coord

    end subroutine initialize_gmsh_msh1_node