diff --git a/tugas.f b/tugas.f index 3d52169..cf86762 100644 --- a/tugas.f +++ b/tugas.f @@ -77,7 +77,7 @@ C write(*,*) ' Measure the performance in 10000 times.' C cpu0=dtime(time0) - t1=omp_get_wtime() + t1 = omp_get_wtime() !$OMP PARALLEL DO C C Jacobi iteration @@ -85,7 +85,7 @@ C Jacobi iteration C cpu1= dtime(time1) !$OMP END PARALLEL DO - t2=omp_get_wtime() + t2 = omp_get_wtime() cpu = cpu1 cpu = t2-t1 flop=real(kmax-2)*real(jmax-2)*real(imax-2)*34.0*real(nn)