| /phasta/phSolver/common/ |
| H A D | qpbc.f | 1 subroutine qpbc( rmass, qres, iBC, iper, ilwork ) argument
15 dimension rmass(nshg), qres(nshg,idflx),
38 call commu (rmass , ilwork, 1 , 'in ')
49 rmass(i) = rmass(i) + rmass(j)
58 rmass(j) = rmass(i)
66 rmass = one/rmass
69 qres(:,i) = rmass*qres(:,i)
117 subroutine qpbcSclr( rmass, qres, iBC, iper, ilwork ) argument
131 dimension rmass(nshg), qres(nshg,nsd),
142 call commu (rmass , ilwork, 1 , 'in ')
[all …]
|
| H A D | errorsmooth.f | 14 dimension rerrsm(nshg, 10), rerr(nshg,10), rmass(nshg),
27 rmass = zero
60 & rmass)
68 call commu (rmass , ilwork, 1 , 'in ')
76 rmass(i) = rmass(i) + rmass(j)
84 rmass(j) = rmass(i)
91 rmass = one/rmass
94 rerrsm(:,i) = rmass*rerrsm(:,i)
110 & rerrsm, rmass ) argument
137 & rerrsm(nshg,10), rmass(nshg)
[all …]
|
| H A D | solvecon.f | 28 & rmass(nshg)
36 rmass = zero
71 & tmpshgl, mien(iblk)%p, rmass,
85 call commu (rmass , ilwork, 1 , 'in ')
93 rmass(i) = rmass(i) + rmass(j)
103 rmass(j) = rmass(i)
112 rmass = one/rmass
113 v_lambda1 = v_lambda1*rmass ! numerator of lambda
114 v_lambda2 = v_lambda2*rmass ! denominator of lambda
116 hprime = hprime*rmass
[all …]
|
| /phasta/phSolver/incompressible/ |
| H A D | errsmooth.f | 16 dimension rerrsm(nshg, 10), rerr(nshg,10), rmass(nshg)
28 rmass = zero
61 & rmass)
69 call commu (rmass , ilwork, 1 , 'in ')
77 rmass(i) = rmass(i) + rmass(j)
85 rmass(j) = rmass(i)
92 rmass = one/rmass
95 rerrsm(:,i) = rmass*rerrsm(:,i)
111 & rerrsm, rmass ) argument
138 & rerrsm(nshg,10), rmass(nshg)
[all …]
|
| H A D | hessian.f | 18 dimension gradu(nshg,9), rmass(nshg),
25 rmass = zero
46 & rmass )
51 call reconstruct( rmass, gradu, iBC, iper, ilwork, 9 )
54 rmass = zero
76 & rmass )
80 call reconstruct( rmass, uhess, iBC, iper, ilwork, 27 )
88 & ien, gradu, rmass ) argument
96 & gradul(npro,9) , rmass( nshg )
152 call local (rmass, rmassl, ien, 1, 'scatter ')
[all …]
|
| H A D | e3ql.f | 41 & rmass(npro,nshl,nshl)
49 rmass = zero
118 rmass(:,i,j) = rmass(:,i,j)+shape(:,i)*shape(:,j)*tmp
144 call ludcmp(rmass(iel,:,:),nshl,nshl,indx,d)
150 call lubksb(rmass(iel,:,:),nshl,nshl,indx,
205 & rmass(npro,nshl,nshl), gradT(npro,nsd),
212 rmass = zero
257 rmass(:,i,j)=rmass(:,i,j)+shape(:,i)*shape(:,j)*tmp
273 rmass = rmass/6.0
291 call ludcmp(rmass(iel,:,:),nshl,nshl,indx,d)
[all …]
|
| H A D | asiq.f | 3 & qres, rmass ) argument
30 & qres(nshg,idflx), rmass(nshg)
72 call local (rmass, rmassl, ien, 1, 'scatter ')
90 & rmass ) argument
98 & qres(nshg,nsd), rmass(nshg)
130 call local (rmass, rmassl, ien, 1, 'scatter ')
|
| H A D | solveGradV.f | 1 subroutine solveGradV( rmass, qres, iBC, iper, ilwork ) argument
15 dimension rmass(nshg), qres(nshg,nsdsq),
51 qres(:,i) = rmass*qres(:,i)
|
| H A D | elmgmr.f | 41 dimension qres(nshg,idflx), rmass(nshg)
82 rmass = zero
112 & qres, rmass )
118 call qpbc( rmass, qres, iBC, iper, ilwork )
121 call solveGradV( rmass, GradV, iBC, iper, ilwork )
398 dimension qres(nshg,nsd), rmass(nshg)
421 rmass = zero
441 & rmass )
448 call qpbcSclr ( rmass, qres, iBC, iper, ilwork )
|
| H A D | advLES.f | 1300 & qres(nshg,nsd*nsd), rmass(nshg),
1401 rmass = zero
1423 & qres, rmass )
1429 call qpbc( rmass, qres, iBC, BC, iper, ilwork )
1635 & qres(nshg,nsd*nsd), rmass(nshg),
1827 rmass = zero
1853 & qres, rmass )
1861 call qpbc( rmass, qres, iBC, BC, iper, ilwork )
|
| H A D | filters.f | 1001 & qres(nshg,nsd*nsd), rmass(nshg),
1034 rmass = zero
1056 & qres, rmass )
1062 call qpbc( rmass, qres, iBC, BC, iper, ilwork )
|
| /phasta/phSolver/compressible/ |
| H A D | e3ql.f | 44 & rmass(npro,nshl,nshl), rho(npro)
51 rmass = zero
168 rmass(:,i,j) = rmass(:,i,j)+shape(:,i)*shape(:,j)*tmp
177 rmass = rmass/6.0
193 call ludcmp(rmass(iel,:,:),nshl,nshl,indx,d)
199 call lubksb(rmass(iel,:,:),nshl,nshl,
|
| H A D | asiq.f | 3 & qres, rmass ) argument
30 & qres(nshg,idflx), rmass(nshg)
66 call local (rmass, rmassl, ien, 1, 'scatter ')
|
| H A D | elmmfg.f | 34 dimension qres(nshg,idflx), rmass(nshg),
63 rmass = zero
98 & rmass)
108 call qpbc( rmass, qres, iBC, iper, ilwork )
|
| H A D | elmgmr.f | 36 dimension qres(nshg, idflx), rmass(nshg)
65 rmass = zero
98 & rmass)
108 call qpbc( rmass, qres, iBC, iper, ilwork )
319 dimension qres(nshg, idflx), rmass(nshg)
348 rmass = zero
380 & rmass)
390 call qpbc( rmass, qres, iBC, iper, ilwork )
|
| H A D | elmgmrpetsc.f | 46 dimension qres(nshg, idflx), rmass(nshg)
79 rmass = zero
112 & rmass)
122 call qpbc( rmass, qres, iBC, iper, ilwork )
|