Lines Matching refs:g1yi
100 real*8 g1yi(npro,nflow) local
125 g1yi = zero
131 g1yi(:,2) = g1yi(:,2) + shg(:,n,1) * yl(:,n,2) ! du/dx
135 g1yi(:,3) = g1yi(:,3) + shg(:,n,1) * yl(:,n,3) ! dv/dx
139 g1yi(:,4) = g1yi(:,4) + shg(:,n,1) * yl(:,n,4) ! dw/dx
158 & (g3yi(:,2)-g1yi(:,4)) !du/dz-dw/dx
162 & (g1yi(:,3)-g2yi(:,2)) !dv/dx-du/dy
168 & +0.5*(g3yi(:,2)-g1yi(:,4))**2 !du/dz-dw/dx
169 & +0.5*(g1yi(:,3)-g2yi(:,2))**2 !dv/dx-du/dy
170 & -g1yi(:,2)**2-g2yi(:,3)**2-g3yi(:,4)**2
172 & -0.5*(g3yi(:,2)+g1yi(:,4))**2
173 & -0.5*(g1yi(:,3)+g2yi(:,2))**2 )*0.5