test pertama

2022-11-26 21:48:31 +07:00 · 2022-11-26 21:48:31 +07:00 · 191a12372b
commit 191a12372b
parent 14c81448af
1 changed files with 2 additions and 0 deletions
--- a/tugas.f
+++ b/tugas.f
@ -78,11 +78,13 @@ C
 C
      cpu0=dtime(time0)
      t1=omp_get_wtime()
+      !$OMP PARALLEL DO
 C
 C Jacobi iteration
      call jacobi(nn,gosa)
 C
      cpu1= dtime(time1)
+    !$OMP END PARALLEL DO
    t2=omp_get_wtime()
      cpu = cpu1
    cpu = t2-t1