safe_shared_memory_dealloc_cmplx Subroutine

    subroutine safe_shared_memory_dealloc_cmplx (this)
        class(shared_array_cmplx_t), intent(inout) :: this
        character(*), parameter :: t_r = "shared_dealloc"

        ! assume that if ptr is associated, it points to mpi shared memory
        if (associated(this%ptr)) call shared_deallocate_mpi(this%win, this%ptr)
        ! First, check if we have to log the deallocation
        if (this%tag /= 0) call LogMemDealloc(t_r, this%tag)
    end subroutine safe_shared_memory_dealloc_cmplx