append_da_vecattribute Subroutine

  1. sdr_attribute_module.f90
  2. sdr_attribute_module
  3. append_da_vecattribute

private subroutine append_da_vecattribute(me, val, length, pos, wasadded)

appending a sorted list of values to the dynamic array

with this subroutine, a given list of sorted values can be added to the dynamic array. the actual positions of these values in the dynamic array will be returned, so it can be found again easily later. with the wasadded flag, it is indicated,\n wasadded = true, if this entry had to be added,\n wasadded = false, if this was already found in the array.

Arguments

TypeIntentOptionalAttributesName
type(dyn_attributearray_type) :: me
type(sdr_attribute_type), intent(in) :: val(:)
integer, intent(in), optional :: length

optional length to expand the array
integer, intent(out), optional :: pos(:)

position in the array, the values are found at.
logical, intent(out), optional :: wasadded(:)

flag to indicate, if val was newly added

Calls

proc~~append_da_vecattribute~~CallsGraph proc~append_da_vecattribute append_da_vecattribute interface~expand~7 expand proc~append_da_vecattribute->interface~expand~7 proc~expand_da_attribute expand_da_attribute interface~expand~7->proc~expand_da_attribute

Called by

proc~~append_da_vecattribute~~CalledByGraph proc~append_da_vecattribute append_da_vecattribute interface~append~7 append interface~append~7->proc~append_da_vecattribute

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
type(sdr_attribute_type), private :: lastval
logical, private :: addedval(size(val))
integer, private :: i
integer, private :: veclen
integer, private :: maxlen
integer, private :: nappend
integer, private :: rem_app
integer, private :: curval
integer, private :: ival
integer, private :: iold
integer, private :: iadd
integer, private, allocatable:: newsorted(:)