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

fix

Browse Source
This commit is contained in:
gabrielkheisa 2022-11-27 12:38:25 +07:00
parent b0e602d3c5
commit e0cee9b0a0
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tugas.f
View File

@ -76,17 +76,17 @@ C
write(*,*) ' Start rehearsal measurement process.'
write(*,*) ' Measure the performance in 10000 times.'
C
cpu0=dtime(time0)
! cpu0=dtime(time0)
t1 = omp_get_wtime()
!$OMP PARALLEL DO
!$OMP PARALLEL DO
C
C Jacobi iteration
call jacobi(nn,gosa)
C
cpu1= dtime(time1)
!$OMP END PARALLEL DO
! cpu1= dtime(time1)
!$OMP END PARALLEL DO
t2 = omp_get_wtime()
cpu = cpu1
! cpu = cpu1
cpu = t2-t1
flop=real(kmax-2)*real(jmax-2)*real(imax-2)*34.0*real(nn)
xmflops2=flop/cpu*1.0e-6