send_fragment_to_node Subroutine

subroutine send_fragment_to_node(world_comm, fragment_idx, polymers, dest_rank)

Send fragment data to remote node coordinator Uses int64 for fragment_idx to handle large fragment indices that overflow int32.

Arguments

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

Calls

proc~~send_fragment_to_node~~CallsGraph proc~send_fragment_to_node send_fragment_to_node proc~send_fragment_payload send_fragment_payload proc~send_fragment_to_node->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_node~~CalledByGraph proc~send_fragment_to_node send_fragment_to_node proc~handle_node_requests handle_node_requests proc~handle_node_requests->proc~send_fragment_to_node

Source Code

   subroutine send_fragment_to_node(world_comm, fragment_idx, polymers, dest_rank)
      !! Send fragment data to remote node coordinator
      !! Uses int64 for fragment_idx to handle large fragment indices that overflow int32.
      type(comm_t), intent(in) :: world_comm
      integer(int64), intent(in) :: fragment_idx
      integer, intent(in) :: dest_rank
      integer, intent(in) :: polymers(:, :)
      call send_fragment_payload(world_comm, TAG_NODE_FRAGMENT, fragment_idx, polymers, dest_rank)
   end subroutine send_fragment_to_node