File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -81,7 +81,7 @@ contains
81
81
${arraytype}$, intent(inout) :: a(:)
82
82
!! Array in which we seek the kth-smallest entry.
83
83
!! On output it will be partially sorted such that
84
- !! `maxval (a(1:(k-1))) <= a(k) <= minval( a((k+1):size(a))).`
84
+ !! `all (a(1:(k-1)) <= a(k)) .and. all(a(k) <= a((k+1):size(a)))`.
85
85
${inttype}$, intent(in) :: k
86
86
!! We want the kth smallest entry. E.G. `k=1` leads to
87
87
!! `kth_smallest=min(a)`, and `k=size(a)` leads to
@@ -169,7 +169,7 @@ contains
169
169
${inttype}$, intent(inout) :: indx(:)
170
170
!! Array of indices into `a(:)`. Must contain each integer
171
171
!! from `1:size(a)` exactly once. On output it will be partially
172
- !! " sorted" such that
172
+ !! sorted such that
173
173
!! `all( a(indx(1:(k-1)))) <= a(indx(k)) ) .AND.
174
174
!! all( a(indx(k)) <= a(indx( (k+1):size(a) )) )`.
175
175
${inttype}$, intent(in) :: k
You can’t perform that action at this time.
0 commit comments