Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
subroutine truncate_ga_dynint(me)!------------------------------------------------------------------------type(grw_dynintarray_type)::me!< array to truncate!------------------------------------------------------------------------type(dyn_intarray_type),allocatable::tarray(:)!------------------------------------------------------------------------integer::ii!------------------------------------------------------------------------! nothing to do if container size is not larger than the number of values! in the array.if(me%containersize>me%nvals)then allocate(tarray(me%nvals))do ii=1,me%nvalstarray(ii)=me%val(ii)end do call move_alloc(tarray,me%val)me%containersize=me%nvalsend if end subroutine truncate_ga_dynint