Lines Matching refs:A2
1 subroutine e3LS (A1, A2, A3, argument
60 dimension A1(npro,nflow,nflow), A2(npro,nflow,nflow),
274 & A2(:,1,1) * rLymi(:,1)
276 & + A2(:,1,3) * rLymi(:,3)
278 & + A2(:,1,5) * rLymi(:,5)
281 & A2(:,2,1) * rLymi(:,1)
282 & + A2(:,2,2) * rLymi(:,2)
283 & + A2(:,2,3) * rLymi(:,3)
285 & + A2(:,2,5) * rLymi(:,5)
288 & A2(:,3,1) * rLymi(:,1)
290 & + A2(:,3,3) * rLymi(:,3)
292 & + A2(:,3,5) * rLymi(:,5)
295 & A2(:,4,1) * rLymi(:,1)
297 & + A2(:,4,3) * rLymi(:,3)
298 & + A2(:,4,4) * rLymi(:,4)
299 & + A2(:,4,5) * rLymi(:,5)
302 & A2(:,5,1) * rLymi(:,1)
303 & + A2(:,5,2) * rLymi(:,2)
304 & + A2(:,5,3) * rLymi(:,3)
305 & + A2(:,5,4) * rLymi(:,4)
306 & + A2(:,5,5) * rLymi(:,5)
389 & A2(:,1,1) * rLyi(:,1)
391 & + A2(:,1,3) * rLyi(:,3)
393 & + A2(:,1,5) * rLyi(:,5)
396 & A2(:,2,1) * rLyi(:,1)
397 & + A2(:,2,2) * rLyi(:,2)
398 & + A2(:,2,3) * rLyi(:,3)
400 & + A2(:,2,5) * rLyi(:,5)
403 & A2(:,3,1) * rLyi(:,1)
405 & + A2(:,3,3) * rLyi(:,3)
407 & + A2(:,3,5) * rLyi(:,5)
410 & A2(:,4,1) * rLyi(:,1)
412 & + A2(:,4,3) * rLyi(:,3)
413 & + A2(:,4,4) * rLyi(:,4)
414 & + A2(:,4,5) * rLyi(:,5)
417 & A2(:,5,1) * rLyi(:,1)
418 & + A2(:,5,2) * rLyi(:,2)
419 & + A2(:,5,3) * rLyi(:,3)
420 & + A2(:,5,4) * rLyi(:,4)
421 & + A2(:,5,5) * rLyi(:,5)
525 & Atau(:,i,1)*A2(:,1,j)
526 & + Atau(:,i,2)*A2(:,2,j)
527 & + Atau(:,i,3)*A2(:,3,j)
528 & + Atau(:,i,4)*A2(:,4,j)
529 & + Atau(:,i,5)*A2(:,5,j)
554 Atau(:,i,1) = A2(:,i,1)*tau(:,1)
555 Atau(:,i,2) = A2(:,i,2)*tau(:,2)
556 Atau(:,i,3) = A2(:,i,3)*tau(:,2)
557 Atau(:,i,4) = A2(:,i,4)*tau(:,2)
558 Atau(:,i,5) = A2(:,i,5)*tau(:,3)
566 Atau(:,i,j) = Atau(:,i,j) + A2(:,i,k)*PTau(:,k,j)
605 & Atau(:,i,1)*A2(:,1,j)
606 & + Atau(:,i,2)*A2(:,2,j)
607 & + Atau(:,i,3)*A2(:,3,j)
608 & + Atau(:,i,4)*A2(:,4,j)
609 & + Atau(:,i,5)*A2(:,5,j)
685 & Atau(:,i,1)*A2(:,1,j)
686 & + Atau(:,i,2)*A2(:,2,j)
687 & + Atau(:,i,3)*A2(:,3,j)
688 & + Atau(:,i,4)*A2(:,4,j)
689 & + Atau(:,i,5)*A2(:,5,j)