send_int Subroutine

  1. mimic_data_collect.f90
  2. mimic_data_collect
  3. send_int

public subroutine send_int(this, data, command)

gather integer parameter from client codes

Arguments

TypeIntentOptionalAttributesName
class(mimic_communicator), intent(inout) :: this
integer, intent(in), dimension(:), target:: data

Integer data to gather
integer, intent(in) :: command

MCL command to execute

Contents

Source Code

send_int

Source Code

subroutine send_int(this, data, command)

    class(mimic_communicator), intent(inout) :: this
    !> Integer data to gather
    integer, dimension(:), target, intent(in) :: data
    !> MCL command to execute
    integer, intent(in) :: command

    integer :: n_client

    do n_client = 1, this%num_clients
        call this%send_command(command, n_client)
        call mcl_send(data(n_client), 1, MCL_DATA, n_client)
    end do ! n_client

end subroutine send_int