Blame view
lab1/pi_omp.c
538 Bytes
6a98a5afa lab1 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
#include <stdio.h> #include <string.h> #include <stdlib.h> #include <omp.h> #define N 100000000 int main (int argc, char** argv) { long long int n; long long int i; double l_sum, x, h; n=N; if(argc==2) { n=atol(argv[1]); } h = 1.0/n; l_sum = 0.0; #pragma omp parallel for private(i,x) reduction(+:l_sum) for (i = 0; i < n; i ++) { x = (i + 0.5)*h; l_sum += 4.0/(1.0 + x*x); } l_sum *= h; printf("N=%lld,PI=%0.12g ",n, l_sum); return 0; } |