UVAL seems appropriate here. See OpenMP 4.5 page 209--210.

aadler · Jun 9, 2024 · 1351d71 · 1351d71
1 parent ee78350
commit 1351d71
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/utils.f90 b/src/utils.f90
@@ -135,7 +135,7 @@ end subroutine sOMPT_f
 !-------------------------------------------------------------------------------
 
     pure elemental function imk(i, k) result(j)
-    !$omp declare simd(imk) notinbranch linear(i:1) uniform(k)
+    !$omp declare simd(imk) linear(uval(i):1) uniform(k) notinbranch
 
     integer(kind = c_int), intent(in) :: i, k
     integer(kind = c_int)             :: j