?? reduction.f
字號:
Subroutine reduction( title, me, npes, nrpt, ncases, n, tn, & ops )! ---------------------------------------------------------------------- Use numerics Use max_params Implicit None Include 'mpif.h' Character*50 :: title Integer :: me, npes, nrpt, ncases, n Real(l_) :: tn(maxcases), ops, timer Real(l_) :: a(nmax), b(nmax) Real(l_) :: t1, t2 Integer :: k, kk, log2 Integer :: targ_pe Integer :: comm, ie, type Save a, b! ---------------------------------------------------------------------- comm = MPI_Comm_World type = MPI_Real8 title = ' N PEs --> N PEs; Reduction' nrpt = 100 ncases = npes ops = log2(npes)*2*8*n tn(1:ncases) = 0.0_l_ Do k = 1, ncases b = 0.0_l_ Call MPI_Barrier( comm, ie ) t1 = timer() Do kk = 1, nrpt Call MPI_Reduce( a, b, n, type, MPI_Sum, k-1, comm, ie ) End Do t2 = timer() tn(k) = (t2 - t1)/nrpt End Do! ---------------------------------------------------------------------- End Subroutine reduction?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -