Lines Matching refs:k
76 do k=1,nshl
78 & + yintl(elcnfin(i,j),k,:)*shapef(k)
168 do k=1,nshl
171 if ((x(ien2D(i,k),2).ge.xyn(j)) .and.
172 & (x(ien2D(i,k),2).le.(xyn(j+1)+0.000001))) then
173 tmp = (x(ien2D(i,k),2) - xyn(j)) /
176 velbarl(i,k,l) =
182 if ((xcyl(ien2D(i,k),1).ge.xcyl(nrint(j+1),1)) .and.
183 & (xcyl(ien2D(i,k),1).le.xcyl(nrint(j),1))) then
184 tmp = (xcyl(ien2D(i,k),1) - xcyl(nrint(j+1),1)) /
187 velbarl(i,k,l) =
279 do k=1,nshl
281 ubar2(i,:)=ubar2(i,:) + ubarintl(element,k,:)*shapef(k)