mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-14 02:11:25 +01:00
29 lines
536 B
C
29 lines
536 B
C
/*
|
|
* @@name: declare_target.3
|
|
* @@type: C
|
|
* @@operation: compile
|
|
* @@expect: success
|
|
* @@version: omp_5.1
|
|
*/
|
|
#define N 1000
|
|
|
|
#pragma omp begin declare target
|
|
float p[N], v1[N], v2[N];
|
|
#pragma omp end declare target
|
|
|
|
extern void init(float *, float *, int);
|
|
extern void output(float *, int);
|
|
|
|
void vec_mult()
|
|
{
|
|
int i;
|
|
init(v1, v2, N);
|
|
#pragma omp target update to(v1, v2)
|
|
#pragma omp target
|
|
#pragma omp parallel for
|
|
for (i=0; i<N; i++)
|
|
p[i] = v1[i] * v2[i];
|
|
#pragma omp target update from(p)
|
|
output(p, N);
|
|
}
|