Definition at line 15 of file sort.f90.
◆ unique_values_dbl1d()
subroutine sortmodule::unique_values::unique_values_dbl1d |
( |
real(dp), dimension(:), intent(in), allocatable |
a, |
|
|
real(dp), dimension(:), intent(inout), allocatable |
b |
|
) |
| |
|
private |
Definition at line 345 of file sort.f90.
347 real(DP),
dimension(:),
allocatable,
intent(in) :: a
348 real(DP),
dimension(:),
allocatable,
intent(inout) :: b
350 integer(I4B) :: count
352 integer(I4B),
dimension(:),
allocatable :: indxarr
353 real(DP),
dimension(:),
allocatable :: tarr
358 allocate (tarr(
size(a)))
359 allocate (indxarr(
size(a)))
368 call qsort(indxarr, tarr, reverse=.true.)
373 if (tarr(n) > tarr(n - 1)) count = count + 1
377 if (
allocated(b))
then
386 if (tarr(n) > b(count))
then
◆ unique_values_int1d()
subroutine sortmodule::unique_values::unique_values_int1d |
( |
integer(i4b), dimension(:), intent(in), allocatable |
a, |
|
|
integer(i4b), dimension(:), intent(inout), allocatable |
b |
|
) |
| |
|
private |
Definition at line 290 of file sort.f90.
292 integer(I4B),
dimension(:),
allocatable,
intent(in) :: a
293 integer(I4B),
dimension(:),
allocatable,
intent(inout) :: b
295 integer(I4B) :: count
297 integer(I4B),
dimension(:),
allocatable :: indxarr
298 integer(I4B),
dimension(:),
allocatable :: tarr
303 allocate (tarr(
size(a)))
304 allocate (indxarr(
size(a)))
313 call qsort(indxarr, tarr, reverse=.true.)
318 if (tarr(n) > tarr(n - 1)) count = count + 1
322 if (
allocated(b))
then
331 if (tarr(n) > b(count))
then
The documentation for this interface was generated from the following file:
- /home/runner/work/modflow6/modflow6/src/Utilities/sort.f90