From 80f1f6605240515e36be5080effec81b5a90201a Mon Sep 17 00:00:00 2001
From: gabrielkheisa <gabrielkheisa@gmail.com>
Date: Sun, 27 Nov 2022 12:37:54 +0700
Subject: [PATCH] fix

---
 tugas.f | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tugas.f b/tugas.f
index 0e09ace..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
 C
 C Jacobi iteration
       call jacobi(nn,gosa)
 C
-      cpu1= dtime(time1)
+!      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