truncate_da_long Subroutine

public subroutine truncate_da_long(me)

truncate the array after the last valid entry and hence cut off the empty trailing empty entries

Arguments

Type IntentOptional Attributes Name
type(dyn_longarray_type) :: me

Called by

proc~~truncate_da_long~~CalledByGraph proc~truncate_da_long truncate_da_long interface~truncate~6 truncate interface~truncate~6->proc~truncate_da_long

Contents

Source Code

truncate_da_long

Source Code

  subroutine truncate_da_long(me)
    !------------------------------------------------------------------------
    type(dyn_longarray_type) :: me !< array to sorttruncate
    !------------------------------------------------------------------------
    integer(kind=long_k), allocatable :: swpval(:)
    integer, allocatable :: swpsort(:)
    !------------------------------------------------------------------------

    if (me%nvals < me%containersize) then
      allocate(swpval(me%nvals))
      allocate(swpsort(me%nvals))

      swpval = me%val(:me%nvals)
      swpsort = me%sorted(:me%nvals)

      call move_alloc(swpval, me%val)
      call move_alloc(swpsort, me%sorted)

      me%containersize = me%nvals
    end if

  end subroutine truncate_da_long