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

fix code

Browse Source
This commit is contained in:
gabrielkheisa 2022-11-14 16:08:59 +07:00
parent c56c7d7573
commit d13eb4076c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tugas3.f90
View File

@ -20,6 +20,7 @@ use omp_lib
end do end do
end do end do
end do end do
t2 = omp_get_wtime()
!$OMP end parallel do !$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)