| /phasta/phSolver/incompressible/ |
| H A D | e3q.f | 2 & xl, ql, rmassl, argument
27 & ql(npro,nshl,idflx), rmassl(npro,nshl),
134 rmassl(:,i) = rmassl(:,i) + shape(:,i)*WdetJ
144 rmassl(:,i)=rmassl(:,i)+shape(:,i)*shape(:,i)*WdetJ
182 rmassl(:,i) = rmassl(:,i) + shape(:,i)*WdetJ
194 rmassl(:,i) = rmassl(:,i)*alph1/alph2
207 & xl, ql, rmassl, argument
222 & ql(npro,nshl,nsd), rmassl(npro,nshl)
293 rmassl(:,i) = rmassl(:,i) + shape(:,i)*WdetJ
303 rmassl(:,i)=rmassl(:,i)+shape(:,i)*shape(:,i)*WdetJ
[all …]
|
| H A D | asiq.f | 33 & ql(npro,nshl,idflx), rmassl(npro,nshl),
62 rmassl = zero
65 & xl, ql, rmassl,
72 call local (rmass, rmassl, ien, 1, 'scatter ')
101 & ql(npro,nshl,nsd), rmassl(npro,nshl)
120 rmassl = zero
123 & xl, ql, rmassl,
130 call local (rmass, rmassl, ien, 1, 'scatter ')
|
| H A D | errsmooth.f | 143 & rerrsml(npro,nshl,10), rmassl(npro,nshl)
167 rmassl = zero
198 rmassl(:,i) = rmassl(:,i) + shape(:,i)*WdetJ
208 call local (rmass, rmassl, ien, 1, 'scatter ')
|
| H A D | hessian.f | 100 & WdetJ(npro), rmassl(npro,nshl)
126 rmassl = zero
144 rmassl(:,i) = rmassl(:,i) + shape(:,i)*WdetJ
152 call local (rmass, rmassl, ien, 1, 'scatter ')
175 & WdetJ(npro), rmassl(npro, nshl)
201 rmassl = zero
219 rmassl(:,i) = rmassl(:,i) + shape(:,i)*WdetJ
226 call local (rmass, rmassl, ien, 1, 'scatter ')
|
| /phasta/phSolver/compressible/ |
| H A D | e3q.f | 2 & xl, ql, rmassl, argument
28 & ql(npro,nshl,idflx), rmassl(npro,nshl),
176 rmassl(:,i) = rmassl(:,i) + shape(:,i)*WdetJ
186 rmassl(:,i)=rmassl(:,i)+shape(:,i)*shape(:,i)*WdetJ
224 rmassl(:,i) = rmassl(:,i) + shape(:,i)*WdetJ
236 rmassl(:,i) = rmassl(:,i)*alph1/alph2
|
| H A D | asiq.f | 35 & ql(npro,nshl,idflx), rmassl(npro,nshl),
56 rmassl = zero
59 & xl, ql, rmassl,
66 call local (rmass, rmassl, ien, 1, 'scatter ')
|
| /phasta/phSolver/common/ |
| H A D | errorsmooth.f | 142 & rerrsml(npro,nshl,10), rmassl(npro,nshl)
166 rmassl = zero
197 rmassl(:,i) = rmassl(:,i) + shape(:,i)*WdetJ
207 call local (rmass, rmassl, ien, 1, 'scatter ')
|
| H A D | solvecon.f | 167 & rmassl(npro,nshl)
210 rmassl = zero
272 rmassl(:,i) =rmassl(:,i) + shape(:,i)*WdetJ
282 call local (rmass, rmassl, ien, 1, 'scatter ')
|