arrayhandlersmodule::expandarray2d Interface Reference

Collaboration diagram for arrayhandlersmodule::expandarray2d:

Private Member Functions
subroutine	expand_integer_2d (array, increment1, increment2)
subroutine	expand_double_2d (array, increment1, increment2)

Detailed Description

Definition at line 26 of file ArrayHandlers.f90.

Member Function/Subroutine Documentation

expand_double_2d()

subroutine arrayhandlersmodule::expandarray2d::expand_double_2d ( real(dp), dimension(:, :), intent(inout), allocatable  array, integer(i4b), intent(in), optional  increment1, integer(i4b), intent(in), optional  increment2  )

private

Definition at line 302 of file ArrayHandlers.f90.

    ! -- dummy
    real(DP), allocatable, intent(inout) :: array(:, :)
    integer(I4B), optional, intent(in) :: increment1
    integer(I4B), optional, intent(in) :: increment2
    ! -- local
    integer(I4B) :: inc1, inc2, lb1, lb2, n1, n2
    real(DP), allocatable, dimension(:, :) :: temp
 
    ! -- default to expanding both dimensions by 1
    if (present(increment1)) then
      inc1 = increment1
    else
      inc1 = 1
    end if
    if (present(increment2)) then
      inc2 = increment2
    else
      inc2 = 1
    end if
    if (inc1 == 0 .and. inc2 == 0) return
    if (inc1 < 0 .or. inc2 < 0) &
      call pstop(1, "increments must be nonnegative")
 
    ! -- 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
      lb1 = lbound(array, 1)
      lb2 = lbound(array, 2)
      n1 = size(array, 1)
      n2 = size(array, 2)
      allocate (temp( &
                lb1:(lb1 + n1 + inc1 - 1), &
                lb2:(lb2 + n2 + inc2 - 1)))
      temp( &
        lb1:(lb1 + n1 - 1), &
        lb2:(lb2 + n2 - 1)) = array
      deallocate (array)
      call move_alloc(temp, array)
    else
      allocate (array(inc1, inc2))
    end if
 

Here is the call graph for this function:

expand_integer_2d()

subroutine arrayhandlersmodule::expandarray2d::expand_integer_2d ( integer(i4b), dimension(:, :), intent(inout), allocatable  array, integer(i4b), intent(in), optional  increment1, integer(i4b), intent(in), optional  increment2  )

private

Definition at line 256 of file ArrayHandlers.f90.

    ! -- dummy
    integer(I4B), allocatable, intent(inout) :: array(:, :)
    integer(I4B), optional, intent(in) :: increment1
    integer(I4B), optional, intent(in) :: increment2
    ! -- local
    integer(I4B) :: inc1, inc2, lb1, lb2, n1, n2
    integer(I4B), allocatable, dimension(:, :) :: temp
 
    ! -- default to expanding both dimensions by 1
    if (present(increment1)) then
      inc1 = increment1
    else
      inc1 = 1
    end if
    if (present(increment2)) then
      inc2 = increment2
    else
      inc2 = 1
    end if
    if (inc1 == 0 .and. inc2 == 0) return
    if (inc1 < 0 .or. inc2 < 0) &
      call pstop(1, "increments must be nonnegative")
 
    ! -- 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
      lb1 = lbound(array, 1)
      lb2 = lbound(array, 2)
      n1 = size(array, 1)
      n2 = size(array, 2)
      allocate (temp( &
                lb1:(lb1 + n1 + inc1 - 1), &
                lb2:(lb2 + n2 + inc2 - 1)))
      temp( &
        lb1:(lb1 + n1 - 1), &
        lb2:(lb2 + n2 - 1)) = array
      deallocate (array)
      call move_alloc(temp, array)
    else
      allocate (array(inc1, inc2))
    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