Searched refs:jtotrs (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | rstat.f | 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 ) )
[all …]
|
| /phasta/phSolver/incompressible/ |
| H A D | rstatic.f | 160 jtotrs = int ( 10.d0 * log10 ( totres / resfrt(1) ) )
178 print 2000, lstep+1, cputme, totres, jtotrs, rmaxdyU,
182 write (ihist,2000) lstep+1, cputme, totres, jtotrs,
|