diff --git a/tugas.f b/tugas.f index cf86762..39a2d83 100644 --- a/tugas.f +++ b/tugas.f @@ -76,17 +76,17 @@ C write(*,*) ' Start rehearsal measurement process.' write(*,*) ' Measure the performance in 10000 times.' C - cpu0=dtime(time0) +! cpu0=dtime(time0) t1 = omp_get_wtime() - !$OMP PARALLEL DO +!$OMP PARALLEL DO C C Jacobi iteration call jacobi(nn,gosa) C - cpu1= dtime(time1) - !$OMP END PARALLEL DO +! cpu1= dtime(time1) +!$OMP END PARALLEL DO t2 = omp_get_wtime() - cpu = cpu1 +! cpu = cpu1 cpu = t2-t1 flop=real(kmax-2)*real(jmax-2)*real(imax-2)*34.0*real(nn) xmflops2=flop/cpu*1.0e-6