mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-04 05:41:33 +01:00
28 lines
468 B
C
28 lines
468 B
C
/*
|
|
* @@name: affinity.1.c
|
|
* @@type: C
|
|
* @@compilable: yes, omp_5.0
|
|
* @@linkable: no
|
|
* @@expect: success
|
|
*/
|
|
|
|
double * alloc_init_B(double *A, int N);
|
|
void compute_on_B(double *B, int N);
|
|
|
|
void task_affinity(double *A, int N)
|
|
{
|
|
double * B;
|
|
#pragma omp task depend(out:B) shared(B) affinity(A[0:N])
|
|
{
|
|
B = alloc_init_B(A,N);
|
|
}
|
|
|
|
#pragma omp task depend( in:B) shared(B) affinity(A[0:N])
|
|
{
|
|
compute_on_B(B,N);
|
|
}
|
|
|
|
#pragma omp taskwait
|
|
}
|
|
|