From 8babfcc27e3b0dc524cf99a00cbd47645b9d0273 Mon Sep 17 00:00:00 2001
From: gabrielkheisa <gabrielkheisa@gmail.com>
Date: Sun, 27 Nov 2022 13:29:27 +0700
Subject: [PATCH] add parallel

---
 tugas.f | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/tugas.f b/tugas.f
index 9584ee5..a44ecd1 100644
--- a/tugas.f
+++ b/tugas.f
@@ -140,6 +140,7 @@ CC Arrey
 CC other constants
       common /others/ imax,jmax,kmax,omega
 C
+!$OMP parallel private(k,j,i)
 !$OMP do
       do k=1,mkmax
          do j=1,mjmax
@@ -184,6 +185,7 @@ C
          enddo
       enddo
 !$OMP end do
+!$OMP end parallel  
 C
       return
       end
@@ -211,6 +213,7 @@ C
 C
       DO loop=1,nn
          gosa=0.0
+!$OMP parallel private(K,J,I,S0,SS,wrk2)
 !$OMP do reduction(+:GOSA)
          DO K=2,kmax-1
             DO J=2,jmax-1
@@ -241,7 +244,8 @@ C
                enddo
             enddo
          enddo
-!$OMP end do         
+!$OMP end do     
+!$OMP end parallel    
 C
       enddo
 CC End of iteration