Lines Matching refs:ycl
1 subroutine e3qvar (ycl, shp, shgl, rho, argument
40 dimension ycl(npro,nshl,ndof), rho(npro),
72 pres = pres + shp(:,n) * ycl(:,n,1)
73 u1 = u1 + shp(:,n) * ycl(:,n,2)
74 u2 = u2 + shp(:,n) * ycl(:,n,3)
75 u3 = u3 + shp(:,n) * ycl(:,n,4)
76 T = T + shp(:,n) * ycl(:,n,5)
89 Sclr = Sclr + shp(:,n) * ycl(:,n,isc)
120 g1yi(:,1) = g1yi(:,1) + shg(:,n,1) * ycl(:,n,1)
121 g1yi(:,2) = g1yi(:,2) + shg(:,n,1) * ycl(:,n,2)
122 g1yi(:,3) = g1yi(:,3) + shg(:,n,1) * ycl(:,n,3)
123 g1yi(:,4) = g1yi(:,4) + shg(:,n,1) * ycl(:,n,4)
124 g1yi(:,5) = g1yi(:,5) + shg(:,n,1) * ycl(:,n,5)
126 g2yi(:,1) = g2yi(:,1) + shg(:,n,2) * ycl(:,n,1)
127 g2yi(:,2) = g2yi(:,2) + shg(:,n,2) * ycl(:,n,2)
128 g2yi(:,3) = g2yi(:,3) + shg(:,n,2) * ycl(:,n,3)
129 g2yi(:,4) = g2yi(:,4) + shg(:,n,2) * ycl(:,n,4)
130 g2yi(:,5) = g2yi(:,5) + shg(:,n,2) * ycl(:,n,5)
132 g3yi(:,1) = g3yi(:,1) + shg(:,n,3) * ycl(:,n,1)
133 g3yi(:,2) = g3yi(:,2) + shg(:,n,3) * ycl(:,n,2)
134 g3yi(:,3) = g3yi(:,3) + shg(:,n,3) * ycl(:,n,3)
135 g3yi(:,4) = g3yi(:,4) + shg(:,n,3) * ycl(:,n,4)
136 g3yi(:,5) = g3yi(:,5) + shg(:,n,3) * ycl(:,n,5)