Home
last modified time | relevance | path

Searched refs:dui (Results 1 – 5 of 5) sorted by relevance

/phasta/phSolver/compressible/
H A De3massr.f1 subroutine e3massr (aci, dui, ri, argument
27 dimension aci(npro,nflow), dui(npro,nflow),
79 rmi(:,16) = rmi(:,16) + fct1*dui(:,1)
80 rmi(:,17) = rmi(:,17) + fct1*dui(:,2)
81 rmi(:,18) = rmi(:,18) + fct1*dui(:,3)
82 rmi(:,19) = rmi(:,19) + fct1*dui(:,4)
83 rmi(:,20) = rmi(:,20) + fct1*dui(:,5)
H A De3ivar.f3 & xl, dui, aci, argument
67 & dui(npro,nflow),
94 dui = zero
97 dui(:,1) = dui(:,1) + shape(:,n) * yl(:,n,1) ! p
98 dui(:,2) = dui(:,2) + shape(:,n) * yl(:,n,2) ! u1
99 dui(:,3) = dui(:,3) + shape(:,n) * yl(:,n,3) ! u2
100 dui(:,4) = dui(:,4) + shape(:,n) * yl(:,n,4) ! u3
101 dui(:,5) = dui(:,5) + shape(:,n) * yl(:,n,5) ! T
109 rk = pt5 * (dui(:,2)**2 + dui(:,3)**2 + dui(:,4)**2)
120 call getthm (dui(:,1), dui(:,5), Sclr,
[all …]
H A De3source.f4 & dui, dxidx, ytargetl,
39 & dui(npro,nflow), duitarg(npro,nflow),
112 & src(id,1) = -bcool(id)*(dui(id,1) - duitarg(id,1))
114 & src(id,2) = -bcool(id)*(dui(id,2) - duitarg(id,2))
116 & src(id,3) = -bcool(id)*(dui(id,3) - duitarg(id,3))
118 & src(id,4) = -bcool(id)*(dui(id,4) - duitarg(id,4))
120 & src(id,5) = -bcool(id)*(dui(id,5) - duitarg(id,5))
165 & src(id,1) = -bcool(id)*(dui(id,1) - duitarg(id,1))
167 & src(id,2) = -bcool(id)*(dui(id,2) - duitarg(id,2))
169 & src(id,3) = -bcool(id)*(dui(id,3) - duitarg(id,3))
[all …]
H A De3.f61 dimension dui(npro,ndof), aci(npro,ndof)
131 & xl, dui, aci,
192 & dui, dxidx, ytargetl,
207 & dui, aci, A0,
248 call e3massr (aci, dui, ri, rmi, A0)
H A De3ls.f7 & dui, aci, A0, argument
64 & dui(npro,nflow), aci(npro,nflow),
103 if(ires.ne.1) rLymi = rLyi + fct1*dui