queue_destroy Subroutine

public subroutine queue_destroy(queue)

Arguments

Type IntentOptional Attributes Name
type(queue_t), intent(inout) :: queue

Called by

proc~~queue_destroy~~CalledByGraph proc~queue_destroy queue_destroy proc~global_coordinator_impl global_coordinator_impl proc~global_coordinator_impl->proc~queue_destroy proc~group_global_coordinator_impl group_global_coordinator_impl proc~group_global_coordinator_impl->proc~queue_destroy proc~global_coordinator global_coordinator proc~global_coordinator->proc~global_coordinator_impl 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 node_coordinator 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 proc~gmbe_run_distributed gmbe_context_t%gmbe_run_distributed proc~gmbe_run_distributed->interface~node_coordinator

Source Code

   subroutine queue_destroy(queue)
      type(queue_t), intent(inout) :: queue
      if (allocated(queue%ids)) deallocate (queue%ids)
      queue%head = 1_int64
      queue%count = 0_int64
   end subroutine queue_destroy