get_neighbor_list Function

private function get_neighbor_list(self, node_id) result(id_list)

Type Bound

type_map_node_to_element

Arguments

Type IntentOptional Attributes Name
class(type_map_node_to_element), intent(inout), target :: self
integer(kind=int32), intent(in) :: node_id

Return Value integer(kind=int32), pointer, (:)


Called by

proc~~get_neighbor_list~~CalledByGraph proc~get_neighbor_list type_map_node_to_element%get_neighbor_list proc~update_type_thermal_crs update_type_thermal_crs proc~update_type_thermal_crs->proc~get_neighbor_list interface~update_type_thermal_crs type_thermal_crs%update_type_thermal_crs interface~update_type_thermal_crs->proc~update_type_thermal_crs

Source Code

    function get_neighbor_list(self, node_id) result(id_list)
        class(type_map_node_to_element), intent(inout), target :: self
        integer(int32), intent(in) :: node_id
        integer(int32), pointer :: id_list(:)

        nullify (id_list)
        if (node_id < 1 .or. node_id > size(self%map_data)) return

        if (allocated(self%map_data(node_id)%ids)) then
            id_list => self%map_data(node_id)%ids
        end if
    end function get_neighbor_list