Lines Matching refs:totres
156 totres = resnrm / float(nshgt)
157 totres = sqrt(totres)
159 if (resfrt(1) .eq. zero) resfrt(1) = totres
160 jtotrs = int ( 10.d0 * log10 ( totres / resfrt(1) ) )
161 jresmx = int ( 10.d0 * log10 ( resmax / totres ) )
178 print 2000, lstep+1, cputme, totres, jtotrs, rmaxdyU,
182 write (ihist,2000) lstep+1, cputme, totres, jtotrs,
250 totres = resnrm / float(nshgt)
251 totres = sqrt(totres)
261 print 802, lstep+1, cputme, totres, rmaxdyT,
263 write (ihist,802) lstep+1, cputme, totres,