| /phasta/phSolver/compressible/ |
| H A D | i3pre.f | 29 dimension BDiagl(numel,nshape,nflow,nflow),
53 call local (BDiag, BDiagl(iel:inum,:,:,:), abs(mien(iblk)%p),
70 & - BDiagl(n+iv,inode,2,1) * EGmass(n+iv,i+1,j))
73 & - BDiagl(n+iv,inode,3,1) * EGmass(n+iv,i+1,j)
74 & - BDiagl(n+iv,inode,3,2) * EGmass(n+iv,i+2,j))
77 & - BDiagl(n+iv,inode,4,1) * EGmass(n+iv,i+1,j)
78 & - BDiagl(n+iv,inode,4,2) * EGmass(n+iv,i+2,j)
79 & - BDiagl(n+iv,inode,4,3) * EGmass(n+iv,i+3,j))
82 & - BDiagl(n+iv,inode,5,1) * EGmass(n+iv,i+1,j)
83 & - BDiagl(n+iv,inode,5,2) * EGmass(n+iv,i+2,j)
[all …]
|
| H A D | e3bdg_nd.f | 5 & BDiagl, argument
12 dimension BDiagl(npro,nshl,nflow,nflow),
40 BDiagl(:,j,1,1) = BDiagl(:,j,1,1)
46 BDiagl(:,j,1,2) = BDiagl(:,j,1,2)
52 BDiagl(:,j,1,3) = BDiagl(:,j,1,3)
58 BDiagl(:,j,1,4) = BDiagl(:,j,1,4)
64 BDiagl(:,j,1,5) = BDiagl(:,j,1,5)
70 BDiagl(:,j,2,1) = BDiagl(:,j,2,1)
76 BDiagl(:,j,2,2) = BDiagl(:,j,2,2)
82 BDiagl(:,j,2,3) = BDiagl(:,j,2,3)
[all …]
|
| H A D | e3bdg.f | 5 & BDiagl, argument
12 dimension BDiagl(npro,nshl,nflow,nflow),
39 BDiagl(:,j,1,1) = BDiagl(:,j,1,1)
45 BDiagl(:,j,1,2) = BDiagl(:,j,1,2)
51 BDiagl(:,j,1,3) = BDiagl(:,j,1,3)
57 BDiagl(:,j,1,4) = BDiagl(:,j,1,4)
63 BDiagl(:,j,1,5) = BDiagl(:,j,1,5)
69 BDiagl(:,j,2,1) = BDiagl(:,j,2,1)
75 BDiagl(:,j,2,2) = BDiagl(:,j,2,2)
81 BDiagl(:,j,2,3) = BDiagl(:,j,2,3)
[all …]
|
| H A D | asimfg.f | 30 & BDiagl(npro,nshl,nflow,nflow),
66 BDiagl = zero
79 & BDiagl, ql, sgn, rlsl, EGmassd,
99 & call local (BDiag, BDiagl, ien, nflow*nflow, 'scatter ')
|
| H A D | asigmr.f | 32 & BDiagl(npro,nshl,nflow,nflow),
70 BDiagl = zero
77 & BDiagl, ql, sgn, rlsl, EGmass,
98 BDiagl(:,i,j,k) = EGmass(:,i0,j0)
102 call local (BDiag, BDiagl, ien, nflow*nflow, 'scatter ')
|
| H A D | asiflx.f | 24 & rl(npro,nshl,nflow), BDiagl(npro,nshl,nflow,nflow)
65 & xmudmi, BDiagl, ql, sgn, rlsl, EGmassd)
|
| H A D | e3.f | 3 & BDiagl, ql, sgn, rlsl, EGmass, argument
57 & BDiagl(npro,nshl,nflow,nflow),
270 & BDiagl,
279 & BDiagl,
|
| H A D | asires.f | 80 & xmudmi, BDiagl, ql, sgn, rlsl, EGmassd,
|