Lines Matching refs:yl
7 dimension ien(npro,nshl), yl(npro,nshl,5),
15 call localy (y, yl, ien, 5, 'gather ')
20 yl (:,:,1) = yl(:,:,1) / (Rgas * yl(:,:,5))
22 yl (:,:,1) = one
78 fresli(:,22) = fresli(:,22)+shp(i,intp)*yl(:,i,1) ! density at qpt
103 fresli(:,j) = fresli(:,j)+shg(:,i,ig)*yl(:,i,iv)
111 fresli(:,13) = fresli(:,13)+shg(:,i,2)*yl(:,i,2)
112 & +shg(:,i,1)*yl(:,i,3)
113 fresli(:,14) = fresli(:,14)+shg(:,i,3)*yl(:,i,2)
114 & +shg(:,i,1)*yl(:,i,4)
115 fresli(:,15) = fresli(:,15)+shg(:,i,3)*yl(:,i,3)
116 & +shg(:,i,2)*yl(:,i,4)