sortmodule::unique_values Interface Reference

Collaboration diagram for sortmodule::unique_values:

Private Member Functions
subroutine	unique_values_int1d (a, b)
subroutine	unique_values_dbl1d (a, b)

Detailed Description

Definition at line 15 of file sort.f90.

Member Function/Subroutine Documentation

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 329 of file sort.f90.

    ! - dummy arguments
    real(DP), dimension(:), allocatable, intent(in) :: a
    real(DP), dimension(:), allocatable, intent(inout) :: b
    ! -- local variables
    integer(I4B) :: count
    integer(I4B) :: n
    integer(I4B), dimension(:), allocatable :: indxarr
    real(DP), dimension(:), allocatable :: tarr
    ! -- functions
    ! -- code
    !
    ! -- allocate tarr and create idxarr
    allocate (tarr(size(a)))
    allocate (indxarr(size(a)))
    !
    ! -- fill tarr with a and create index
    do n = 1, size(a)
      tarr(n) = a(n)
      indxarr(n) = n
    end do
    !
    ! -- sort a in increasing order
    call qsort(indxarr, tarr, reverse=.true.)
    !
    ! -- determine the number of unique values
    count = 1
    do n = 2, size(tarr)
      if (tarr(n) > tarr(n - 1)) count = count + 1
    end do
    !
    ! -- allocate b for unique values
    if (allocated(b)) then
      deallocate (b)
    end if
    allocate (b(count))
    !
    ! -- fill b with unique values
    b(1) = tarr(1)
    count = 1
    do n = 2, size(a)
      if (tarr(n) > b(count)) then
        count = count + 1
        b(count) = tarr(n)
      end if
    end do
    !
    ! -- allocate tarr and create idxarr
    deallocate (tarr)
    deallocate (indxarr)

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 277 of file sort.f90.

    ! - dummy arguments
    integer(I4B), dimension(:), allocatable, intent(in) :: a
    integer(I4B), dimension(:), allocatable, intent(inout) :: b
    ! -- local variables
    integer(I4B) :: count
    integer(I4B) :: n
    integer(I4B), dimension(:), allocatable :: indxarr
    integer(I4B), dimension(:), allocatable :: tarr
    ! -- functions
    ! -- code
    !
    ! -- allocate tarr and create idxarr
    allocate (tarr(size(a)))
    allocate (indxarr(size(a)))
    !
    ! -- fill tarr with a and create index
    do n = 1, size(a)
      tarr(n) = a(n)
      indxarr(n) = n
    end do
    !
    ! -- sort a in increasing order
    call qsort(indxarr, tarr, reverse=.true.)
    !
    ! -- determine the number of unique values
    count = 1
    do n = 2, size(tarr)
      if (tarr(n) > tarr(n - 1)) count = count + 1
    end do
    !
    ! -- allocate b for unique values
    if (allocated(b)) then
      deallocate (b)
    end if
    allocate (b(count))
    !
    ! -- fill b with unique values
    b(1) = tarr(1)
    count = 1
    do n = 2, size(a)
      if (tarr(n) > b(count)) then
        count = count + 1
        b(count) = tarr(n)
      end if
    end do
    !
    ! -- allocate tarr and create idxarr
    deallocate (tarr)
    deallocate (indxarr)

---

The documentation for this interface was generated from the following file:

• /home/runner/work/modflow6/modflow6/src/Utilities/sort.f90