Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(shared_ragged_array_int64_t), | intent(inout) | :: | this |
subroutine shared_dealloc_int64(this)
class(shared_ragged_array_int64_t), intent(inout) :: this
call this%data_array%shared_dealloc()
if (allocated(this%ptr)) deallocate(this%ptr)
if (allocated(this%store_sizes)) deallocate(this%store_sizes)
end subroutine shared_dealloc_int64