Searched refs:vol (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/incompressible/ ! |
| H A D | advLES.f | 5 & cdelsq, shgl, shp, Qwtf, shglo, shpo, stress, diss, vol) argument
40 & vol(nshg), diss(nshg,3),
485 vol(ien(nel,j)) = vol(ien(nel,j)) + voll(nel)
1302 & cdelsq(nshg), vol(nshg),
1439 vol = zero
1458 & stress, diss, vol)
1464 if(numpe>1) call commu (vol, ilwork, 1, 'in ')
1474 vol(i) = vol(i) + vol(j)
1483 vol(j) = vol(i)
1489 if(numpe>1) call commu (vol, ilwork, 1, 'out ')
[all …]
|
| H A D | filters.f | 1003 & cdelsq(nshg), vol(nshg),
1072 vol = zero
1091 & stress, diss, vol)
1097 if(numpe>1) call commu (vol, ilwork, 1, 'in ')
1107 vol(i) = vol(i) + vol(j)
1116 vol(j) = vol(i)
1122 if(numpe>1) call commu (vol, ilwork, 1, 'out ')
1124 vol = one / vol
1126 stress(:,i) = stress(:,i)*vol(:)
1129 diss(:,i) = diss(:,i)*vol(:)
|