get_multipole_order Subroutine

  1. mimic_data_collect.f90
  2. mimic_data_collect
  3. get_multipole_order

public subroutine get_multipole_order(this, multipoles_orders)

get the orders of multipoles used in each client code

Arguments

TypeIntentOptionalAttributesName
class(mimic_communicator), intent(inout) :: this
integer, intent(out), dimension(:), target:: multipoles_orders

multipoles_orders array of orders

Contents

Source Code

get_multipole_order

Source Code

subroutine get_multipole_order(this, multipoles_orders)

    class(mimic_communicator), intent(inout) :: this
    !> multipoles_orders array of orders
    integer, dimension(:), intent(out), target :: multipoles_orders

    integer :: n_client

    do n_client = 1, this%num_clients
        call this%send_command(MCL_SEND_MULTIPOLE_ORDER, n_client)
        call mcl_receive(multipoles_orders(n_client), 1, MCL_DATA, n_client)
    end do

end subroutine get_multipole_order