arrayhandlersmodule::expandarraywrapper Interface Reference

Collaboration diagram for arrayhandlersmodule::expandarraywrapper:

Private Member Functions
subroutine	expand_integer_wrapper (nsize, array, minvalue, loginc)

Detailed Description

Definition at line 13 of file ArrayHandlers.f90.

Member Function/Subroutine Documentation

expand_integer_wrapper()

subroutine arrayhandlersmodule::expandarraywrapper::expand_integer_wrapper ( integer(i4b), intent(in)  nsize, integer(i4b), dimension(:), intent(inout), allocatable  array, integer(i4b), intent(in), optional  minvalue, logical(lgp), intent(in), optional  loginc  )

private

Definition at line 50 of file ArrayHandlers.f90.

    ! -- dummy
    integer(I4B), intent(in) :: nsize
    integer(I4B), allocatable, intent(inout) :: array(:)
    integer(I4B), intent(in), optional :: minvalue
    logical(LGP), intent(in), optional :: loginc
    ! -- local
    logical(LGP) :: log_increment
    integer(I4B) :: minimum_increment
    integer(I4B) :: increment
    integer(I4B) :: isize
    integer(I4B) :: n
    !
    ! -- process optional variables
    if (present(minvalue)) then
      minimum_increment = minvalue
    else
      minimum_increment = 100
    end if
    if (present(loginc)) then
      log_increment = loginc
    else
      log_increment = .false.
    end if
    !
    ! -- determine current size of the array
    isize = size(array)
    !
    ! -- expand the array if necessary
    if (nsize > isize) then
      !
      ! -- increase array size by 1, 10, 100, 1000, etc.
      !    from 1 to 9, 10 to 99, 100 to 999, 1000 to 10000, etc.
      if (loginc) then
        increment = int(log10(real(nsize, dp)), i4b)
        increment = int(dten**increment, i4b)
        !
        ! -- increase increment by a multiplier and a value no
        !    smaller than a default or specified minimum size
      else
        increment = int(nsize * 0.2_dp)
        increment = max(minimum_increment, increment)
      end if
      !
      ! -- expand the array
      call expandarray(array, increment)
      !
      ! -- initialize expanded array elements
      do n = isize + 1, size(array)
        array(n) = 0
      end do
    end if
 

---

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

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