| /phasta/phSolver/compressible/ |
| H A D | e3massr.f | 1 subroutine e3massr (aci, dui, ri, argument
27 dimension aci(npro,nflow), dui(npro,nflow),
37 & + A0(:,1,1)*aci(:,1)
41 & + A0(:,1,5)*aci(:,5)
44 & + A0(:,2,1)*aci(:,1)
45 & + A0(:,2,2)*aci(:,2)
48 & + A0(:,2,5)*aci(:,5)
51 & + A0(:,3,1)*aci(:,1)
53 & + A0(:,3,3)*aci(:,3)
55 & + A0(:,3,5)*aci(:,5)
[all …]
|
| H A D | e3ls.f | 7 & dui, aci, A0, argument
64 & dui(npro,nflow), aci(npro,nflow),
109 & + A0(:,1,1)*aci(:,1)
113 & + A0(:,1,5)*aci(:,5)
116 & + A0(:,2,1)*aci(:,1)
117 & + A0(:,2,2)*aci(:,2)
120 & + A0(:,2,5)*aci(:,5)
123 & + A0(:,3,1)*aci(:,1)
125 & + A0(:,3,3)*aci(:,3)
127 & + A0(:,3,5)*aci(:,5)
[all …]
|
| H A D | e3ivar.f | 3 & xl, dui, aci, argument
68 & aci(npro,nflow), g1yi(npro,nflow),
186 aci = zero
189 aci(:,1) = aci(:,1) + shape(:,n) * acl(:,n,1)
190 aci(:,2) = aci(:,2) + shape(:,n) * acl(:,n,2)
191 aci(:,3) = aci(:,3) + shape(:,n) * acl(:,n,3)
192 aci(:,4) = aci(:,4) + shape(:,n) * acl(:,n,4)
193 aci(:,5) = aci(:,5) + shape(:,n) * acl(:,n,5)
|
| H A D | e3.f | 61 dimension dui(npro,ndof), aci(npro,ndof)
131 & xl, dui, aci,
207 & dui, aci, A0,
248 call e3massr (aci, dui, ri, rmi, A0)
|
| /phasta/phSolver/incompressible/ |
| H A D | e3ivar.f | 3 & aci, g1yi, g2yi, argument
58 & aci(npro,nsd), g1yi(npro,ndof),
134 aci = zero
136 aci(:,1) = aci(:,1) + shpfun(:,n) * acl(:,n,2)
137 aci(:,2) = aci(:,2) + shpfun(:,n) * acl(:,n,3)
138 aci(:,3) = aci(:,3) + shpfun(:,n) * acl(:,n,4)
246 & aci, u1, u2, u3, Temp, rho, xx,
342 real*8 rLui(npro,nsd), aci(npro,nsd), local
423 aci = zero
425 aci(:,1) = aci(:,1) + shpfun(:,n) * acl(:,n,2)
[all …]
|
| H A D | e3res.f | 2 & uBar, aci, WdetJ, argument
42 & uBar(npro,nsd), aci(npro,nsd), WdetJ(npro),
73 rNa(:,1) = aci(:,1) * tmps
75 rNa(:,2) = aci(:,2) * tmps
77 rNa(:,3) = aci(:,3) * tmps
353 & aci, u1, u2, u3, Temp, rho, xx, argument
359 & aci, xx local
429 rLui(:,1) =(aci(:,1) + u1 * g1yi(:,2)
434 rLui(:,2) =(aci(:,2) + u1 * g1yi(:,3)
439 rLui(:,3) =(aci(:,3) + u1 * g1yi(:,4)
|
| H A D | e3.f | 53 & aci(npro,3), dxidx(npro,nsd,nsd),
100 & aci, g1yi, g2yi,
118 & uBar, aci, WdetJ,
|
| H A D | advLES.f | 23 & tmp(npro), aci(npro,nsd),
104 aci = zero
106 aci(:,1) = aci(:,1) + shp(n,intp) * acl(:,n,2)
107 aci(:,2) = aci(:,2) + shp(n,intp) * acl(:,n,3)
108 aci(:,3) = aci(:,3) + shp(n,intp) * acl(:,n,4)
358 rLui(:,1) =(aci(:,1) + u1 * g1yi(:,2)
363 rLui(:,2) =(aci(:,2) + u1 * g1yi(:,3)
368 rLui(:,3) =(aci(:,3) + u1 * g1yi(:,4)
|