| /phasta/phSolver/common/ |
| H A D | qpbc.f | 1 subroutine qpbc( rmass, qres, iBC, iper, ilwork ) argument
15 dimension rmass(nshg), qres(nshg,idflx),
23 uv(:,j)=qres(:,istrt)
28 qres(:,istrt)=uv(:,j)
37 call commu (qres , ilwork, idflx , 'in ')
51 qres(i,1:idflow) = qres(i,1:idflow) + qres(j,1:idflow)
60 qres(j,1:idflow) = qres(i,1:idflow)
69 qres(:,i) = rmass*qres(:,i)
76 tmp = sqrt(qres(:,idflow+1)**2
77 & + qres(:,idflow+2)**2
[all …]
|
| H A D | solvecon.f | 162 & qres(nshg,idflx), rmass(nshg)
|
| /phasta/phSolver/incompressible/ |
| H A D | solveGradV.f | 1 subroutine solveGradV( rmass, qres, iBC, iper, ilwork ) argument
15 dimension rmass(nshg), qres(nshg,nsdsq),
22 call commu (qres , ilwork, nsdsq , 'in ')
36 qres(i,1:nsdsq) = qres(i,1:nsdsq) + qres(j,1:nsdsq)
45 qres(j,1:nsdsq) = qres(i,1:nsdsq)
51 qres(:,i) = rmass*qres(:,i)
55 call commu (qres, ilwork, nsdsq, 'out')
|
| H A D | asiq.f | 3 & qres, rmass ) argument
30 & qres(nshg,idflx), rmass(nshg)
71 call local (qres, ql, ien, idflx, 'scatter ')
89 & shgl, ien, qres, argument
98 & qres(nshg,nsd), rmass(nshg)
129 call local (qres, ql, ien, nsd, 'scatter ')
|
| H A D | asigmr.f | 3 & res, qres, argument
27 & qres(nshg,idflx)
61 call local (qres, ql, ien, idflx, 'gather ')
127 & res, qres, xSebe, xmudmi ) argument
144 & res(nshg), qres(nshg,nsd)
169 call local (qres, ql, ien, nsd, 'gather ')
|
| H A D | asiqGradV.f | 3 & qres ) argument
28 & qres(nshg,nsdsq)
64 call local (qres, ql, ien, nsdsq, 'scatter ')
|
| H A D | hessian.f | 235 subroutine reconstruct( rmass, qres, iBC, iper, ilwork, vsize ) argument
240 dimension rmass(nshg), qres( nshg, vsize),
247 call commu ( qres , ilwork, vsize , 'in ')
257 qres(i,:) = qres(i,:) + qres(j,:)
265 qres(j,:) = qres(i,:)
274 qres(:,i) = rmass*qres(:,i)
278 call commu (qres, ilwork, vsize, 'out')
|
| H A D | elmgmr.f | 41 dimension qres(nshg,idflx), rmass(nshg)
76 qres = zero
112 & qres, rmass )
118 call qpbc( rmass, qres, iBC, iper, ilwork )
175 & qres, xKebe,
398 dimension qres(nshg,nsd), rmass(nshg)
420 qres = zero
440 & mien(iblk)%p, qres,
448 call qpbcSclr ( rmass, qres, iBC, iper, ilwork )
489 & qres, xSebe, mxmudmi(iblk)%p )
|
| H A D | bflux.f | 46 real*8 qres(nshg,nsd*nsd) local
95 qres = zero
145 & flxres, qres,
|
| H A D | advLES.f | 4 subroutine SUPGstress (y, ac, x, qres, ien, xmudmi, argument
26 dimension qres(nshg,nsd*nsd), ql(npro,nshl,nsd*nsd),
62 call local (qres, ql, ien, nsd*nsd, 'gather ')
1300 & qres(nshg,nsd*nsd), rmass(nshg),
1400 qres = zero
1423 & qres, rmass )
1429 call qpbc( rmass, qres, iBC, BC, iper, ilwork )
1454 call SUPGstress (y, ac, x, qres, mien(iblk)%p, mxmudmi(iblk)%p,
1635 & qres(nshg,nsd*nsd), rmass(nshg),
1826 qres = zero
[all …]
|
| H A D | filters.f | 1001 & qres(nshg,nsd*nsd), rmass(nshg),
1033 qres = zero
1056 & qres, rmass )
1062 call qpbc( rmass, qres, iBC, BC, iper, ilwork )
1087 call SUPGstress (y, ac, x, qres, mien(iblk)%p, mxmudmi(iblk)%p,
|
| /phasta/phSolver/compressible/ |
| H A D | asiq.f | 3 & qres, rmass ) argument
30 & qres(nshg,idflx), rmass(nshg)
65 call local (qres, ql, ien, idflx,'scatter ')
|
| H A D | elmmfg.f | 34 dimension qres(nshg,idflx), rmass(nshg),
62 qres = zero
97 & qres,
108 call qpbc( rmass, qres, iBC, iper, ilwork )
157 & qres, rerr )
|
| H A D | asimfg.f | 3 & res, rmes, BDiag, qres, rerr) argument
24 & qres(nshg,idflx)
54 & call local (qres, ql, ien, idflx, 'gather ')
|
| H A D | elmgmr.f | 36 dimension qres(nshg, idflx), rmass(nshg)
64 qres = zero
97 & qres,
108 call qpbc( rmass, qres, iBC, iper, ilwork )
160 & qres, EGmass(iel:inum,:,:),
319 dimension qres(nshg, idflx), rmass(nshg)
347 qres = zero
379 & qres,
390 call qpbc( rmass, qres, iBC, iper, ilwork )
447 & qres, EGmass,
|
| H A D | elmgmrpetsc.f | 46 dimension qres(nshg, idflx), rmass(nshg)
78 qres = zero
111 & qres,
122 call qpbc( rmass, qres, iBC, iper, ilwork )
181 & qres, EGmass,
|
| H A D | asigmr.f | 4 & BDiag, qres, EGmass, rerr) argument
26 & qres(nshg,idflx)
55 call local (qres, ql, ien, idflx, 'gather ')
|