| /phasta/phSolver/compressible/ |
| H A D | asiflx.f | 32 dimension rlsl(npro,nshl,6)
48 call local (rls, rlsl, ien, 6, 'gather ')
50 rlsl = zero
65 & xmudmi, BDiagl, ql, sgn, rlsl, EGmassd)
|
| H A D | asires.f | 30 dimension rlsl(npro,nshl,6)
62 call local (rls, rlsl, ien, 6, 'gather ')
64 rlsl = zero
80 & xmudmi, BDiagl, ql, sgn, rlsl, EGmassd,
|
| H A D | asimfg.f | 33 dimension rlsl(npro,nshl,6)
57 call local (rls, rlsl, ien, 6, 'gather ')
59 rlsl = zero
79 & BDiagl, ql, sgn, rlsl, EGmassd,
|
| H A D | asigmr.f | 38 dimension rlsl(npro,nshl,6)
62 call local (rls, rlsl, ien, 6, 'gather ')
64 rlsl = zero
77 & BDiagl, ql, sgn, rlsl, EGmass,
|
| H A D | e3ivar.f | 12 & con, rlsl, rlsli, argument
85 dimension rlsl(npro,nshl,6), rlsli(npro,6),
162 rlsli(:,1) = rlsli(:,1) + shape(:,n) * rlsl(:,n,1)
163 rlsli(:,2) = rlsli(:,2) + shape(:,n) * rlsl(:,n,2)
164 rlsli(:,3) = rlsli(:,3) + shape(:,n) * rlsl(:,n,3)
165 rlsli(:,4) = rlsli(:,4) + shape(:,n) * rlsl(:,n,4)
166 rlsli(:,5) = rlsli(:,5) + shape(:,n) * rlsl(:,n,5)
167 rlsli(:,6) = rlsli(:,6) + shape(:,n) * rlsl(:,n,6)
|
| H A D | e3.f | 3 & BDiagl, ql, sgn, rlsl, EGmass, argument
93 dimension rlsl(npro,nshl,6), rlsli(npro,6)
141 & con, rlsl, rlsli,
|
| /phasta/phSolver/incompressible/ |
| H A D | asigmr.f | 38 dimension rlsl(npro,nshl,6)
67 call local (rls, rlsl, ien, 6, 'gather ')
69 rlsl = zero
89 & sgn, rerrl, rlsl, CFLworst)
|
| H A D | e3ivar.f | 8 & rerrl, rlsl, rlsli, argument
70 dimension rlsl(npro,nshl,6), rlsli(npro,6)
120 rlsli(:,1) = rlsli(:,1) + shpfun(:,n) * rlsl(:,n,1)
121 rlsli(:,2) = rlsli(:,2) + shpfun(:,n) * rlsl(:,n,2)
122 rlsli(:,3) = rlsli(:,3) + shpfun(:,n) * rlsl(:,n,3)
123 rlsli(:,4) = rlsli(:,4) + shpfun(:,n) * rlsl(:,n,4)
124 rlsli(:,5) = rlsli(:,5) + shpfun(:,n) * rlsl(:,n,5)
125 rlsli(:,6) = rlsli(:,6) + shpfun(:,n) * rlsl(:,n,6)
|
| H A D | e3.f | 4 & rerrl, rlsl) argument
64 dimension rlsl(npro,nshl,6), rlsli(npro,6)
105 & rerrl, rlsl, rlsli,
|
| H A D | advLES.f | 31 & rlsl(npro,nshl,6), rlsli(npro,6),
72 call local (rls, rlsl, ien, 6, 'gather ')
74 rlsl = zero
|
| /phasta/phSolver/common/ |
| H A D | bardmc.f | 1076 & strnrm(npro,ngauss), rlsl(npro,nshl,6)
1082 call local (rls, rlsl, ien, 6, 'gather ')
1209 epsli(:,2) = rlsl(:,intp,1)*fresli(:,10) +
1210 & rlsl(:,intp,2)*fresli(:,11) +
1211 & rlsl(:,intp,3)*fresli(:,12) +
1212 & two*( rlsl(:,intp,4)*fresli(:,13)+
1213 & rlsl(:,intp,5)*fresli(:,14)+
1214 & rlsl(:,intp,6)*fresli(:,15) )
|