| /phasta/phSolver/compressible/ |
| H A D | e3massr.f | 1 subroutine e3massr (aci, dui, ri, argument
28 & ri(npro,nflow*(nsd+1)),
36 ri(:,16) = ri(:,16)
43 ri(:,17) = ri(:,17)
50 ri(:,18) = ri(:,18)
57 ri(:,19) = ri(:,19)
64 ri(:,20) = ri(:,20)
|
| H A D | e3wmlt.f | 2 & ri, rmi, rl, argument
55 & WdetJ(npro), ri(npro,nflow*(nsd+1)),
76 & shg(:,i,1) * ri(:, 1) + shg(:,i,2) * ri(:, 6)
77 & + shg(:,i,3) * ri(:,11) )
79 & shg(:,i,1) * ri(:, 2) + shg(:,i,2) * ri(:, 7)
80 & + shg(:,i,3) * ri(:,12) )
82 & shg(:,i,1) * ri(:, 3) + shg(:,i,2) * ri(:, 8)
83 & + shg(:,i,3) * ri(:,13) )
85 & shg(:,i,1) * ri(:, 4) + shg(:,i,2) * ri(:, 9)
86 & + shg(:,i,3) * ri(:,14) )
[all …]
|
| H A D | e3dc.f | 2 & rtLS, giju, DC, ri, argument
38 & ri(npro,nflow*(nsd+1)), rmi(npro,nflow*(nsd+1)),
343 ri ( :,1) = ri ( :,1) + DC(:,intp) * gAgyi( :,1)
345 ri ( :,2) = ri ( :,2) + DC(:,intp) * gAgyi( :,2)
347 ri ( :,3) = ri ( :,3) + DC(:,intp) * gAgyi( :,3)
349 ri ( :,4) = ri ( :,4) + DC(:,intp) * gAgyi( :,4)
351 ri ( :,5) = ri ( :,5) + DC(:,intp) * gAgyi( :,5)
354 ri ( :,6) = ri ( :,6) + DC(:,intp) * gAgyi( :,6)
356 ri ( :,7) = ri ( :,7) + DC(:,intp) * gAgyi( :,7)
358 ri ( :,8) = ri ( :,8) + DC(:,intp) * gAgyi( :,8)
[all …]
|
| H A D | e3conv.f | 6 & ri, rmi, EGmass, argument
57 & rLyi(npro,nflow), ri(npro,nflow*(nsd+1)),
76 ri(:, 1) = (- u1) * rho
77 ri(:, 2) = (- u1) * rho * u1 - pres
78 ri(:, 3) = (- u1) * rho * u2
79 ri(:, 4) = (- u1) * rho * u3
80 ri(:, 5) = (- u1) * rho * (ei + rk) - u1 * pres
82 ri(:, 6) = (- u2) * rho
83 ri(:, 7) = (- u2) * rho * u1
84 ri(:, 8) = (- u2) * rho * u2 - pres
[all …]
|
| H A D | e3ls.f | 6 & ri, rmi, rk, argument
70 & ri(npro,nflow*(nsd+1)), rmi(npro,nflow*(nsd+1)),
352 ri(:,1) =
358 & + ri(:,1)
359 ri(:,2) =
365 & + ri(:,2)
366 ri(:,3) =
372 & + ri(:,3)
373 ri(:,4) =
379 & + ri(:,4)
[all …]
|
| H A D | e3source.f | 1 subroutine e3source (ri, rmi, rlyi, argument
28 dimension ri(npro,nflow*(nsd+1)), rmi(npro,nflow*(nsd+1)),
204 ri (:,16) = ri (:,16) - src(:,1)
205 ri (:,17) = ri (:,17) - src(:,2)
206 ri (:,18) = ri (:,18) - src(:,3)
207 ri (:,19) = ri (:,19) - src(:,4)
208 ri (:,20) = ri (:,20) - src(:,5)
|
| H A D | e3visc.f | 5 & ri, rmi, stiff,
47 & ri(npro,nflow*(nsd+1)), rmi(npro,nflow*(nsd+1))
295 ri (:,2:5) = ri (:,2:5) + rmi(:,2:5)
319 ri (:,7:10) = ri (:,7:10) + rmi(:,7:10)
343 ri (:,12:15) = ri (:,12:15) + rmi(:,12:15)
|
| H A D | e3.f | 85 dimension ri(npro,nflow*(nsd+1)), rmi(npro,nflow*(nsd+1)),
121 ri = zero
168 & ri, rmi, EGmass,
181 & ri, rmi, stiff,
189 call e3source (ri, rmi, rlyi,
206 & ri, rmi, rk,
221 & ri, rmi, stiff, A0DC)
248 call e3massr (aci, dui, ri, rmi, A0)
293 & ri, rmi, rl,
|