Lines Matching refs:A1
1 subroutine e3LS (A1, A2, A3, argument
60 dimension A1(npro,nflow,nflow), A2(npro,nflow,nflow),
236 & A1(:,1,1) * rLymi(:,1)
237 & + A1(:,1,2) * rLymi(:,2)
240 & + A1(:,1,5) * rLymi(:,5)
243 & A1(:,2,1) * rLymi(:,1)
244 & + A1(:,2,2) * rLymi(:,2)
247 & + A1(:,2,5) * rLymi(:,5)
250 & A1(:,3,1) * rLymi(:,1)
251 & + A1(:,3,2) * rLymi(:,2)
252 & + A1(:,3,3) * rLymi(:,3)
254 & + A1(:,3,5) * rLymi(:,5)
257 & A1(:,4,1) * rLymi(:,1)
258 & + A1(:,4,2) * rLymi(:,2)
260 & + A1(:,4,4) * rLymi(:,4)
261 & + A1(:,4,5) * rLymi(:,5)
264 & A1(:,5,1) * rLymi(:,1)
265 & + A1(:,5,2) * rLymi(:,2)
266 & + A1(:,5,3) * rLymi(:,3)
267 & + A1(:,5,4) * rLymi(:,4)
268 & + A1(:,5,5) * rLymi(:,5)
353 & A1(:,1,1) * rLyi(:,1)
354 & + A1(:,1,2) * rLyi(:,2)
357 & + A1(:,1,5) * rLyi(:,5)
360 & A1(:,2,1) * rLyi(:,1)
361 & + A1(:,2,2) * rLyi(:,2)
364 & + A1(:,2,5) * rLyi(:,5)
367 & A1(:,3,1) * rLyi(:,1)
368 & + A1(:,3,2) * rLyi(:,2)
369 & + A1(:,3,3) * rLyi(:,3)
371 & + A1(:,3,5) * rLyi(:,5)
374 & A1(:,4,1) * rLyi(:,1)
375 & + A1(:,4,2) * rLyi(:,2)
377 & + A1(:,4,4) * rLyi(:,4)
378 & + A1(:,4,5) * rLyi(:,5)
381 & A1(:,5,1) * rLyi(:,1)
382 & + A1(:,5,2) * rLyi(:,2)
383 & + A1(:,5,3) * rLyi(:,3)
384 & + A1(:,5,4) * rLyi(:,4)
385 & + A1(:,5,5) * rLyi(:,5)
473 Atau(:,i,1) = A1(:,i,1)*tau(:,1)
474 Atau(:,i,2) = A1(:,i,2)*tau(:,2)
475 Atau(:,i,3) = A1(:,i,3)*tau(:,2)
476 Atau(:,i,4) = A1(:,i,4)*tau(:,2)
477 Atau(:,i,5) = A1(:,i,5)*tau(:,3)
486 Atau(:,i,j) =Atau(:,i,j) + A1(:,i,k)*PTau(:,k,j)
511 & Atau(:,i,1)*A1(:,1,j)
512 & + Atau(:,i,2)*A1(:,2,j)
513 & + Atau(:,i,3)*A1(:,3,j)
514 & + Atau(:,i,4)*A1(:,4,j)
515 & + Atau(:,i,5)*A1(:,5,j)
591 & Atau(:,i,1)*A1(:,1,j)
592 & + Atau(:,i,2)*A1(:,2,j)
593 & + Atau(:,i,3)*A1(:,3,j)
594 & + Atau(:,i,4)*A1(:,4,j)
595 & + Atau(:,i,5)*A1(:,5,j)
671 & Atau(:,i,1)*A1(:,1,j)
672 & + Atau(:,i,2)*A1(:,2,j)
673 & + Atau(:,i,3)*A1(:,3,j)
674 & + Atau(:,i,4)*A1(:,4,j)
675 & + Atau(:,i,5)*A1(:,5,j)