| /phasta/phSolver/compressible/ |
| H A D | e3bvar.f | 2 & xlb, lnode, g1yi, g2yi, argument
57 & xlb(npro,nenl,nsd),
134 dxdxib(:,1,1) = dxdxib(:,1,1) + xlb(:,n,1) * shglb(:,1,n)
135 dxdxib(:,1,2) = dxdxib(:,1,2) + xlb(:,n,1) * shglb(:,2,n)
136 dxdxib(:,1,3) = dxdxib(:,1,3) + xlb(:,n,1) * shglb(:,3,n)
137 dxdxib(:,2,1) = dxdxib(:,2,1) + xlb(:,n,2) * shglb(:,1,n)
138 dxdxib(:,2,2) = dxdxib(:,2,2) + xlb(:,n,2) * shglb(:,2,n)
139 dxdxib(:,2,3) = dxdxib(:,2,3) + xlb(:,n,2) * shglb(:,3,n)
140 dxdxib(:,3,1) = dxdxib(:,3,1) + xlb(:,n,3) * shglb(:,1,n)
141 dxdxib(:,3,2) = dxdxib(:,3,2) + xlb(:,n,3) * shglb(:,2,n)
[all …]
|
| H A D | asbmfg.f | 22 dimension ycl(npro,nshl,ndofl), xlb(npro,nenl,nsd),
40 call localx(x, xlb, ienb, nsd, 'gather ')
55 & xlb, rl, rml, sgn, EGmass)
89 dimension ycl(npro,nshl,ndofl), xlb(npro,nenl,nsd),
103 call localx (x, xlb, ienb, nsd, 'gather ')
114 & xlb, rtl, rmtl)
|
| H A D | asbflx.f | 23 dimension ycl(npro,nshl,ndof), xlb(npro,nenl,nsd),
47 call localx(x, xlb,ienb, nsd, 'gather ')
54 & xlb, rl, rml, sgn)
77 call f3lhs (shpb, shglb, xlb, flhsl,
|
| H A D | asbres.f | 22 dimension yl(npro,nshl,nflow), xlb(npro,nenl,nsd),
38 call localx(x, xlb, ienb, nsd, 'gather ')
44 & xlb, rml, rml, sgn)
|
| H A D | e3b.f | 2 & xlb, rl, rml, sgn, EGmass) argument
60 & xlb(npro,nenl,nsd),
128 & shdrv, xlb,
192 & xmudum, xlb)
390 & xlb, rtl, rmtl) argument
433 & xlb(npro,nenl,nsd), shape(npro,nshl),
485 & xlb, lnode, u1,
|
| /phasta/phSolver/common/ |
| H A D | asbnabi.f | 15 dimension xlb(npro,nenl,nsd), bnorm(npro,nsd),
42 call localx(x, xlb, ienb, nsd, 'gather ')
75 v1 = xlb(:,ipt2,:) - xlb(:,1,:)
76 v2 = xlb(:,ipt3,:) - xlb(:,1,:)
173 dimension xlb(npro,nenl,nsd),
200 call localx(x, xlb, ienb, nsd, 'gather ')
233 v1 = xlb(:,ipt2,:) - xlb(:,1,:)
234 v2 = xlb(:,ipt3,:) - xlb(:,1,:)
|
| H A D | f3lhs.f | 1 subroutine f3lhs (shpb, shglb, xlb, flhsl, argument
37 & xlb(npro,nenl,nsd),
57 v1 = xlb(:,2,:) - xlb(:,1,:)
58 v2 = xlb(:,3,:) - xlb(:,1,:)
|
| /phasta/phSolver/incompressible/ |
| H A D | e3bvar.f | 3 & xlb, lnode, argument
53 & xlb(npro,nenl,nsd),
142 dxdxib(:,1,1) = dxdxib(:,1,1) + xlb(:,n,1) * shglb(:,1,n)
143 dxdxib(:,1,2) = dxdxib(:,1,2) + xlb(:,n,1) * shglb(:,2,n)
144 dxdxib(:,1,3) = dxdxib(:,1,3) + xlb(:,n,1) * shglb(:,3,n)
145 dxdxib(:,2,1) = dxdxib(:,2,1) + xlb(:,n,2) * shglb(:,1,n)
146 dxdxib(:,2,2) = dxdxib(:,2,2) + xlb(:,n,2) * shglb(:,2,n)
147 dxdxib(:,2,3) = dxdxib(:,2,3) + xlb(:,n,2) * shglb(:,3,n)
148 dxdxib(:,3,1) = dxdxib(:,3,1) + xlb(:,n,3) * shglb(:,1,n)
149 dxdxib(:,3,2) = dxdxib(:,3,2) + xlb(:,n,3) * shglb(:,2,n)
[all …]
|
| H A D | asbmfg.f | 27 dimension yl(npro,nshl,ndofl), xlb(npro,nenl,nsd),
44 call localx(x, xlb, ienb, nsd, 'gather ')
66 & xlb, rl, sgn, dwl, xKebe)
100 dimension yl(npro,nshl,ndofl), xlb(npro,nenl,nsd),
113 call localx(x, xlb, ienb, nsd, 'gather ')
123 & xlb, rl, sgn, dwl)
|
| H A D | asbflx.f | 27 dimension yl(npro,nshl,ndofl), xlb(npro,nenl,nsd),
51 call localx(x, xlb, ienb, nsd, 'gather ')
64 & xlb, rl, sgn, dwl, xKebe)
74 call f3lhs (shpb, shglb, xlb,
|
| H A D | e3b.f | 3 & xlb, rl, sgn, dwl, xKebe) argument
57 & xlb(npro,nenl,nsd), ul(npro,nshl,nsd),
121 call getdiff(dwl, yl, shape, xmudmi, xlb, rmu, rho)
127 & shdrv, xlb,
375 & xlb, rl, sgn, dwl) argument
381 & xlb(npro,nenl,nsd),
412 call e3bvarSclr (yl, shdrv, xlb,
|