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

fix program

Browse Source
This commit is contained in:
gabrielkheisa 2022-11-14 18:24:44 +07:00
parent f8f21820f7
commit 080d077a18
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tugas3.f90
View File

@ -3,16 +3,16 @@ use omp_lib
implicit real(8)(a-h,o-z) implicit real(8)(a-h,o-z)
parameter (n=4096) parameter (n=4096)
real(8) a(n,n),c(n,n) real(8) a(n,n), c(n,n)
real(4) b(n,n) real(4) b(n,n)
real*8 t1, t2 real*8 t1, t2
a=0.0d0 a=0.0d0
call random_number(b) call random_number(b)
call random_number(c) call random_number(c)
write(6,50) 'Matrix Size = ', n write(6,50) ' Matrix Size = ', n
50 format(1x,a,i5) 50 format(1x,a,i5)
t1 = omp_get_wtime() t1 = omp_get_wtime()
!$OMP parallel do !$OMP PARALLEL DO
do j=1,n do j=1,n
do k=1,n do k=1,n
do i=1,n do i=1,n
@ -20,9 +20,10 @@ use omp_lib
end do end do
end do end do
end do end do
!$OMP END PARALLEL DO
t2 = omp_get_wtime() t2 = omp_get_wtime()
!$OMP end parallel do write(6, 60) ' Execution Time = ',t2-t1,' sec',' A(n,n) = ',a(n,n)
write(6,60) 'Execution Time = ', t2-t1, ' sec','A(n,n) = ',a(n,n)
60 format(1x,a,f10.3,a,1x,a,d24.15) 60 format(1x,a,f10.3,a,1x,a,d24.15)
stop stop
end end