truncate_da_projection Subroutine

private subroutine truncate_da_projection(me)

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

Arguments

TypeIntentOptionalAttributesName
type(dyn_projectionarray_type) :: me

Called by

proc~~truncate_da_projection~~CalledByGraph proc~truncate_da_projection truncate_da_projection interface~truncate truncate interface~truncate->proc~truncate_da_projection

Contents


Variables

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