Lines Matching refs:jtotrs
26 integer jtotrs(2) local
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),
225 jtotrs = int ( 10.d0 * log10 ( totres / resfrts ) )
236 print 2000, lstep+1, cputme, totres, jtotrs, nrsmax,
238 write (ihist,2000) lstep+1, cputme, totres, jtotrs, nrsmax,
341 jtotrs = int ( 10.d0 * log10 ( totres / resfrt(1) ) )
357 & totres , jtotrs,
361 & totres , jtotrs,
416 jtotrs = int ( 10.d0 * log10 ( totres / resfrts ) )
427 print 2000, lstep+1, cputme, totres, jtotrs, nrsmax,
429 write (ihist,2000) lstep+1, cputme, totres, jtotrs, nrsmax,