call_rec_sort_index Subroutine

private subroutine call_rec_sort_index(m, n, nblks, idx)

Used to thunk a call to rec_sort_index

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: m
integer, intent(in) :: n
integer, intent(in) :: nblks
integer, intent(inout), DIMENSION(3, 1:nblks):: idx

Contents

Source Code


Source Code

   SUBROUTINE call_rec_sort_index(m, n, nblks, idx)
      !! Used to thunk a call to rec_sort_index
      INTEGER, INTENT(IN)                                :: m, n, nblks
      INTEGER, DIMENSION(3, 1:nblks), INTENT(INOUT)      :: idx

!   ---------------------------------------------------------------------------

      CALL rec_sort_index(1, m, 1, n, nblks, idx, 0)
   END SUBROUTINE call_rec_sort_index