| /phasta/phSolver/compressible/ |
| H A D | e3dc.f | 472 & rti, rmti, stifft) argument
509 & stifft(npro,nsd,nsd), dtmp(npro)
694 stifft(:,1,1) = stifft(:,1,1)
699 stifft(:,1,2) = stifft(:,1,2)
704 stifft(:,1,3) = stifft(:,1,3)
709 stifft(:,2,1) = stifft(:,2,1)
712 stifft(:,2,2) = stifft(:,2,2)
715 stifft(:,2,3) = stifft(:,2,3)
718 stifft(:,3,1) = stifft(:,3,1)
721 stifft(:,3,2) = stifft(:,3,2)
[all …]
|
| H A D | e3wmlt.f | 240 & stifft, EGmasst ) argument
290 & rmti(npro,nsd+1), stifft(npro,nsd,nsd),
368 stift1(:) = shg1 * stifft(:,1,1)
369 & + shg2 * stifft(:,1,2)
370 & + shg3 * stifft(:,1,3)
371 stift2(:) = shg1 * stifft(:,2,1)
372 & + shg2 * stifft(:,2,2)
373 & + shg3 * stifft(:,2,3)
374 stift3(:) = shg1 * stifft(:,3,1)
375 & + shg2 * stifft(:,3,2)
[all …]
|
| H A D | e3visc.f | 363 & rti, rmti, stifft)
398 & stifft(npro,3,3)
410 stifft = zero
414 stifft(:,1,1)=rmu
416 stifft(:,1,1)=saSigmaInv*((rmu/rho)+max(zero,Sclr))
422 stifft(:,2,2)=stifft(:,1,1)
426 stifft(:,3,3)=stifft(:,1,1)
436 rmti(:,1) = stifft(:,1,1) * g1yti(:)
437 rmti(:,2) = stifft(:,2,2) * g2yti(:)
438 rmti(:,3) = stifft(:,3,3) * g3yti(:)
|
| H A D | e3ls.f | 782 & EGmasst, stifft, WdetJ, argument
839 & stifft(npro,3,3), giju(npro,6),
959 stifft(:,1,1) = stifft(:,1,1) + Ataut(:)*A1t(:)
965 stifft(:,1,2) = stifft(:,1,2) + Ataut(:)*A2t(:)
971 stifft(:,1,3) = stifft(:,1,3) + Ataut(:)*A3t(:)
989 stifft(:,2,1) = stifft(:,1,2)
994 stifft(:,2,2) = stifft(:,2,2) + Ataut(:)*A2t(:)
1000 stifft(:,2,3) = stifft(:,2,3) + Ataut(:)*A3t(:)
1018 stifft(:,3,1) = stifft(:,1,3)
1024 stifft(:,3,2) = stifft(:,2,3)
[all …]
|
| H A D | e3.f | 392 & stifft(npro,nsd,nsd),
421 stifft = zero
482 & rti, rmti, stifft )
499 & EGmasst, stifft, WdetJ,
510 & rti, rmti, stifft)
533 & rtl, stifft, EGmasst)
|