empty_da_label Subroutine

public subroutine empty_da_label(me)

empty all contents of the array without changing the size or status of any array

Arguments

Type IntentOptional Attributes Name
type(dyn_labelarray_type) :: me

Called by

proc~~empty_da_label~~CalledByGraph proc~empty_da_label empty_da_label interface~empty~18 empty interface~empty~18->proc~empty_da_label proc~tem_empty_varsys tem_empty_varsys proc~tem_empty_varsys->interface~empty~18

Source Code

  subroutine empty_da_label(me)
    !------------------------------------------------------------------------
    type(dyn_labelarray_type) :: me !< array to sorttruncate
    !------------------------------------------------------------------------
    ! reset the number of entries
    me%nvals = 0
  end subroutine empty_da_label