queue_init_from_list Subroutine

public subroutine queue_init_from_list(queue, ids)

Arguments

Type IntentOptional Attributes Name
type(queue_t), intent(out) :: queue
integer(kind=int64), intent(in) :: ids(:)

Called by

proc~~queue_init_from_list~~CalledByGraph proc~queue_init_from_list queue_init_from_list proc~global_coordinator_impl global_coordinator_impl proc~global_coordinator_impl->proc~queue_init_from_list proc~gmbe_group_global_coordinator gmbe_group_global_coordinator proc~gmbe_group_global_coordinator->proc~queue_init_from_list proc~gmbe_pie_coordinator gmbe_pie_coordinator proc~gmbe_pie_coordinator->proc~queue_init_from_list proc~group_global_coordinator_impl group_global_coordinator_impl proc~group_global_coordinator_impl->proc~queue_init_from_list proc~global_coordinator global_coordinator proc~global_coordinator->proc~global_coordinator_impl proc~gmbe_run_distributed gmbe_context_t%gmbe_run_distributed proc~gmbe_run_distributed->proc~gmbe_group_global_coordinator proc~gmbe_run_distributed->proc~gmbe_pie_coordinator interface~node_coordinator node_coordinator proc~gmbe_run_distributed->interface~node_coordinator proc~node_coordinator_impl node_coordinator_impl proc~node_coordinator_impl->proc~group_global_coordinator_impl interface~global_coordinator global_coordinator interface~global_coordinator->proc~global_coordinator proc~node_coordinator node_coordinator proc~node_coordinator->proc~node_coordinator_impl interface~node_coordinator->proc~node_coordinator proc~mbe_run_distributed mbe_context_t%mbe_run_distributed proc~mbe_run_distributed->interface~global_coordinator proc~mbe_run_distributed->interface~node_coordinator

Source Code

   subroutine queue_init_from_list(queue, ids)
      type(queue_t), intent(out) :: queue
      integer(int64), intent(in) :: ids(:)

      queue%count = size(ids, kind=int64)
      if (queue%count > 0) then
         allocate (queue%ids(queue%count))
         queue%ids = ids
      end if
      queue%head = 1_int64
   end subroutine queue_init_from_list