We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 0d46361 + 8ed99fe commit bad19f8Copy full SHA for bad19f8
src/stdlib_stats_median.fypp
@@ -125,7 +125,6 @@ contains
125
126
if (any(shape(x) .ne. shape(mask))) then
127
call error_stop("ERROR (median): shapes of x and mask are different")
128
- error stop
129
end if
130
131
x_tmp = pack(x, mask)
@@ -170,7 +169,6 @@ contains
170
169
171
172
173
174
175
176
select case(dim)
0 commit comments