Lines Matching refs:totres
25 real*8 resnrm(2), totres(2), eachproc(2) local
108 totres = sqrt(resnrm) / float(nshgt)
109 if(resfrt(1) .eq. zero) resfrt = totres
110 jtotrs(1) = int ( 10.d0 * log10 ( totres(1) / resfrt(1) ) )
111 jtotrs(2) = int ( 10.d0 * log10 ( totres(2) / resfrt(2) ) )
125 & totres(1), jtotrs(1),
126 & totres(2), jtotrs(2),
130 & totres(1), jtotrs(1),
131 & totres(2), jtotrs(2),
135 & totres(1), jtotrs(1),
136 & totres(2), jtotrs(2),
221 totres = resnrm / float(nshgt)
222 totres = sqrt(totres)
224 if (resfrts .eq. zero) resfrts = totres
225 jtotrs = int ( 10.d0 * log10 ( totres / resfrts ) )
226 jresmx = int ( 10.d0 * log10 ( resmax / totres ) )
236 print 2000, lstep+1, cputme, totres, jtotrs, nrsmax,
238 write (ihist,2000) lstep+1, cputme, totres, jtotrs, nrsmax,
242 if(totres.gt.1.0e-9) istop=istop-1
339 totres =resNrm / sqrt(float(nshgt))
340 if (resfrt(1) .eq. zero) resfrt(1) = totres
341 jtotrs = int ( 10.d0 * log10 ( totres / resfrt(1) ) )
357 & totres , jtotrs,
361 & totres , jtotrs,
413 totres = resnrm*resnrm / float(nshgt)
414 totres = sqrt(totres)
415 if (resfrts .eq. zero) resfrts = totres
416 jtotrs = int ( 10.d0 * log10 ( totres / resfrts ) )
417 jresmx = int ( 10.d0 * log10 ( resmax / totres ) )
427 print 2000, lstep+1, cputme, totres, jtotrs, nrsmax,
429 write (ihist,2000) lstep+1, cputme, totres, jtotrs, nrsmax,
433 if(totres.gt.1.0e-9) istop=istop-1