mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-07 23:22:11 +01:00
43 lines
861 B
C
43 lines
861 B
C
/*
|
|
* @@name: master.1c
|
|
* @@type: C
|
|
* @@compilable: yes
|
|
* @@linkable: no
|
|
* @@expect: success
|
|
*/
|
|
#include <stdio.h>
|
|
|
|
extern float average(float,float,float);
|
|
|
|
void master_example( float* x, float* xold, int n, float tol )
|
|
{
|
|
int c, i, toobig;
|
|
float error, y;
|
|
c = 0;
|
|
#pragma omp parallel
|
|
{
|
|
do{
|
|
#pragma omp for private(i)
|
|
for( i = 1; i < n-1; ++i ){
|
|
xold[i] = x[i];
|
|
}
|
|
#pragma omp single
|
|
{
|
|
toobig = 0;
|
|
}
|
|
#pragma omp for private(i,y,error) reduction(+:toobig)
|
|
for( i = 1; i < n-1; ++i ){
|
|
y = x[i];
|
|
x[i] = average( xold[i-1], x[i], xold[i+1] );
|
|
error = y - x[i];
|
|
if( error > tol || error < -tol ) ++toobig;
|
|
}
|
|
#pragma omp master
|
|
{
|
|
++c;
|
|
printf( "iteration %d, toobig=%d\n", c, toobig );
|
|
}
|
|
}while( toobig > 0 );
|
|
}
|
|
}
|