Blame view

lab1/pi_omp.c 538 Bytes
6a98a5afa   kmazouzi   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;
  }