gabrielkheisa/tugas3-openMP
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

add parallel

Browse Source
This commit is contained in:
gabrielkheisa 2022-11-27 13:29:27 +07:00
parent ea92213edc
commit 8babfcc27e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tugas.f
View File

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