Declaring merge_sort interface in tstMergeSort to satisfy Windows Intel (hopefully).

radixalgorithm/mergesort.f90

@@ -11,8 +11,8 @@
 
     implicit none
     integer :: i, imax, i0, j, jmax, k, L, L1, m, n
-    real    :: a(n)
-    integer :: indices(n)
+    real, intent(inout) :: a(n)
+    integer, intent(out) :: indices(n)
     real, allocatable :: b(:)
     allocate (b(n))
     L1 = 1

radixalgorithm/tests/tstMergeSort.f90

     Program run_merge
     implicit none
-    external merge_sort
+    interface
+      subroutine merge_sort(n, a, indices)
+      integer :: n
+      real, intent(inout) :: a(n)
+      integer, intent(out) :: indices(n)
+      end subroutine
+    end interface
     integer :: n, i
     character (len=10) :: d1, d2, d3
     integer :: time(8)