| /phasta/phSolver/compressible/ ! |
| H A D | e3bdg_nd.f | 3 & A0, bcool, PTau, argument
18 & A3(npro,nflow,nflow), A0(npro,nflow,nflow),
201 BDiagl(:,j,2,2) = BDiagl(:,j,2,2) + tmp * A0(:,2,2)
202 BDiagl(:,j,3,3) = BDiagl(:,j,3,3) + tmp * A0(:,3,3)
203 BDiagl(:,j,4,4) = BDiagl(:,j,4,4) + tmp * A0(:,4,4)
204 BDiagl(:,j,1,5) = BDiagl(:,j,1,5) + tmp * A0(:,1,5)
205 BDiagl(:,j,2,5) = BDiagl(:,j,2,5) + tmp * A0(:,2,5)
206 BDiagl(:,j,3,5) = BDiagl(:,j,3,5) + tmp * A0(:,3,5)
207 BDiagl(:,j,4,5) = BDiagl(:,j,4,5) + tmp * A0(:,4,5)
208 BDiagl(:,j,1,1) = BDiagl(:,j,1,1) + tmp * A0(:,1,1)
[all …]
|
| H A D | e3bdg.f | 3 & A0, bcool, tau, argument
18 & A3(npro,nflow,nflow), A0(npro,nflow,nflow),
200 BDiagl(:,j,2,2) = BDiagl(:,j,2,2) + tmp * A0(:,2,2)
201 BDiagl(:,j,3,3) = BDiagl(:,j,3,3) + tmp * A0(:,3,3)
202 BDiagl(:,j,4,4) = BDiagl(:,j,4,4) + tmp * A0(:,4,4)
203 BDiagl(:,j,1,5) = BDiagl(:,j,1,5) + tmp * A0(:,1,5)
204 BDiagl(:,j,2,5) = BDiagl(:,j,2,5) + tmp * A0(:,2,5)
205 BDiagl(:,j,3,5) = BDiagl(:,j,3,5) + tmp * A0(:,3,5)
206 BDiagl(:,j,4,5) = BDiagl(:,j,4,5) + tmp * A0(:,4,5)
207 BDiagl(:,j,1,1) = BDiagl(:,j,1,1) + tmp * A0(:,1,1)
[all …]
|
| H A D | e3massr.f | 2 & rmi, A0) argument
29 & rmi(npro,nflow*(nsd+1)), A0(npro,nflow,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 | e3dc.f | 1 subroutine e3DC (g1yi, g2yi, g3yi, A0, raLS, argument
35 & g3yi(npro,nflow), A0(npro,5,5),
58 A0gyi( :,1) = A0(:,1,1)*g1yi(:,1)
59 & + A0(:,1,2)*g1yi(:,2)
60 & + A0(:,1,3)*g1yi(:,3)
61 & + A0(:,1,4)*g1yi(:,4)
62 & + A0(:,1,5)*g1yi(:,5)
63 A0gyi( :,2) = A0(:,2,1)*g1yi(:,1)
64 & + A0(:,2,2)*g1yi(:,2)
65 & + A0(:,2,3)*g1yi(:,3)
[all …]
|
| H A D | e3juel.f | 1 subroutine e3juel (yl, acl, sls, A0, argument
26 & WdetJ(npro), A0(npro,nflow,nflow),
117 & + A0(:,1,1)*yl(:,i,1)
121 & + A0(:,1,5)*yl(:,i,5)
124 & + A0(:,2,1)*yl(:,i,1)
125 & + A0(:,2,2)*yl(:,i,2)
128 & + A0(:,2,5)*yl(:,i,5)
131 & + A0(:,3,1)*yl(:,i,1)
133 & + A0(:,3,3)*yl(:,i,3)
135 & + A0(:,3,5)*yl(:,i,5)
[all …]
|
| H A D | e3mtrx.f | 5 & A0, A1,
57 & A0(npro,nflow,nflow), dVdY(npro,15),
79 A0 = zero
89 A0(:,5,1) = drdp * (h + rk) - alfap * T ! e1p
91 e2p = A0(:,5,1) + one
98 A0(:,1,1) = drdp
102 A0(:,1,5) = drdT
104 A0(:,2,1) = drdp * u1
105 A0(:,2,2) = rho
108 A0(:,2,5) = drdT * u1
[all …]
|
| H A D | e3ls.f | 7 & dui, aci, A0, argument
62 & A0(npro,nflow,nflow), rho(npro),
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 | e3massl.f | 1 subroutine e3massl (bcool, shape, WdetJ, A0, argument
21 dimension A0(npro,nflow,nflow), shape(npro,nshl),
54 & + fact(:,1) * A0(:,1,jdof)
56 & + fact(:,2) * A0(:,2,jdof)
58 & + fact(:,3) * A0(:,3,jdof)
60 & + fact(:,4) * A0(:,4,jdof)
62 & + fact(:,5) * A0(:,5,jdof)
|
| H A D | e3.f | 80 dimension A0(npro,nflow,nflow), A1(npro,nflow,nflow),
153 & A0, A1,
207 & dui, aci, A0,
219 & A0, raLS, rTLS,
245 call e3juel (yl, acl, Sclr, A0, WdetJ, rl, rml)
248 call e3massr (aci, dui, ri, rmi, A0)
255 call e3massl (bcool,shape, WdetJ, A0, EGmass)
268 & A0, bcool, tau,
277 & A0, bcool, PTau,
|