local_filter Subroutine

public pure subroutine local_filter(full_data, nle, local_elements, local_data)

Gathers the local elements from all data (full_data)

Arguments

Type IntentOptional 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

Source Code

   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