mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-14 02:11:25 +01:00
21 lines
475 B
C
21 lines
475 B
C
/*
|
|
* @@name: teams.4c
|
|
* @@type: C
|
|
* @@compilable: yes
|
|
* @@linkable: no
|
|
* @@expect: success
|
|
*/
|
|
#define N 1024*1024
|
|
float dotprod(float B[], float C[])
|
|
{
|
|
float sum = 0;
|
|
int i;
|
|
#pragma omp target map(to: B[0:N], C[0:N])
|
|
#pragma omp teams num_teams(8) thread_limit(16)
|
|
#pragma omp distribute parallel for reduction(+:sum) \
|
|
dist_schedule(static, 1024) schedule(static, 64)
|
|
for (i=0; i<N; i++)
|
|
sum += B[i] * C[i];
|
|
return sum;
|
|
}
|