| /phasta/phSolver/compressible/ |
| H A D | e3juel.f | 2 & WdetJ, rl, rml) argument
27 & rl(npro,nshl,nflow), rml(npro,nshl,nflow)
85 rml(:,i,1) = rml(:,i,1) + fddt * (yl(:,i,1)+ub(:,1))
86 rml(:,i,2) = rml(:,i,2) + fddt * (yl(:,i,2)+ub(:,2))
87 rml(:,i,3) = rml(:,i,3) + fddt * (yl(:,i,3)+ub(:,3))
88 rml(:,i,4) = rml(:,i,4) + fddt * (yl(:,i,4)+ub(:,4))
89 rml(:,i,5) = rml(:,i,5) + fddt * (yl(:,i,5)+ub(:,5))
|
| H A D | asbres.f | 23 & ycl(npro,nshl,ndof), rml(npro,nshl,nflow)
42 rml = zero
44 & xlb, rml, rml, sgn)
49 if (iabres .eq. 1) rml = abs(rml)
51 call local(rmes, rml, ienb, nflow, 'scatter ')
|
| H A D | asires.f | 25 & rml(npro,nshl,nflow), ql(npro,nshl,(nflow-1)*nsd)
71 rml = zero
79 & shgl, xl, rml, rml,
87 if (iabres .eq. 1) rml = abs(rml)
89 call local (rmes, rml, ien, nflow, 'scatter ')
|
| H A D | e3wmlt.f | 3 & rml, stiff, EGmass ) argument
57 & rl(npro,nshl,nflow), rml(npro,nshl,nflow),
99 rml(:,i,1) = rml(:,i,1) + WdetJ * (
103 rml(:,i,2) = rml(:,i,2) + WdetJ * (
107 rml(:,i,3) = rml(:,i,3) + WdetJ * (
111 rml(:,i,4) = rml(:,i,4) + WdetJ * (
115 rml(:,i,5) = rml(:,i,5) + WdetJ * (
|
| H A D | asimfg.f | 29 & rl(npro,nshl,nflow), rml(npro,nshl,nflow),
65 rml = zero
78 & shgl, xl, rl, rml, xmudmi,
88 call local (rmes, rml, ien, nflow, 'scatter ')
|
| H A D | asbmfg.f | 24 & rml(npro,nshl,nflow),
46 rml = zero
55 & xlb, rl, rml, sgn, EGmass)
60 & call local(rmes, rml, ienb, nflow, 'scatter ')
|
| H A D | e3b.f | 2 & xlb, rl, rml, sgn, EGmass) argument
61 & rl(npro,nshl,nflow), rml(npro,nshl,nflow)
302 rml(:,nodlcl,2) = rml(:,nodlcl,2) - WdetJb *
304 rml(:,nodlcl,3) = rml(:,nodlcl,3) - WdetJb *
306 rml(:,nodlcl,4) = rml(:,nodlcl,4) - WdetJb *
308 rml(:,nodlcl,5) = rml(:,nodlcl,5) - WdetJb *
|
| H A D | asiflx.f | 30 dimension EGmass(npro,nedof,nedof), rml(npro,nshl,nflow)
64 & shgl(lcsyst,:,1:nshl,:), xl, rl, rml,
|
| H A D | asbflx.f | 24 & rl(npro,nshl,nflow), rml(npro,nshl,nflow),
54 & xlb, rl, rml, sgn)
|
| H A D | asigmr.f | 31 & rl(npro,nshl,nflow), rml(npro,nshl,nflow),
76 & shgl, xl, rl, rml, xmudmi,
|
| H A D | e3.f | 2 & shgl, xl, rl, rml, xmudmi, argument
56 & rml(npro,nshl,nflow), xmudmi(npro,ngauss),
245 call e3juel (yl, acl, Sclr, A0, WdetJ, rl, rml)
294 & rml, stiff, EGmass)
|