Commit d86eca47 authored by Lefebvre, Jordan P's avatar Lefebvre, Jordan P

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

parent 9073731e
Pipeline #20018 failed with stages
in 13 minutes and 49 seconds
......@@ -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
......
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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment