| /phasta/phSolver/compressible/ |
| H A D | asimfg.f | 37 real*8 rerrl(npro,nshl,6), rerr(nshg,10) local
68 if(ierrcalc.eq.1) rerrl = zero
80 & rerrl)
93 call local (rerr, rerrl, ien, 6, 'scatter ')
|
| H A D | asires.f | 32 real*8 rerrl(npro,nshl,6) local
74 if(ierrcalc.eq.1) rerrl = zero
81 & rerrl)
|
| H A D | asigmr.f | 39 real*8 rerrl(npro,nshl,6), rerr(nshg,10) local
72 if(ierrcalc.eq.1) rerrl = zero
78 & rerrl, ytargetl)
87 call local (rerr, rerrl, ien, 6, 'scatter ')
|
| H A D | e3ls.f | 11 & A0inv, dVdY, rerrl, argument
86 real*8 rerrl(npro,nshl,6), tmp(npro), tmp1(npro) local
163 rerrl(:,ia,1) = rerrl(:,ia,1) +
165 rerrl(:,ia,2) = rerrl(:,ia,2) +
167 rerrl(:,ia,3) = rerrl(:,ia,3) +
170 rerrl(:,ia,4) = rerrl(:,ia,4) +
172 rerrl(:,ia,5) = rerrl(:,ia,5) +
|
| H A D | e3.f | 4 & rerrl, ytargetl) argument
95 real*8 rerrl(npro,nshl,6) local
211 & A0inv, dVdY, rerrl,
230 rerrl(i,:,6)=(Tmax-Tmin)/T(i)
|
| /phasta/phSolver/incompressible/ |
| H A D | e3ivar.f | 8 & rerrl, rlsl, rlsli, argument
72 real*8 rerrl(npro,nshl,6), omega(3), divu(npro) local
264 rerrl(:,ia,1) = rerrl(:,ia,1) +
266 rerrl(:,ia,2) = rerrl(:,ia,2) +
268 rerrl(:,ia,3) = rerrl(:,ia,3) +
271 rerrl(:,ia,4) = rerrl(:,ia,4) +
273 rerrl(:,ia,5) = rerrl(:,ia,5) +
275 rerrl(:,ia,6) = rerrl(:,ia,6) +
|
| H A D | asigmr.f | 47 real*8 rerrl(npro,nshl,6), rerr(nshg,10) local
84 if(ierrcalc.eq.1) rerrl = zero
89 & sgn, rerrl, rlsl, CFLworst)
103 call local (rerr, rerrl, ien, 6, 'scatter ')
|
| H A D | errsmooth.f | 142 dimension rerrl(npro,nshl,10), xl(npro,nenl,nsd),
161 call local(rerr, rerrl, ien, 10, 'gather ')
189 error(:,i)=error(:,i) + shape(:,n) * rerrl(:,n,i)
|
| H A D | e3.f | 4 & rerrl, rlsl) argument
66 real*8 rerrl(npro,nshl,6) local
105 & rerrl, rlsl, rlsli,
|
| /phasta/phSolver/common/ |
| H A D | errorsmooth.f | 141 dimension rerrl(npro,nshl,10), xl(npro,nenl,nsd),
160 call local(rerr, rerrl, ien, 10, 'gather ')
188 error(:,i)=error(:,i) + shape(:,n) * rerrl(:,n,i)
|