Lines Matching refs:diss
5 & cdelsq, shgl, shp, Qwtf, shglo, shpo, stress, diss, vol) argument
40 & vol(nshg), diss(nshg,3),
479 diss(ien(nel,j),:) = diss(ien(nel,j),:) + dissl(nel,:)
1303 & stress(nshg,9), diss(nshg,3),
1440 diss = zero
1458 & stress, diss, vol)
1463 if(numpe>1) call commu (diss, ilwork, 3, 'in ')
1473 diss(i,:) = diss(i,:) + diss(j,:)
1482 diss(j,:) = diss(i,:)
1488 if(numpe>1) call commu (diss, ilwork, 3, 'out ')
1496 diss(:,i) = diss(:,i)*vol(:)
1504 xave(:,10) = diss(:,1)
1505 xave(:,11) = diss(:,2)
1506 xave(:,12) = diss(:,3)
1638 & stress(nshg,9), diss(nshg,3),
1872 diss = zero
1893 & stress, diss, vol)
1899 if(numpe>1) call commu (diss, ilwork, 3, 'in ')
1909 diss(i,:) = diss(i,:) + diss(j,:)
1918 diss(j,:) = diss(i,:)
1924 if(numpe>1) call commu (diss, ilwork, 3, 'out ')
1932 diss(:,i) = diss(:,i)*vol(:)
1940 xave(:,10) = diss(:,1)
1941 xave(:,11) = diss(:,2)