sorttruncate_da_projection Subroutine

private subroutine sorttruncate_da_projection(me)

fixing the dynamic array

truncate the array after the last valid entry and hence cut off the empty trailing empty entries store the array in the sorted order according to the sorted( ) array

Arguments

Type IntentOptional Attributes Name
type(dyn_projectionarray_type) :: me