Lines Matching refs:yl
1 subroutine e3qvar (yl, shgl, argument
37 dimension yl(npro,nshl,ndof),
122 g1yi(:,2) = g1yi(:,2) + shg(:,n,1) * yl(:,n,2)
123 g1yi(:,3) = g1yi(:,3) + shg(:,n,1) * yl(:,n,3)
124 g1yi(:,4) = g1yi(:,4) + shg(:,n,1) * yl(:,n,4)
126 g2yi(:,2) = g2yi(:,2) + shg(:,n,2) * yl(:,n,2)
127 g2yi(:,3) = g2yi(:,3) + shg(:,n,2) * yl(:,n,3)
128 g2yi(:,4) = g2yi(:,4) + shg(:,n,2) * yl(:,n,4)
130 g3yi(:,2) = g3yi(:,2) + shg(:,n,3) * yl(:,n,2)
131 g3yi(:,3) = g3yi(:,3) + shg(:,n,3) * yl(:,n,3)
132 g3yi(:,4) = g3yi(:,4) + shg(:,n,3) * yl(:,n,4)
148 subroutine e3qvarSclr (yl, shgl, xl, argument
155 real*8 yl(npro,nshl,ndof), shp(npro,nshl), local
175 gradT(:,1) = gradT(:,1) + shg(:,n,1) * yl(:,n,id)
176 gradT(:,2) = gradT(:,2) + shg(:,n,2) * yl(:,n,id)
177 gradT(:,3) = gradT(:,3) + shg(:,n,3) * yl(:,n,id)