| /phasta/phSolver/compressible/ |
| H A D | e3massr.f | 95 subroutine e3massrSclr (acti, rti, A0t) argument
119 & rti(npro,nsd+1),
127 rti(:,4) = rti(:,4) + A0t(:)*acti(:)
|
| H A D | e3conv.f | 360 & rti, rmti, EGmasst, argument
406 & rLyti(npro), rti(npro,nsd+1),
425 rti(:, 4) = rti(:,4) + ( u1) * g1yti(:)
431 rti(:, 1) = rti(:,1) + (- u1) * rho * Sclr
432 rti(:, 2) = rti(:,2) + (- u2) * rho * Sclr
433 rti(:, 3) = rti(:,3) + (- u3) * rho * Sclr
|
| H A D | e3.f | 391 dimension rti(npro,nsd+1), rmti(npro,nsd+1),
418 rti = zero
448 & rti, rLyti, srcp,
472 & rti, rmti, EGmasst,
482 & rti, rmti, stifft )
496 & rti, rk, giju,
510 & rti, rmti, stifft)
518 call e3massrSclr (acti, rti, A0t)
532 & rti,
|
| H A D | e3wmlt.f | 239 & rti, rtl, argument
289 & WdetJ(npro), rti(npro,nsd+1),
310 & shg(:,i,1) * rti(:,1) + shg(:,i,2) * rti(:,2)
311 & + shg(:,i,3) * rti(:,3) )
346 rtl(:,i) = rtl(:,i) + shp(:,i) * WdetJ * rti(:,4)
|
| H A D | e3dc.f | 472 & rti, rmti, stifft) argument
508 & rti(npro,nsd+1), rmti(npro,nsd+1),
659 rti ( :,1) = rti ( :,1) + DCt(:,intp) * gAgyit( :,1)
661 rti ( :,2) = rti ( :,2) + DCt(:,intp) * gAgyit( :,2)
663 rti ( :,3) = rti ( :,3) + DCt(:,intp) * gAgyit( :,3)
|
| H A D | e3source.f | 228 & rti, rLyti, srcp,
268 dimension rti (npro,4), rLyti (npro)
423 rti (:,4) = rti (:,4) - bf(:)
491 rti (:,4) = rti (:,4) - srcp(:)
|
| H A D | e3ls.f | 779 & rti, rk, giju, argument
838 & rti(npro,nsd+1), rTLSt(npro),
930 rti(:,1) = rti(:,1) + A1t(:) * rLyti(:)
932 rti(:,2) = rti(:,2) + A2t(:) * rLyti(:)
934 rti(:,3) = rti(:,3) + A3t(:) * rLyti(:)
|
| H A D | e3visc.f | 363 & rti, rmti, stifft)
397 & rti(npro,nsd+1), rmti(npro,nsd+1),
440 rti (:,:) = rti (:,:) + rmti(:,:)
|