gather_atom_count Subroutine

  1. mimic_data_collect.f90
  2. mimic_data_collect
  3. gather_atom_count

public subroutine gather_atom_count(this, atoms_pcode)

gather atom count from all clients

Arguments

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

Integer data to gather

Contents

Source Code

gather_atom_count

Source Code

subroutine gather_atom_count(this, atoms_pcode)

    class(mimic_communicator), intent(inout) :: this
    !> Integer data to gather
    integer, dimension(:), target, intent(out) :: atoms_pcode

    call this%gather_int(atoms_pcode, MCL_SEND_NUM_ATOMS)

end subroutine gather_atom_count