Lines Matching refs:yl
1 subroutine e3ivar (yl, ycl, acl, argument
63 dimension yl(npro,nshl,nflow), ycl(npro,nshl,ndof),
97 dui(:,1) = dui(:,1) + shape(:,n) * yl(:,n,1) ! p
98 dui(:,2) = dui(:,2) + shape(:,n) * yl(:,n,2) ! u1
99 dui(:,3) = dui(:,3) + shape(:,n) * yl(:,n,3) ! u2
100 dui(:,4) = dui(:,4) + shape(:,n) * yl(:,n,4) ! u3
101 dui(:,5) = dui(:,5) + shape(:,n) * yl(:,n,5) ! T
260 g1yi(:,1) = g1yi(:,1) + shg(:,1,1) * yl(:,1,1)
261 & + shg(:,2,1) * yl(:,2,1)
262 & + shg(:,3,1) * yl(:,3,1)
263 & + shg(:,4,1) * yl(:,4,1)
265 g1yi(:,2) = g1yi(:,2) + shg(:,1,1) * yl(:,1,2)
266 & + shg(:,2,1) * yl(:,2,2)
267 & + shg(:,3,1) * yl(:,3,2)
268 & + shg(:,4,1) * yl(:,4,2)
270 g1yi(:,3) = g1yi(:,3) + shg(:,1,1) * yl(:,1,3)
271 & + shg(:,2,1) * yl(:,2,3)
272 & + shg(:,3,1) * yl(:,3,3)
273 & + shg(:,4,1) * yl(:,4,3)
275 g1yi(:,4) = g1yi(:,4) + shg(:,1,1) * yl(:,1,4)
276 & + shg(:,2,1) * yl(:,2,4)
277 & + shg(:,3,1) * yl(:,3,4)
278 & + shg(:,4,1) * yl(:,4,4)
280 g1yi(:,5) = g1yi(:,5) + shg(:,1,1) * yl(:,1,5)
281 & + shg(:,2,1) * yl(:,2,5)
282 & + shg(:,3,1) * yl(:,3,5)
283 & + shg(:,4,1) * yl(:,4,5)
285 g2yi(:,1) = g2yi(:,1) + shg(:,1,2) * yl(:,1,1)
286 & + shg(:,2,2) * yl(:,2,1)
287 & + shg(:,3,2) * yl(:,3,1)
288 & + shg(:,4,2) * yl(:,4,1)
290 g2yi(:,2) = g2yi(:,2) + shg(:,1,2) * yl(:,1,2)
291 & + shg(:,2,2) * yl(:,2,2)
292 & + shg(:,3,2) * yl(:,3,2)
293 & + shg(:,4,2) * yl(:,4,2)
295 g2yi(:,3) = g2yi(:,3) + shg(:,1,2) * yl(:,1,3)
296 & + shg(:,2,2) * yl(:,2,3)
297 & + shg(:,3,2) * yl(:,3,3)
298 & + shg(:,4,2) * yl(:,4,3)
300 g2yi(:,4) = g2yi(:,4) + shg(:,1,2) * yl(:,1,4)
301 & + shg(:,2,2) * yl(:,2,4)
302 & + shg(:,3,2) * yl(:,3,4)
303 & + shg(:,4,2) * yl(:,4,4)
305 g2yi(:,5) = g2yi(:,5) + shg(:,1,2) * yl(:,1,5)
306 & + shg(:,2,2) * yl(:,2,5)
307 & + shg(:,3,2) * yl(:,3,5)
308 & + shg(:,4,2) * yl(:,4,5)
310 g3yi(:,1) = g3yi(:,1) + shg(:,1,3) * yl(:,1,1)
311 & + shg(:,2,3) * yl(:,2,1)
312 & + shg(:,3,3) * yl(:,3,1)
313 & + shg(:,4,3) * yl(:,4,1)
315 g3yi(:,2) = g3yi(:,2) + shg(:,1,3) * yl(:,1,2)
316 & + shg(:,2,3) * yl(:,2,2)
317 & + shg(:,3,3) * yl(:,3,2)
318 & + shg(:,4,3) * yl(:,4,2)
320 g3yi(:,3) = g3yi(:,3) + shg(:,1,3) * yl(:,1,3)
321 & + shg(:,2,3) * yl(:,2,3)
322 & + shg(:,3,3) * yl(:,3,3)
323 & + shg(:,4,3) * yl(:,4,3)
325 g3yi(:,4) = g3yi(:,4) + shg(:,1,3) * yl(:,1,4)
326 & + shg(:,2,3) * yl(:,2,4)
327 & + shg(:,3,3) * yl(:,3,4)
328 & + shg(:,4,3) * yl(:,4,4)
330 g3yi(:,5) = g3yi(:,5) + shg(:,1,3) * yl(:,1,5)
331 & + shg(:,2,3) * yl(:,2,5)
332 & + shg(:,3,3) * yl(:,3,5)
333 & + shg(:,4,3) * yl(:,4,5)
337 g1yi(:,1) = g1yi(:,1) + shg(:,n,1) * yl(:,n,1)
338 g1yi(:,2) = g1yi(:,2) + shg(:,n,1) * yl(:,n,2)
339 g1yi(:,3) = g1yi(:,3) + shg(:,n,1) * yl(:,n,3)
340 g1yi(:,4) = g1yi(:,4) + shg(:,n,1) * yl(:,n,4)
341 g1yi(:,5) = g1yi(:,5) + shg(:,n,1) * yl(:,n,5)
343 g2yi(:,1) = g2yi(:,1) + shg(:,n,2) * yl(:,n,1)
344 g2yi(:,2) = g2yi(:,2) + shg(:,n,2) * yl(:,n,2)
345 g2yi(:,3) = g2yi(:,3) + shg(:,n,2) * yl(:,n,3)
346 g2yi(:,4) = g2yi(:,4) + shg(:,n,2) * yl(:,n,4)
347 g2yi(:,5) = g2yi(:,5) + shg(:,n,2) * yl(:,n,5)
349 g3yi(:,1) = g3yi(:,1) + shg(:,n,3) * yl(:,n,1)
350 g3yi(:,2) = g3yi(:,2) + shg(:,n,3) * yl(:,n,2)
351 g3yi(:,3) = g3yi(:,3) + shg(:,n,3) * yl(:,n,3)
352 g3yi(:,4) = g3yi(:,4) + shg(:,n,3) * yl(:,n,4)
353 g3yi(:,5) = g3yi(:,5) + shg(:,n,3) * yl(:,n,5)