@@ -78,13 +78,13 @@ C
C
cpu0=dtime(time0)
t1 = omp_get_wtime()
!$OMP PARALLEL DO
C Jacobi iteration
call jacobi(nn,gosa)
cpu1= dtime(time1)
!$OMP END PARALLEL DO
t2 = omp_get_wtime()
cpu = cpu1
cpu = t2-t1
The note is not visible to the blocked user.