From f51fb11120c7e38ff5ae555bd3395ae70f983701 Mon Sep 17 00:00:00 2001
From: Tim Felle Olsen <tife@dtu.dk>
Date: Mon, 15 Jan 2024 15:17:52 +0100
Subject: [PATCH] Point Zone device mask adjusted

---
 src/mesh/point_zone.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/mesh/point_zone.f90 b/src/mesh/point_zone.f90
index f0316d675bf..8305b49b7f5 100644
--- a/src/mesh/point_zone.f90
+++ b/src/mesh/point_zone.f90
@@ -189,9 +189,11 @@ subroutine point_zone_finalize(this)
        call this%scratch%clear()
 
        if (NEKO_BCKND_DEVICE .eq. 1) then
+          this%mask = this%mask -1 !< Devices are 0-based
           call device_map(this%mask, this%mask_d, this%size)
           call device_memcpy(this%mask, this%mask_d, this%size, &
                              HOST_TO_DEVICE, sync=.false.)
+          this%mask = this%mask +1 !< Restore 1-based indexing
        end if
 
        this%finalized = .true.