destroy the 2d growing array
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(grw_char2darray_type), | intent(inout) | :: | me |
dynamic array to init |
subroutine destroy_ga2d_char(me)
! --------------------------------------------------------------------------
!> dynamic array to init
type(grw_char2darray_type), intent(inout) :: me
! --------------------------------------------------------------------------
deallocate(me%val)
me%nvals = 0
me%containersize = 0
end subroutine destroy_ga2d_char