Cluster OpenMP Benchmark of 64-bit PC Cluster
C$OMP PARALLEL private(i,j,k,rx,ry,r,ir3,Fxk,Fyk) C$OMP DO schedule(guided) do j=1,N do k=1,j-1 …. Direct nbody calculation ….. enddo enddo C$OMP BARRIER C$OMP CRITICAL do j=1,N Fx(j) = Fx(j) + Fxk(j) Fy(j) = Fy(j) + Fyk(j) enddo
103 views • 1 slides