remap_local2global Subroutine

private pure subroutine remap_local2global(row_i, col_i, local_rows, local_cols, first, last)

Packs a globally-indexed array into a locally-indexed array.

Arguments

Type IntentOptional Attributes Name
integer, intent(inout), DIMENSION(1:last) :: row_i
integer, intent(inout), DIMENSION(1:last) :: col_i
integer, intent(in), DIMENSION(:) :: local_rows
integer, intent(in), DIMENSION(:) :: local_cols
integer, intent(in) :: first
integer, intent(in) :: last

Source Code

   PURE SUBROUTINE remap_local2global(row_i, col_i, local_rows, local_cols, &
                                      first, last)
      !! Packs a globally-indexed array into a locally-indexed array.
      INTEGER, INTENT(in)                                :: last, first
      INTEGER, DIMENSION(:), INTENT(in)                  :: local_cols, local_rows
      INTEGER, DIMENSION(1:last), INTENT(inout)          :: col_i, row_i

      INTEGER                                            :: i

      DO i = first, last
         row_i(i) = local_rows(row_i(i))
         col_i(i) = local_cols(col_i(i))
      END DO
   END SUBROUTINE remap_local2global