Skip to content

stdlib_selection: correction of typos and addition of some checks #585

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 6 commits into from
Dec 8, 2021
Merged

stdlib_selection: correction of typos and addition of some checks #585

Show file tree
Hide file tree
Changes from 3 commits
Commits
Show all changes
6 commits
Select commit Hold shift + click to select a range
1b6ae52
update stdlib_selection typo
jvdp1 Dec 1, 2021
64b1b0e
add checks
jvdp1 Dec 1, 2021
1822ccd
remove surplus conditions
jvdp1 Dec 2, 2021
0312d3d
change comment following @ivan-pi
jvdp1 Dec 3, 2021
b6f442c
change following @gareth-nx
jvdp1 Dec 3, 2021
cbc3262
add commment for module pr_selection
jvdp1 Dec 5, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions doc/specs/stdlib_selection.md
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -159,7 +159,7 @@ Generic subroutine.

`array` : shall be a rank one array of any of the types:
`integer(int8)`, `integer(int16)`, `integer(int32)`, `integer(int64)`,
`real(sp)`, `real(dp)`, `real(xdp), `real(qp)`. It is an `intent(in)` argument. On input it is
`real(sp)`, `real(dp)`, `real(xdp)`, `real(qp)`. It is an `intent(in)` argument. On input it is
the array in which we search for the k-th smallest entry.

`indx`: shall be a rank one array with the same size as `array`, containing all integers
Expand Down Expand Up @@ -198,7 +198,7 @@ The code does not support `NaN` elements in `array`; it will run, but there is
no consistent interpretation given to the order of `NaN` entries of `array`
compared to other entries.

While it is essential that that `indx` contains a permutation of the integers `1:size(array)`,
While it is essential that `indx` contains a permutation of the integers `1:size(array)`,
the code does not check for this. For example if `size(array) == 4`, then we could have
`indx = [4, 2, 1, 3]` or `indx = [1, 2, 3, 4]`, but not `indx = [2, 1, 2, 4]`. It is the user's
responsibility to avoid such errors.
Expand Down
10 changes: 6 additions & 4 deletions src/stdlib_selection.fypp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -85,8 +85,9 @@ contains
r = size(a, kind=ip)
if(present(right)) r = right

if(k < 1_ip .or. k > size(a, kind=ip) .or. l > r .or. l < 1_ip .or. &
r > size(a, kind=ip)) then
if(l > r .or. l < 1_ip .or. r > size(a, kind=ip) &
.or. k < l .or. k > r & !i.e. if k is not in the interval [l; r]
) then
error stop "select must have 1 <= k <= size(a), and 1 <= left <= right <= size(a)";
end if

Expand Down Expand Up @@ -201,8 +202,9 @@ contains
error stop "arg_select must have size(a) == size(indx)"
end if

if(k < 1_ip .or. k > size(a, kind=ip) .or. l > r .or. l < 1_ip .or. &
r > size(a, kind=ip)) then
if(l > r .or. l < 1_ip .or. r > size(a, kind=ip) &
.or. k < l .or. k > r & !i.e. if k is not in the interval [l; r]
) then
error stop "arg_select must have 1 <= k <= size(a), and 1 <= left <= right <= size(a)";
end if

Expand Down