Lines Matching refs:ycl
7 dimension ien(npro,nshl), ycl(npro,nshl,ndof),
18 call localy (y, ycl, ien, 5, 'gather ')
23 ycl (:,:,1) = ycl(:,:,1) / (Rgas * ycl(:,:,5)) !get density
25 ycl(:,:,1) = one ! Even if density non unity, it would cancel out
89 fresli(:,22) = fresli(:,22)+shp(i,intp)*ycl(:,i,1) !density at
112 fresli(:,j) = fresli(:,j)+shg(:,i,ig)*ycl(:,i,iv)
120 fresli(:,13) = fresli(:,13)+shg(:,i,2)*ycl(:,i,2)
121 & +shg(:,i,1)*ycl(:,i,3)
122 fresli(:,14) = fresli(:,14)+shg(:,i,3)*ycl(:,i,2)
123 & +shg(:,i,1)*ycl(:,i,4)
124 fresli(:,15) = fresli(:,15)+shg(:,i,3)*ycl(:,i,3)
125 & +shg(:,i,2)*ycl(:,i,4)
155 u1 = u1 + shp(i,intp)*ycl(:,i,2)
156 u2 = u2 + shp(i,intp)*ycl(:,i,3)
157 u3 = u3 + shp(i,intp)*ycl(:,i,4)