prefix_counts Subroutine

private subroutine prefix_counts(counts, displs)

Converts per-rank counts to zero-based displacements.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: counts(:)
integer, intent(out) :: displs(:)

Source Code

   subroutine prefix_counts(counts, displs)
      integer, intent(in) :: counts(:)
      integer, intent(out) :: displs(:)
      integer :: r

      if (size(counts) <= 0) return

      displs(1) = 0
      do r = 2, size(counts)
         displs(r) = displs(r - 1) + counts(r - 1)
      end do
   end subroutine prefix_counts