IMPLICIT REAL*8(A-H,O-Z)
      INTEGER*8 i, n
      n  = 1000000000
      n  = n*10
      pi = 0.0
      s  = 1.0
C$omp parallel do private(i,x) reduction(+:pi)
      do i=1,n
         x = i
         pi = pi + 6.0/x**2
      end do
C$omp end parallel do
      pi = sqrt(pi)
      WRITE(6,*) 'n=',n,'  pi=',pi
      STOP
      END