Update 06-OpenMP-interoperability.md

csc-training · Jul 2, 2024 · 4e84792 · 4e84792
1 parent 3480cef
commit 4e84792
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/gpu-openmp/docs/06-OpenMP-interoperability.md b/gpu-openmp/docs/06-OpenMP-interoperability.md
@@ -138,7 +138,6 @@ extern "C" void daxpy(int n, double a,
 <small>
 <div class="column">
 ```c
-! call_hip_from_openmp.f90
 MODULE HIP_INTERFACES
     INTERFACE
       subroutine f_daxpy(n, a, x, y) bind(C,name=daxpy)
@@ -156,14 +155,14 @@ END MODULE HIP_INTERFACES
  ...
  integer(c_int) :: n
  double(c_double) :: a
+
+ !$omp target data map(alloc:x[0:n], y[0:n])
  ...
 
 !$omp target data use_device_ptr(x, y)
-
   call f_daxpy(n,a,c_loc(x),c_loc(y))
 
 ```
-
 </div>
 
 <div class="column">