Gathers the local elements from all data (full_data)
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in), | DIMENSION(:), CONTIGUOUS | :: | full_data |
All elements |
|
integer, | intent(in) | :: | nle |
Number of local elements |
||
integer, | intent(in), | DIMENSION(1:nle) | :: | local_elements |
List of local elements |
|
integer, | intent(out), | DIMENSION(1:nle) | :: | local_data |
Local elements obtained from all elements |
PURE SUBROUTINE local_filter(full_data, nle, local_elements, local_data)
!! Gathers the local elements from all data (full_data)
INTEGER, DIMENSION(:), INTENT(IN), CONTIGUOUS :: full_data
!! All elements
INTEGER, INTENT(IN) :: nle
!! Number of local elements
INTEGER, DIMENSION(1:nle), INTENT(IN) :: local_elements
!! List of local elements
INTEGER, DIMENSION(1:nle), INTENT(OUT) :: local_data
!! Local elements obtained from all elements
INTEGER :: l
DO l = 1, nle
local_data(l) = full_data(local_elements(l))
END DO
END SUBROUTINE local_filter