Lines Matching refs:strain
97 real*8, allocatable, dimension(:,:) :: ybar, strain, vorticity local
176 allocate(strain(nshg,6))
531 & call computeVort( vorticity, GradV,strain)
757 deallocate(strain,vorticity)
1726 subroutine computeVort( vorticity, GradV,strain) argument
1729 real*8 gradV(nshg,nsdsq), strain(nshg,6), vorticity(nshg,5) local
1739 strain(:,1) = GradV(:,1) !S11
1740 strain(:,2) = 0.5*(GradV(:,2)+GradV(:,4)) !S12
1741 strain(:,3) = 0.5*(GradV(:,3)+GradV(:,7)) !S13
1742 strain(:,4) = GradV(:,5) !S22
1743 strain(:,5) = 0.5*(GradV(:,6)+GradV(:,8)) !S23
1744 strain(:,6) = GradV(:,9) !S33
1747 & - 2.0*( strain(:,1)*strain(:,1)
1748 & + 2* strain(:,2)*strain(:,2)
1749 & + 2* strain(:,3)*strain(:,3)
1750 & + strain(:,4)*strain(:,4)
1751 & + 2* strain(:,5)*strain(:,5)
1752 & + strain(:,6)*strain(:,6)))