Lines Matching refs:A0
3 & A0, bcool, PTau, argument
18 & A3(npro,nflow,nflow), A0(npro,nflow,nflow),
201 BDiagl(:,j,2,2) = BDiagl(:,j,2,2) + tmp * A0(:,2,2)
202 BDiagl(:,j,3,3) = BDiagl(:,j,3,3) + tmp * A0(:,3,3)
203 BDiagl(:,j,4,4) = BDiagl(:,j,4,4) + tmp * A0(:,4,4)
204 BDiagl(:,j,1,5) = BDiagl(:,j,1,5) + tmp * A0(:,1,5)
205 BDiagl(:,j,2,5) = BDiagl(:,j,2,5) + tmp * A0(:,2,5)
206 BDiagl(:,j,3,5) = BDiagl(:,j,3,5) + tmp * A0(:,3,5)
207 BDiagl(:,j,4,5) = BDiagl(:,j,4,5) + tmp * A0(:,4,5)
208 BDiagl(:,j,1,1) = BDiagl(:,j,1,1) + tmp * A0(:,1,1)
209 BDiagl(:,j,2,1) = BDiagl(:,j,2,1) + tmp * A0(:,2,1)
210 BDiagl(:,j,3,1) = BDiagl(:,j,3,1) + tmp * A0(:,3,1)
211 BDiagl(:,j,4,1) = BDiagl(:,j,4,1) + tmp * A0(:,4,1)
212 BDiagl(:,j,5,1) = BDiagl(:,j,5,1) + tmp * A0(:,5,1)
213 BDiagl(:,j,5,2) = BDiagl(:,j,5,2) + tmp * A0(:,5,2)
214 BDiagl(:,j,5,3) = BDiagl(:,j,5,3) + tmp * A0(:,5,3)
215 BDiagl(:,j,5,4) = BDiagl(:,j,5,4) + tmp * A0(:,5,4)
216 BDiagl(:,j,5,5) = BDiagl(:,j,5,5) + tmp * A0(:,5,5)
230 BDiagl(:,j,2,2) = BDiagl(:,j,2,2) + tmp2 * A0(:,2,2)
231 BDiagl(:,j,3,3) = BDiagl(:,j,3,3) + tmp2 * A0(:,3,3)
232 BDiagl(:,j,4,4) = BDiagl(:,j,4,4) + tmp2 * A0(:,4,4)
233 BDiagl(:,j,1,5) = BDiagl(:,j,1,5) + tmp2 * A0(:,1,5)
234 BDiagl(:,j,2,5) = BDiagl(:,j,2,5) + tmp2 * A0(:,2,5)
235 BDiagl(:,j,3,5) = BDiagl(:,j,3,5) + tmp2 * A0(:,3,5)
236 BDiagl(:,j,4,5) = BDiagl(:,j,4,5) + tmp2 * A0(:,4,5)
237 BDiagl(:,j,1,1) = BDiagl(:,j,1,1) + tmp2 * A0(:,1,1)
238 BDiagl(:,j,2,1) = BDiagl(:,j,2,1) + tmp2 * A0(:,2,1)
239 BDiagl(:,j,3,1) = BDiagl(:,j,3,1) + tmp2 * A0(:,3,1)
240 BDiagl(:,j,4,1) = BDiagl(:,j,4,1) + tmp2 * A0(:,4,1)
241 BDiagl(:,j,5,1) = BDiagl(:,j,5,1) + tmp2 * A0(:,5,1)
242 BDiagl(:,j,5,2) = BDiagl(:,j,5,2) + tmp2 * A0(:,5,2)
243 BDiagl(:,j,5,3) = BDiagl(:,j,5,3) + tmp2 * A0(:,5,3)
244 BDiagl(:,j,5,4) = BDiagl(:,j,5,4) + tmp2 * A0(:,5,4)
245 BDiagl(:,j,5,5) = BDiagl(:,j,5,5) + tmp2 * A0(:,5,5)
270 & Atau1(:,i,1)*A0(:,1,j) +
271 & Atau1(:,i,2)*A0(:,2,j) +
272 & Atau1(:,i,3)*A0(:,3,j) +
273 & Atau1(:,i,4)*A0(:,4,j) +
274 & Atau1(:,i,5)*A0(:,5,j)
296 & Atau2(:,i,1)*A0(:,1,j) +
297 & Atau2(:,i,2)*A0(:,2,j) +
298 & Atau2(:,i,3)*A0(:,3,j) +
299 & Atau2(:,i,4)*A0(:,4,j) +
300 & Atau2(:,i,5)*A0(:,5,j)
323 & Atau3(:,i,1)*A0(:,1,j) +
324 & Atau3(:,i,2)*A0(:,2,j) +
325 & Atau3(:,i,3)*A0(:,3,j) +
326 & Atau3(:,i,4)*A0(:,4,j) +
327 & Atau3(:,i,5)*A0(:,5,j)
375 A0(:,1,1) =
382 A0(:,1,2) =
389 A0(:,1,3) =
396 A0(:,1,4)=
403 A0(:,1,5)=
412 A0(:,2,1)=
419 A0(:,2,2)=
426 A0(:,2,3)=
433 A0(:,2,4)=
440 A0(:,2,5)=
449 A0(:,3,1)=
456 A0(:,3,2)=
463 A0(:,3,3)=
470 A0(:,3,4)=
477 A0(:,3,5)=
487 A0(:,4,1)=
494 A0(:,4,2)=
501 A0(:,4,3)=
508 A0(:,4,4)=
515 A0(:,4,5)=
525 A0(:,5,1)=
532 A0(:,5,2)=
539 A0(:,5,3)=
546 A0(:,5,4)=
553 A0(:,5,5)=
562 A0=zero
566 A0(:,2,2) = A0(:,2,2) + rlm2mu !rlm2mu
567 A0(:,3,3) = A0(:,3,3) + rmu !rmu
568 A0(:,4,4) = A0(:,4,4) + rmu !rmu
569 A0(:,5,2) = A0(:,5,2) + rlm2mu * u1
570 A0(:,5,3) = A0(:,5,3) + rmu * u2
571 A0(:,5,4) = A0(:,5,4) + rmu * u3
572 A0(:,5,5) = A0(:,5,5) + con !con
578 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
590 A0(:,1,1) =
597 A0(:,1,2) =
604 A0(:,1,3) =
611 A0(:,1,4)=
618 A0(:,1,5)=
627 A0(:,2,1)=
634 A0(:,2,2)=
641 A0(:,2,3)=
648 A0(:,2,4)=
655 A0(:,2,5)=
664 A0(:,3,1)=
671 A0(:,3,2)=
678 A0(:,3,3)=
685 A0(:,3,4)=
692 A0(:,3,5)=
702 A0(:,4,1)=
709 A0(:,4,2)=
716 A0(:,4,3)=
723 A0(:,4,4)=
730 A0(:,4,5)=
740 A0(:,5,1)=
747 A0(:,5,2)=
754 A0(:,5,3)=
761 A0(:,5,4)=
768 A0(:,5,5)=
778 A0 = zero
782 A0(:,2,2) = A0(:,2,2) + rmu !rmu
783 A0(:,3,3) = A0(:,3,3) + rlm2mu !rlm2mu
784 A0(:,4,4) = A0(:,4,4) + rmu !rmu
785 A0(:,5,2) = A0(:,5,2) + rmu * u1
786 A0(:,5,3) = A0(:,5,3) + rlm2mu * u2
787 A0(:,5,4) = A0(:,5,4) + rmu * u3
788 A0(:,5,5) = A0(:,5,5) + con !con
795 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
807 A0(:,1,1) =
814 A0(:,1,2) =
821 A0(:,1,3) =
828 A0(:,1,4)=
835 A0(:,1,5)=
844 A0(:,2,1)=
851 A0(:,2,2)=
858 A0(:,2,3)=
865 A0(:,2,4)=
872 A0(:,2,5)=
881 A0(:,3,1)=
888 A0(:,3,2)=
895 A0(:,3,3)=
902 A0(:,3,4)=
909 A0(:,3,5)=
919 A0(:,4,1)=
926 A0(:,4,2)=
933 A0(:,4,3)=
940 A0(:,4,4)=
947 A0(:,4,5)=
957 A0(:,5,1)=
964 A0(:,5,2)=
971 A0(:,5,3)=
978 A0(:,5,4)=
985 A0(:,5,5)=
995 A0 = zero
999 A0(:,2,2) = A0(:,2,2) + rmu !rmu
1000 A0(:,3,3) = A0(:,3,3) + rmu !rmu
1001 A0(:,4,4) = A0(:,4,4) + rlm2mu !rlm2mu
1002 A0(:,5,2) = A0(:,5,2) + rmu * u1
1003 A0(:,5,3) = A0(:,5,3) + rmu * u2
1004 A0(:,5,4) = A0(:,5,4) + rlm2mu * u3
1005 A0(:,5,5) = A0(:,5,5) + con !con
1012 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
1020 A0(:,1,1) =
1032 A0(:,1,2) =
1045 A0(:,1,3) =
1057 A0(:,1,4)=
1069 A0(:,1,5)=
1083 A0(:,2,1)=
1095 A0(:,2,2)=
1107 A0(:,2,3)=
1119 A0(:,2,4)=
1132 A0(:,2,5)=
1147 A0(:,3,1)=
1160 A0(:,3,2)=
1172 A0(:,3,3)=
1184 A0(:,3,4)=
1196 A0(:,3,5)=
1212 A0(:,4,1)=
1224 A0(:,4,2)=
1236 A0(:,4,3)=
1248 A0(:,4,4)=
1260 A0(:,4,5)=
1275 A0(:,5,1)=
1287 A0(:,5,2)=
1299 A0(:,5,3)=
1311 A0(:,5,4)=
1324 A0(:,5,5)=
1338 A0 = zero
1342 A0(:,2,3) = A0(:,2,3) + rlm2mu - rmu
1343 A0(:,3,2) = A0(:,3,2) + rlm2mu - rmu
1344 A0(:,5,2) = A0(:,5,2) + (rlm2mu - rmu) * u2
1345 A0(:,5,3) = A0(:,5,3) + (rlm2mu- rmu) * u1
1352 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
1363 A0(:,1,1)=
1375 A0(:,1,2) =
1388 A0(:,1,3) =
1400 A0(:,1,4)=
1412 A0(:,1,5)=
1426 A0(:,2,1)=
1438 A0(:,2,2)=
1450 A0(:,2,3)=
1462 A0(:,2,4)=
1475 A0(:,2,5)=
1490 A0(:,3,1)=
1503 A0(:,3,2)=
1515 A0(:,3,3)=
1527 A0(:,3,4)=
1539 A0(:,3,5)=
1555 A0(:,4,1)=
1567 A0(:,4,2)=
1579 A0(:,4,3)=
1591 A0(:,4,4)=
1603 A0(:,4,5)=
1618 A0(:,5,1)=
1630 A0(:,5,2)=
1642 A0(:,5,3)=
1654 A0(:,5,4)=
1667 A0(:,5,5)=
1681 A0 = zero
1685 A0(:,2,4) = A0(:,2,4) + rlm2mu - rmu
1686 A0(:,4,2) = A0(:,4,2) + rlm2mu - rmu
1687 A0(:,5,2) = A0(:,5,2) + (rlm2mu-rmu) * u3
1688 A0(:,5,4) = A0(:,5,4) + (rlm2mu-rmu) * u1
1695 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
1706 A0(:,1,1)=
1718 A0(:,1,2) =
1731 A0(:,1,3) =
1743 A0(:,1,4)=
1755 A0(:,1,5)=
1769 A0(:,2,1)=
1781 A0(:,2,2)=
1793 A0(:,2,3)=
1805 A0(:,2,4)=
1818 A0(:,2,5)=
1833 A0(:,3,1)=
1846 A0(:,3,2)=
1858 A0(:,3,3)=
1870 A0(:,3,4)=
1882 A0(:,3,5)=
1898 A0(:,4,1)=
1910 A0(:,4,2)=
1922 A0(:,4,3)=
1934 A0(:,4,4)=
1946 A0(:,4,5)=
1961 A0(:,5,1)=
1973 A0(:,5,2)=
1985 A0(:,5,3)=
1997 A0(:,5,4)=
2010 A0(:,5,5)=
2024 A0 = zero
2028 A0(:,3,4) = A0(:,3,4) + rlm2mu - rmu
2029 A0(:,4,3) = A0(:,4,3) + rlm2mu - rmu
2030 A0(:,5,3) = A0(:,5,3) + (rlm2mu-rmu) * u3
2031 A0(:,5,4) = A0(:,5,4) + (rlm2mu-rmu) * u2
2038 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)