mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-10 08:22:11 +01:00
22 lines
398 B
C
22 lines
398 B
C
/*
|
|
* @@name: collapse.1
|
|
* @@type: C
|
|
* @@operation: compile
|
|
* @@expect: success
|
|
* @@version: omp_3.0
|
|
*/
|
|
void bar(float *a, int i, int j, int k);
|
|
|
|
int kl, ku, ks, jl, ju, js, il, iu,is;
|
|
|
|
void sub(float *a)
|
|
{
|
|
int i, j, k;
|
|
|
|
#pragma omp for collapse(2) private(i, k, j)
|
|
for (k=kl; k<=ku; k+=ks)
|
|
for (j=jl; j<=ju; j+=js)
|
|
for (i=il; i<=iu; i+=is)
|
|
bar(a,i,j,k);
|
|
}
|