arrayhandlersmodule::expandarray Interface Reference

Collaboration diagram for arrayhandlersmodule::expandarray:

Private Member Functions
subroutine	expand_integer (array, increment)
subroutine	expand_double (array, increment)
subroutine	expand_logical (array, increment)
subroutine	expand_character (array, increment)

Detailed Description

Definition at line 17 of file ArrayHandlers.f90.

Member Function/Subroutine Documentation

expand_character()

subroutine arrayhandlersmodule::expandarray::expand_character ( character(len=*), dimension(:), intent(inout), allocatable  array, integer(i4b), intent(in), optional  increment  )

private

Definition at line 205 of file ArrayHandlers.f90.

    ! -- dummy
    character(len=*), allocatable, intent(inout) :: array(:)
    integer(I4B), optional, intent(in) :: increment
    ! -- local
    character(len=MAXCHARLEN), allocatable, dimension(:) :: temp
    integer(I4B) :: i, inc, nold, nnew, lenc
 
    ! -- check character length
    lenc = len(array)
    if (lenc > maxcharlen) &
      call pstop(138, 'Error in ArrayHandlersModule: '// &
                 'Need to increase MAXCHARLEN. Stopping...')
 
    ! -- default to expanding by 1
    if (present(increment)) then
      inc = increment
      if (inc == 0) return
      if (inc < 0) call pstop(1, "increment must be nonnegative")
    else
      inc = 1
    end if
 
    ! -- expand array to the requested size, keeping
    !    existing items, or allocate if still needed
    !    TODO: may be able to use mold here, e.g.:
    !          allocate(values(num), mold=proto)
    if (allocated(array)) then
      nold = size(array)
      nnew = nold + inc
      allocate (temp(nold))
      do i = 1, nold
        temp(i) = array(i)
      end do
      deallocate (array)
      allocate (array(nnew))
      do i = 1, nold
        array(i) = temp(i)
      end do
      do i = nold + 1, nnew
        array(i) = ''
      end do
      deallocate (temp)
    else
      allocate (array(inc))
    end if
 

Here is the call graph for this function:

expand_double()

subroutine arrayhandlersmodule::expandarray::expand_double ( real(dp), dimension(:), intent(inout), allocatable  array, integer(i4b), intent(in), optional  increment  )

private

Definition at line 139 of file ArrayHandlers.f90.

    ! -- dummy
    real(DP), allocatable, intent(inout) :: array(:)
    integer(I4B), optional, intent(in) :: increment
    ! -- local
    integer(I4B) :: inc, lb, n
    real(DP), allocatable, dimension(:) :: temp
 
    ! -- default to expanding by 1
    if (present(increment)) then
      inc = increment
      if (inc == 0) return
      if (inc < 0) call pstop(1, "increment must be nonnegative")
    else
      inc = 1
    end if
 
    ! -- expand array to the requested size, keeping
    !    existing items and the existing lower bound,
    !    or allocate the array if still unallocated
    if (allocated(array)) then
      lb = lbound(array, 1)
      n = size(array)
      allocate (temp(lb:(lb + n + inc - 1)))
      temp(lb:(lb + n - 1)) = array
      deallocate (array)
      call move_alloc(temp, array)
    else
      allocate (array(inc))
    end if
 

Here is the call graph for this function:

expand_integer()

subroutine arrayhandlersmodule::expandarray::expand_integer ( integer(i4b), dimension(:), intent(inout), allocatable  array, integer(i4b), intent(in), optional  increment  )

private

Definition at line 107 of file ArrayHandlers.f90.

    ! -- dummy
    integer(I4B), allocatable, intent(inout) :: array(:)
    integer(I4B), optional, intent(in) :: increment
    ! -- local
    integer(I4B) :: inc, lb, n
    integer(I4B), allocatable, dimension(:) :: temp
 
    ! -- default to expanding by 1
    if (present(increment)) then
      inc = increment
      if (inc == 0) return
      if (inc < 0) call pstop(1, "increment must be nonnegative")
    else
      inc = 1
    end if
 
    ! -- expand array to the requested size, keeping
    !    existing items and the existing lower bound,
    !    or allocate the array if still unallocated
    if (allocated(array)) then
      lb = lbound(array, 1)
      n = size(array)
      allocate (temp(lb:(lb + n + inc - 1)))
      temp(lb:(lb + n - 1)) = array
      deallocate (array)
      call move_alloc(temp, array)
    else
      allocate (array(inc))
    end if

Here is the call graph for this function:

expand_logical()

subroutine arrayhandlersmodule::expandarray::expand_logical ( logical(lgp), dimension(:), intent(inout), allocatable  array, integer(i4b), intent(in), optional  increment  )

private

Definition at line 172 of file ArrayHandlers.f90.

    ! -- dummy
    logical(LGP), allocatable, intent(inout) :: array(:)
    integer(I4B), optional, intent(in) :: increment
    ! -- local
    integer(I4B) :: inc, lb, n
    logical(LGP), allocatable, dimension(:) :: temp
 
    ! -- default to expanding by 1
    if (present(increment)) then
      inc = increment
      if (inc == 0) return
      if (inc < 0) call pstop(1, "increment must be nonnegative")
    else
      inc = 1
    end if
 
    ! -- expand array to the requested size, keeping
    !    existing items and the existing lower bound,
    !    or allocate the array if still unallocated
    if (allocated(array)) then
      lb = lbound(array, 1)
      n = size(array)
      allocate (temp(lb:(lb + n + inc - 1)))
      temp(lb:(lb + n - 1)) = array
      deallocate (array)
      call move_alloc(temp, array)
    else
      allocate (array(inc))
    end if
 

Here is the call graph for this function:

---

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

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