| /phasta/phSolver/compressible/ |
| H A D | e3dc.f | 2 & rtLS, giju, DC, ri, argument
37 & giju(npro,6), DC(npro,ngauss),
143 gAgyi( :,1) = giju(:,1)*A0gyi( :,1)
144 & + giju(:,4)*A0gyi( :,6)
145 & + giju(:,5)*A0gyi(:,11)
147 gAgyi( :,2) = giju(:,1)*A0gyi( :,2)
148 & + giju(:,4)*A0gyi( :,7)
149 & + giju(:,5)*A0gyi(:,12)
151 gAgyi( :,3) = giju(:,1)*A0gyi( :,3)
152 & + giju(:,4)*A0gyi( :,8)
[all …]
|
| H A D | e3tau.f | 5 & giju, rTLS, raLS,
50 & fact(npro), h2o2u(npro), giju(npro,6),
248 giju(:,1) = detgijI * (gijdu(:,2)*gijdu(:,3)
250 giju(:,2) = detgijI * (gijdu(:,1)*gijdu(:,3)
252 giju(:,3) = detgijI * (gijdu(:,1)*gijdu(:,2)
254 giju(:,4) = detgijI * (gijdu(:,5)*gijdu(:,6)
256 giju(:,5) = detgijI * (gijdu(:,4)*gijdu(:,6)
258 giju(:,6) = detgijI * (gijdu(:,4)*gijdu(:,5)
289 & giju, rTLS, raLS,
335 & fact(npro), giju(npro,6),
[all …]
|
| H A D | e3.f | 77 & giju(npro,6), rTLS(npro),
210 & giju, rTLS, raLS,
220 & giju, DC,
388 & rTLSt(npro), giju(npro,6),
496 & rti, rk, giju,
509 & DCt, giju,
|
| H A D | e3ls.f | 10 & giju, rTLS, raLS, argument
68 & tau(npro,5), giju(npro,6),
194 & giju, rTLS, raLS,
213 & giju, rTLS, raLS,
779 & rti, rk, giju, argument
839 & stifft(npro,3,3), giju(npro,6),
895 & rTLSt, giju)
|
| /phasta/phSolver/incompressible/ |
| H A D | e3lhs.f | 270 subroutine e3LHSSclr ( uMod, giju, dcFct, argument
293 & tmp(npro), dcFct(npro), giju(npro,6)
346 giju(:,1) = tmp * giju(:,1)
347 giju(:,2) = tmp * giju(:,2)
348 giju(:,3) = tmp * giju(:,3)
349 giju(:,4) = tmp * giju(:,4)
350 giju(:,5) = tmp * giju(:,5)
351 giju(:,6) = tmp * giju(:,6)
353 t1(:,1) = t1(:,1) + giju(:,1) * shg(:,b,1)
354 2 + giju(:,4) * shg(:,b,2)
[all …]
|
| H A D | e3stab.f | 489 subroutine e3StabSclr (uMod, dxidx, tauT, diffus, srcR, giju, argument
500 real*8 gijd(npro,6), giju(npro,6), local
574 giju(:,1) = fact * (gijd(:,2)*gijd(:,3)
576 giju(:,2) = fact * (gijd(:,1)*gijd(:,3)
578 giju(:,3) = fact * (gijd(:,1)*gijd(:,2)
580 giju(:,4) = fact * (gijd(:,5)*gijd(:,6)
582 giju(:,5) = fact * (gijd(:,4)*gijd(:,6)
584 giju(:,6) = fact * (gijd(:,4)*gijd(:,5)
|
| H A D | e3dc.f | 469 subroutine e3dcSclr ( gradS, giju, gGradS, argument
505 & giju(npro,6), dcFct(npro),
|
| H A D | e3.f | 196 & giju(npro,6) local
245 & diffus, srcR, giju,
254 call e3dcSclr ( gradS, giju, gGradS,
272 call e3LHSSclr ( uMod, giju, dcFct,
|