6ada9e5bdadb33f7b8e01074c59a5c684b55ab7b
2 #include "00_pi_tools.h"
5 /*----------------------------------------------------------------------*\
7 \*---------------------------------------------------------------------*/
9 /*--------------------------------------*\
11 \*-------------------------------------*/
15 /*--------------------------------------*\
17 \*-------------------------------------*/
19 bool isPiOMPforCritical_Ok(int n
);
21 /*--------------------------------------*\
23 \*-------------------------------------*/
25 static double piOMPforCritique(int n
);
27 /*----------------------------------------------------------------------*\
29 \*---------------------------------------------------------------------*/
31 /*--------------------------------------*\
33 \*-------------------------------------*/
35 bool isPiOMPforCritical_Ok(int n
)
37 return isAlgoPI_OK(piOMPforCritique
, n
, "Pi OMP for critique");
40 /*--------------------------------------*\
42 \*-------------------------------------*/
45 * synchronisation couteuse!
47 double piOMPforCritique(int n
)
51 const double DX
= 1.0/(double)n
;
53 #pragma omp parralel for private(xi)
54 for (int i
= 0; i
< n
; i
++)
57 #pragma omp critical(sum_fpi)
64 /*----------------------------------------------------------------------*\
66 \*---------------------------------------------------------------------*/