shared_dealloc_cmplx Subroutine

    subroutine shared_dealloc_cmplx(this)
        class(shared_ragged_array_cmplx_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_cmplx