arrayhandlersmodule::extendptrarray Interface Reference

Collaboration diagram for arrayhandlersmodule::extendptrarray:

Private Member Functions
subroutine	extend_double (array, increment)
subroutine	extend_integer (array, increment)
subroutine	extend_string (array, increment)

Detailed Description

Definition at line 34 of file ArrayHandlers.f90.

Member Function/Subroutine Documentation

extend_double()

subroutine arrayhandlersmodule::extendptrarray::extend_double ( real(dp), dimension(:), intent(inout), pointer, contiguous  array, integer(i4b), intent(in), optional  increment  )

private

Definition at line 350 of file ArrayHandlers.f90.

    ! -- dummy
    real(DP), dimension(:), pointer, contiguous, intent(inout) :: array
    integer(I4B), optional, intent(in) :: increment
    ! -- local
    character(len=100) :: ermsg
    integer(I4B) :: i, inc, lb, n, istat
    real(DP), dimension(:), pointer, contiguous :: temp => null()
 
    ! -- 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 (associated(array)) then
      lb = lbound(array, 1)
      n = size(array)
      allocate (temp(lb:(lb + n + inc - 1)), stat=istat, errmsg=ermsg)
      if (istat /= 0) &
        call pstop(138, 'Error in ArrayHandlersModule, '// &
                   'could not increase array size:'//ermsg)
      do i = lb, lb + n - 1
        temp(i) = array(i)
      end do
      deallocate (array)
      array => temp
    else
      allocate (array(inc))
    end if
 

Here is the call graph for this function:

extend_integer()

subroutine arrayhandlersmodule::extendptrarray::extend_integer ( integer(i4b), dimension(:), intent(inout), pointer, contiguous  array, integer(i4b), intent(in), optional  increment  )

private

Definition at line 389 of file ArrayHandlers.f90.

    ! -- dummy
    integer(I4B), dimension(:), pointer, contiguous, intent(inout) :: array
    integer(I4B), optional, intent(in) :: increment
    ! -- local
    character(len=100) :: ermsg
    integer(I4B) :: i, inc, lb, n, istat
    integer(I4B), dimension(:), pointer, contiguous :: temp => null()
 
    ! -- 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 (associated(array)) then
      lb = lbound(array, 1)
      n = size(array)
      allocate (temp(lb:(lb + n + inc - 1)), stat=istat, errmsg=ermsg)
      if (istat /= 0) &
        call pstop(138, 'Error in ArrayHandlersModule, '// &
                   'could not increase array size:'//ermsg)
      do i = lb, lb + n - 1
        temp(i) = array(i)
      end do
      deallocate (array)
      array => temp
    else
      allocate (array(inc))
    end if
 

Here is the call graph for this function:

extend_string()

subroutine arrayhandlersmodule::extendptrarray::extend_string ( character(len=*), dimension(:), pointer, contiguous  array, integer(i4b), optional  increment  )

private

Definition at line 428 of file ArrayHandlers.f90.

    ! -- dummy
    character(len=*), dimension(:), pointer, contiguous :: array
    integer(I4B), optional :: increment
    ! -- local
    integer(I4B) :: inc, i, n
    character(len=len(array)), dimension(:), pointer, contiguous :: temp
 
    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
 
    if (associated(array)) then
      n = size(array)
      temp => array
      allocate (array(n + inc))
      do i = 1, n
        array(i) = temp(i)
      end do
      deallocate (temp)
    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