truncate_da_attribute Subroutine

private subroutine truncate_da_attribute(me)

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

Arguments

TypeIntentOptionalAttributesName
type(dyn_attributearray_type) :: me

Called by

proc~~truncate_da_attribute~~CalledByGraph proc~truncate_da_attribute truncate_da_attribute interface~truncate~7 truncate interface~truncate~7->proc~truncate_da_attribute

Contents


Variables

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