mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-04 05:41:33 +01:00
29 lines
521 B
C
29 lines
521 B
C
/*
|
|
* @@name: async_target.1c
|
|
* @@type: C
|
|
* @@compilable: yes
|
|
* @@linkable: no
|
|
* @@expect: success
|
|
*/
|
|
#pragma omp declare target
|
|
float F(float);
|
|
#pragma omp end declare target
|
|
#define N 1000000000
|
|
#define CHUNKSZ 1000000
|
|
void init(float *, int);
|
|
float Z[N];
|
|
void pipedF()
|
|
{
|
|
int C, i;
|
|
init(Z, N);
|
|
for (C=0; C<N; C+=CHUNKSZ)
|
|
{
|
|
#pragma omp task
|
|
#pragma omp target map(Z[C:CHUNKSZ])
|
|
#pragma omp parallel for
|
|
for (i=0; i<CHUNKSZ; i++)
|
|
Z[i] = F(Z[i]);
|
|
}
|
|
#pragma omp taskwait
|
|
}
|