expand_da_attribute Subroutine

private subroutine expand_da_attribute(me, increment, length)

expanding the dynamic array

this is a helping subroutine, which doubles the container of the given dynamic array. as the container might be initially 0-sized, a module variable minlength has been introduced, which is used here, to at least create a container of this size.

Arguments

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

optional length to expand the array


Called by

proc~~expand_da_attribute~~CalledByGraph proc~expand_da_attribute expand_da_attribute interface~expand~7 expand interface~expand~7->proc~expand_da_attribute proc~placeat_ga_distancerefine placeat_ga_distancerefine proc~placeat_ga_distancerefine->interface~expand~7 proc~placeat_ga_distancerefine_vec placeat_ga_distancerefine_vec proc~placeat_ga_distancerefine_vec->interface~expand~7 proc~append_ga_distancerefine append_ga_distancerefine proc~append_ga_distancerefine->interface~expand~7 proc~append_ga_distancerefine_vec append_ga_distancerefine_vec proc~append_ga_distancerefine_vec->interface~expand~7 proc~append_da_attribute append_da_attribute proc~append_da_attribute->interface~expand~7 proc~append_da_vecattribute append_da_vecattribute proc~append_da_vecattribute->interface~expand~7 interface~placeat~6 placeat interface~placeat~6->proc~placeat_ga_distancerefine interface~placeat~6->proc~placeat_ga_distancerefine_vec interface~append~6 append interface~append~6->proc~append_ga_distancerefine interface~append~6->proc~append_ga_distancerefine_vec interface~append~7 append interface~append~7->proc~append_da_attribute interface~append~7->proc~append_da_vecattribute

Contents


Variables

TypeVisibilityAttributesNameInitial
type(sdr_attribute_type), private, allocatable:: swpval(:)
integer, private, allocatable:: swpsort(:)
integer, private :: addvals
integer, private :: explen