Lines Matching refs:vol
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 ')
1491 vol = one / vol
1493 stress(:,i) = stress(:,i)*vol(:)
1496 diss(:,i) = diss(:,i)*vol(:)
1637 & cdelsq(nshg), vol(nshg),
1871 vol = zero
1893 & stress, diss, vol)
1900 if(numpe>1) call commu (vol, ilwork, 1, 'in ')
1910 vol(i) = vol(i) + vol(j)
1919 vol(j) = vol(i)
1925 if(numpe>1) call commu (vol, ilwork, 1, 'out ')
1927 vol = one / vol
1929 stress(:,i) = stress(:,i)*vol(:)
1932 diss(:,i) = diss(:,i)*vol(:)