Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
LEFEBVREJP email
radix
Commits
d86eca47
Commit
d86eca47
authored
Dec 06, 2018
by
LEFEBVREJP email
Browse files
Declaring merge_sort interface in tstMergeSort to satisfy Windows Intel (hopefully).
parent
9073731e
Pipeline
#20018
failed with stages
in 13 minutes and 49 seconds
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
radixalgorithm/mergesort.f90
View file @
d86eca47
...
...
@@ -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
View file @
d86eca47
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
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment