@ -85,7 +85,7 @@ C
! cpu1= dtime(time1)
t2 = omp_get_wtime()
! 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
write(*,*) ' MFLOPS:',xmflops2,' time(s):',cpu,gosa
The note is not visible to the blocked user.