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.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dyn_labelarray_type) | :: | me | ||||
integer, | optional | :: | increment | |||
integer, | intent(in), | optional | :: | length | optional length to expand the array |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=labellen), | public, | allocatable | :: | swpval(:) | |||
integer, | public, | allocatable | :: | swpsort(:) | |||
integer, | public | :: | addvals | ||||
integer, | public | :: | explen |