lukasplevac/OpenMP-Examples
1
0
Fork 0
mirror of https://github.com/OpenMP/Examples.git synced 2025-04-04 05:41:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix transparent task example

Browse Source
This commit is contained in:
Henry Jin 2024-11-14 08:08:37 -08:00
parent 3346a30ce2
commit 00bdf88b63
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tasking/sources/task_dep.14.c
View File

@ -28,7 +28,7 @@ int main()
for (int h = 0; h < NUM_VS; h++) { for (int h = 0; h < NUM_VS; h++) {
// Generate transparent task to establish dependences // Generate transparent task to establish dependences
// between child tasks that don't share the same parent. // between child tasks that don't share the same parent.
#pragma omp task depend(inout:M[:]) transparent(omp_impex) #pragma omp task depend(inout:h) transparent(omp_impex)
my_func(M, v[h]); my_func(M, v[h]);
} }

2
tasking/sources/task_dep.14.f90
View File

@ -20,7 +20,7 @@ program main
do h = 0, NUM_VS-1 do h = 0, NUM_VS-1
! Generate transparent task to establish dependences ! Generate transparent task to establish dependences
! between child tasks that don't share the same parent. ! between child tasks that don't share the same parent.
!$omp task depend(inout:M) transparent(omp_impex) !$omp task depend(inout:h) transparent(omp_impex)
call my_func(M, v(:,h)) call my_func(M, v(:,h))
!$omp end task !$omp end task
end do end do