| /phasta/phSolver/compressible/ |
| H A D | e3wmlt.f | 2 & ri, rmi, rl, argument
57 & rl(npro,nshl,nflow), rml(npro,nshl,nflow),
75 rl(:,i,1) = rl(:,i,1) + WdetJ * (
78 rl(:,i,2) = rl(:,i,2) + WdetJ * (
81 rl(:,i,3) = rl(:,i,3) + WdetJ * (
84 rl(:,i,4) = rl(:,i,4) + WdetJ * (
87 rl(:,i,5) = rl(:,i,5) + WdetJ * (
129 rl(:,i,2) = rl(:,i,2) + shp(:,i) * WdetJ * ri(:,17)
130 rl(:,i,3) = rl(:,i,3) + shp(:,i) * WdetJ * ri(:,18)
131 rl(:,i,4) = rl(:,i,4) + shp(:,i) * WdetJ * ri(:,19)
[all …]
|
| H A D | e3juel.f | 2 & WdetJ, rl, rml) argument
27 & rl(npro,nshl,nflow), rml(npro,nshl,nflow)
116 rl(:,i,1) = rl(:,i,1)
123 rl(:,i,2) = rl(:,i,2)
130 rl(:,i,3) = rl(:,i,3)
137 rl(:,i,4) = rl(:,i,4)
144 rl(:,i,5) = rl(:,i,5)
|
| H A D | asiflx.f | 24 & rl(npro,nshl,nflow), BDiagl(npro,nshl,nflow,nflow)
56 rl = zero
64 & shgl(lcsyst,:,1:nshl,:), xl, rl, rml,
70 call local (flxres, rl, ien, nflow, 'scatter ')
|
| H A D | asbflx.f | 24 & rl(npro,nshl,nflow), rml(npro,nshl,nflow),
52 rl = zero
54 & xlb, rl, rml, sgn)
58 call local (flxres, rl, ienb, nflow, 'scatter ')
|
| H A D | e3b.f | 2 & xlb, rl, rml, sgn, EGmass) argument
61 & rl(npro,nshl,nflow), rml(npro,nshl,nflow)
278 rl(:,nodlcl,1) = rl(:,nodlcl,1)
280 rl(:,nodlcl,2) = rl(:,nodlcl,2)
282 rl(:,nodlcl,3) = rl(:,nodlcl,3)
284 rl(:,nodlcl,4) = rl(:,nodlcl,4)
286 rl(:,nodlcl,5) = rl(:,nodlcl,5)
|
| H A D | asimfg.f | 29 & rl(npro,nshl,nflow), rml(npro,nshl,nflow),
64 rl = zero
78 & shgl, xl, rl, rml, xmudmi,
87 call local (res, rl, ien, nflow, 'scatter ')
|
| H A D | asbmfg.f | 23 & rl(npro,nshl,nflow),
45 rl = zero
55 & xlb, rl, rml, sgn, EGmass)
58 call local(res, rl, ienb, nflow, 'scatter ')
|
| H A D | asigmr.f | 31 & rl(npro,nshl,nflow), rml(npro,nshl,nflow),
69 rl = zero
76 & shgl, xl, rl, rml, xmudmi,
84 call local (res, rl, ien, nflow, 'scatter ')
|
| H A D | e3.f | 2 & shgl, xl, rl, rml, xmudmi, argument
55 & rl(npro,nshl,nflow), ql(npro,nshl,idflx),
245 call e3juel (yl, acl, Sclr, A0, WdetJ, rl, rml)
293 & ri, rmi, rl,
|
| /phasta/phSolver/incompressible/ |
| H A D | e3b.f | 3 & xlb, rl, sgn, dwl, xKebe) argument
59 & rl(npro,nshl,nflow)
294 rl(:,nodlcl,1) = rl(:,nodlcl,1) - shape(:,nodlcl) * rNa(:,1)
295 rl(:,nodlcl,2) = rl(:,nodlcl,2) - shape(:,nodlcl) * rNa(:,2)
296 rl(:,nodlcl,3) = rl(:,nodlcl,3) - shape(:,nodlcl) * rNa(:,3)
297 rl(:,nodlcl,4) = rl(:,nodlcl,4) - shape(:,nodlcl) * rNa(:,4)
301 rl(:,1,1) = rl(:,1,1) - rlKwall(:,1,1)
302 rl(:,1,2) = rl(:,1,2) - rlKwall(:,1,2)
303 rl(:,1,3) = rl(:,1,3) - rlKwall(:,1,3)
305 rl(:,2,1) = rl(:,2,1) - rlKwall(:,2,1)
[all …]
|
| H A D | asbmfg.f | 28 & rl(npro,nshl,nflow), sgn(npro,nshl),
60 rl = zero
66 & xlb, rl, sgn, dwl, xKebe)
70 call local (res, rl, ienb, nflow, 'scatter ')
101 & rl(npro,nshl), sgn(npro,nshl)
120 rl = zero
123 & xlb, rl, sgn, dwl)
127 call local (res, rl, ienb, 1, 'scatter ')
|
| H A D | asigmr.f | 32 & rl(npro,nshl,nflow),
82 rl = zero
87 & shgl, xl, rl,
94 call e3StsRes ( xl, rl, lStsVec )
100 call local (res, rl, ien, nflow, 'scatter ')
149 & rl(npro,nshl), ql(npro,nshl,nsd), local
179 rl = zero
182 & rl, ql, xSebe,
187 call local (res, rl, ien, 1, 'scatter ')
|
| H A D | e3res.f | 7 & rl, pres, acl, argument
49 dimension rl(npro,nshl,nflow),
231 rl(:,aa,4) = rl(:,aa,4) + WdetJ
238 rl(:,aa,1) = rl(:,aa,1) - WdetJ
243 rl(:,aa,2) = rl(:,aa,2) - WdetJ
248 rl(:,aa,3) = rl(:,aa,3) - WdetJ
273 & rl ) argument
281 & shg(npro,nshl,3), rl(npro,nshl) local
334 rl(:,aa) = rl(:,aa) - WdetJ
|
| H A D | asbflx.f | 28 & rl(npro,nshl,nflow), sgn(npro,nshl),
57 rl = zero
64 & xlb, rl, sgn, dwl, xKebe)
69 call local (flxres, rl, ienb, nflow, 'scatter ')
|
| H A D | e3.f | 2 & shgl, xl, rl, ql, argument
44 & rl(npro,nshl,nflow), ql(npro,nshl,idflx)
123 & rl, pres, acl,
165 & rl, ql, xSebe, argument
181 & xl(npro,nenl,nsd), rl(npro,nshl), local
267 & rl )
|
| H A D | e3sts.f | 37 subroutine e3StsRes( xl, rl, lStsVec ) argument
46 real*8 xl(npro,nenl,3), rl(npro,nshl,ndof) local
52 lStsVec(:,i,1) = lDir(:,i,1) * rl(:,i,4)
53 lStsVec(:,i,2) = lDir(:,i,2) * rl(:,i,4)
54 lStsVec(:,i,3) = lDir(:,i,3) * rl(:,i,4)
56 lStsVec(:,i,4) = lDir(:,i,1) * rl(:,i,1)
57 lStsVec(:,i,5) = lDir(:,i,2) * rl(:,i,2)
58 lStsVec(:,i,6) = lDir(:,i,3) * rl(:,i,3)
60 lStsVec(:,i,7) = lDir(:,i,1) * rl(:,i,2)
61 & + lDir(:,i,2) * rl(:,i,1)
[all …]
|
| /phasta/phSolver/common/ |
| H A D | asbnabi.f | 16 & rl(npro,nshl,nsd), WdetJb(npro),
46 rl = zero
129 rl(:,nodlcl,1) = rl(:,nodlcl,1) +
131 rl(:,nodlcl,2) = rl(:,nodlcl,2) +
133 rl(:,nodlcl,3) = rl(:,nodlcl,3) +
141 call local (NABI, rl, ienb, 3, 'scatter ')
174 & rl(npro,nshl), WdetJb(npro),
204 rl = zero
286 rl(:,nodlcl) = rl(:,nodlcl) + shpfun(:,nodlcl) * WdetJb(:)
293 call local (NASC, rl, ienb, 1, 'scatter ')
|