send_fragment_to_worker Subroutine

subroutine send_fragment_to_worker(node_comm, fragment_idx, polymers, dest_rank)

Send fragment data to local worker Uses int64 for fragment_idx to handle large fragment indices that overflow int32.

Arguments

Type IntentOptional Attributes Name
type(comm_t), intent(in) :: node_comm
integer(kind=int64), intent(in) :: fragment_idx
integer, intent(in) :: polymers(:,:)
integer, intent(in) :: dest_rank

Calls

proc~~send_fragment_to_worker~~CallsGraph proc~send_fragment_to_worker send_fragment_to_worker proc~send_fragment_payload send_fragment_payload proc~send_fragment_to_worker->proc~send_fragment_payload isend isend proc~send_fragment_payload->isend proc~build_fragment_payload build_fragment_payload proc~send_fragment_payload->proc~build_fragment_payload

Called by

proc~~send_fragment_to_worker~~CalledByGraph proc~send_fragment_to_worker send_fragment_to_worker proc~handle_local_worker_requests handle_local_worker_requests proc~handle_local_worker_requests->proc~send_fragment_to_worker

Source Code

   subroutine send_fragment_to_worker(node_comm, fragment_idx, polymers, dest_rank)
      !! Send fragment data to local worker
      !! Uses int64 for fragment_idx to handle large fragment indices that overflow int32.
      type(comm_t), intent(in) :: node_comm
      integer(int64), intent(in) :: fragment_idx
      integer, intent(in) :: dest_rank
      integer, intent(in) :: polymers(:, :)
      call send_fragment_payload(node_comm, TAG_WORKER_FRAGMENT, fragment_idx, polymers, dest_rank)
   end subroutine send_fragment_to_worker