Lines Matching refs:A3
1 subroutine e3LS (A1, A2, A3, argument
61 & A3(npro,nflow,nflow), cv(npro),
312 & A3(:,1,1) * rLymi(:,1)
315 & + A3(:,1,4) * rLymi(:,4)
316 & + A3(:,1,5) * rLymi(:,5)
319 & A3(:,2,1) * rLymi(:,1)
320 & + A3(:,2,2) * rLymi(:,2)
322 & + A3(:,2,4) * rLymi(:,4)
323 & + A3(:,2,5) * rLymi(:,5)
326 & A3(:,3,1) * rLymi(:,1)
328 & + A3(:,3,3) * rLymi(:,3)
329 & + A3(:,3,4) * rLymi(:,4)
330 & + A3(:,3,5) * rLymi(:,5)
333 & A3(:,4,1) * rLymi(:,1)
336 & + A3(:,4,4) * rLymi(:,4)
337 & + A3(:,4,5) * rLymi(:,5)
340 & A3(:,5,1) * rLymi(:,1)
341 & + A3(:,5,2) * rLymi(:,2)
342 & + A3(:,5,3) * rLymi(:,3)
343 & + A3(:,5,4) * rLymi(:,4)
344 & + A3(:,5,5) * rLymi(:,5)
424 & A3(:,1,1) * rLyi(:,1)
427 & + A3(:,1,4) * rLyi(:,4)
428 & + A3(:,1,5) * rLyi(:,5)
431 & A3(:,2,1) * rLyi(:,1)
432 & + A3(:,2,2) * rLyi(:,2)
434 & + A3(:,2,4) * rLyi(:,4)
435 & + A3(:,2,5) * rLyi(:,5)
438 & A3(:,3,1) * rLyi(:,1)
440 & + A3(:,3,3) * rLyi(:,3)
441 & + A3(:,3,4) * rLyi(:,4)
442 & + A3(:,3,5) * rLyi(:,5)
445 & A3(:,4,1) * rLyi(:,1)
448 & + A3(:,4,4) * rLyi(:,4)
449 & + A3(:,4,5) * rLyi(:,5)
452 & A3(:,5,1) * rLyi(:,1)
453 & + A3(:,5,2) * rLyi(:,2)
454 & + A3(:,5,3) * rLyi(:,3)
455 & + A3(:,5,4) * rLyi(:,4)
456 & + A3(:,5,5) * rLyi(:,5)
539 & Atau(:,i,1)*A3(:,1,j)
540 & + Atau(:,i,2)*A3(:,2,j)
541 & + Atau(:,i,3)*A3(:,3,j)
542 & + Atau(:,i,4)*A3(:,4,j)
543 & + Atau(:,i,5)*A3(:,5,j)
619 & Atau(:,i,1)*A3(:,1,j)
620 & + Atau(:,i,2)*A3(:,2,j)
621 & + Atau(:,i,3)*A3(:,3,j)
622 & + Atau(:,i,4)*A3(:,4,j)
623 & + Atau(:,i,5)*A3(:,5,j)
634 Atau(:,i,1) = A3(:,i,1)*tau(:,1)
635 Atau(:,i,2) = A3(:,i,2)*tau(:,2)
636 Atau(:,i,3) = A3(:,i,3)*tau(:,2)
637 Atau(:,i,4) = A3(:,i,4)*tau(:,2)
638 Atau(:,i,5) = A3(:,i,5)*tau(:,3)
646 Atau(:,i,j) = Atau(:,i,j) + A3(:,i,k)*PTau(:,k,j)
699 & Atau(:,i,1)*A3(:,1,j)
700 & + Atau(:,i,2)*A3(:,2,j)
701 & + Atau(:,i,3)*A3(:,3,j)
702 & + Atau(:,i,4)*A3(:,4,j)
703 & + Atau(:,i,5)*A3(:,5,j)