add parallel

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
@@ -242,6 +245,7 @@ C
             enddo
          enddo
 !$OMP end do     
+!$OMP end parallel    
 C
       enddo
 CC End of iteration