mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-08 07:32:12 +01:00
34 lines
647 B
C
34 lines
647 B
C
/*
|
|
* @@name: scan.2.c
|
|
* @@type: C
|
|
* @@compilable: yes
|
|
* @@linkable: yes
|
|
* @@expect: success
|
|
* @@version: omp_5.0
|
|
*/
|
|
#include <stdio.h>
|
|
#define N 100
|
|
|
|
int main(void)
|
|
{
|
|
int a[N], b[N];
|
|
int x = 0;
|
|
|
|
// initialization
|
|
for (int k = 0; k < N; k++)
|
|
a[k] = k + 1;
|
|
|
|
// a[k] is not included in the computation of producing results in b[k]
|
|
#pragma omp parallel for simd reduction(inscan,+: x)
|
|
for (int k = 0; k < N; k++) {
|
|
b[k] = x;
|
|
#pragma omp scan exclusive(x)
|
|
x += a[k];
|
|
}
|
|
|
|
printf("x = %d, b[0:3] = %d %d %d\n", x, b[0], b[1], b[2]);
|
|
// 5050, 0 1 3
|
|
|
|
return 0;
|
|
}
|