Commit 811e6784 authored by Lefebvre, Jordan P's avatar Lefebvre, Jordan P

Running dos2unix on mergesort.f90 and adding declspec export for shared windows build.

parent d86eca47
Pipeline #20021 passed with stages
in 15 minutes and 30 seconds
......@@ -10,6 +10,7 @@
! This continues for L1 passes, where 2**(L1-1) < n < 2**L1. Note that n does not need to be a power of 2.
implicit none
!DEC$ ATTRIBUTES DLLEXPORT::merge_sort
integer :: i, imax, i0, j, jmax, k, L, L1, m, n
real, intent(inout) :: a(n)
integer, intent(out) :: indices(n)
......
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