Searched refs:totres (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | rstat.f | 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),
[all …]
|
| H A D | rstatCheck.f | 71 totres = resnrm / float(nshgt)
72 totres = sqrt(totres)
73 if((iter.gt.1).and.(totres.gt.10000.0*ResLast)) then !diverging
75 if(myrank.eq.0) write(*,*) 'ResLast totres', ResLast, totres
80 ResLast=totres
160 totres = resnrm / float(nshgt)
161 totres = sqrt(totres)
163 if(totres.gt.10000.0*ResLast) then !diverging
167 if(myrank.eq.0) write(*,*) 'ResLast totres', ResLast, totres
174 ResLast=totres
|
| /phasta/phSolver/incompressible/ |
| H A D | rstatic.f | 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,
[all …]
|