Merge pull request QMCPACK#4969 from ye-luo/fix-omp

Set the number of teams as the loop bound.
rcclay · May 4, 2024 · 1c64105 · 1c64105
2 parents efdf45b + 89091d6
commit 1c64105
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Platforms/OMPTarget/ompBLAS.cpp b/src/Platforms/OMPTarget/ompBLAS.cpp
@@ -198,7 +198,7 @@ ompBLAS_status gemv_impl(ompBLAS_handle& handle,
     if (incx != 1 || incy != 1)
       throw std::runtime_error("incx !=1 or incy != 1 are not implemented in ompBLAS::gemv_impl!");
 
-    PRAGMA_OFFLOAD("omp target teams distribute num_teams(n) is_device_ptr(A, x, y)")
+    PRAGMA_OFFLOAD("omp target teams distribute num_teams(m) is_device_ptr(A, x, y)")
     for (uint32_t i = 0; i < m; i++)
     {
       T dot_sum(0);