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

fix typo

Browse Source
This commit is contained in:
gabrielkheisa 2022-11-27 12:15:24 +07:00
parent 191a12372b
commit b0e602d3c5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tugas.f
View File

@ -77,7 +77,7 @@ C
write(*,*) ' Measure the performance in 10000 times.' write(*,*) ' Measure the performance in 10000 times.'
C C
cpu0=dtime(time0) cpu0=dtime(time0)
t1=omp_get_wtime() t1 = omp_get_wtime()
!$OMP PARALLEL DO !$OMP PARALLEL DO
C C
C Jacobi iteration C Jacobi iteration
@ -85,7 +85,7 @@ C Jacobi iteration
C C
cpu1= dtime(time1) cpu1= dtime(time1)
!$OMP END PARALLEL DO !$OMP END PARALLEL DO
t2=omp_get_wtime() t2 = omp_get_wtime()
cpu = cpu1 cpu = cpu1
cpu = t2-t1 cpu = t2-t1
flop=real(kmax-2)*real(jmax-2)*real(imax-2)*34.0*real(nn) flop=real(kmax-2)*real(jmax-2)*real(imax-2)*34.0*real(nn)