Lines Matching refs:A0
3 & A0, bcool, tau, argument
18 & A3(npro,nflow,nflow), A0(npro,nflow,nflow),
200 BDiagl(:,j,2,2) = BDiagl(:,j,2,2) + tmp * A0(:,2,2)
201 BDiagl(:,j,3,3) = BDiagl(:,j,3,3) + tmp * A0(:,3,3)
202 BDiagl(:,j,4,4) = BDiagl(:,j,4,4) + tmp * A0(:,4,4)
203 BDiagl(:,j,1,5) = BDiagl(:,j,1,5) + tmp * A0(:,1,5)
204 BDiagl(:,j,2,5) = BDiagl(:,j,2,5) + tmp * A0(:,2,5)
205 BDiagl(:,j,3,5) = BDiagl(:,j,3,5) + tmp * A0(:,3,5)
206 BDiagl(:,j,4,5) = BDiagl(:,j,4,5) + tmp * A0(:,4,5)
207 BDiagl(:,j,1,1) = BDiagl(:,j,1,1) + tmp * A0(:,1,1)
208 BDiagl(:,j,2,1) = BDiagl(:,j,2,1) + tmp * A0(:,2,1)
209 BDiagl(:,j,3,1) = BDiagl(:,j,3,1) + tmp * A0(:,3,1)
210 BDiagl(:,j,4,1) = BDiagl(:,j,4,1) + tmp * A0(:,4,1)
211 BDiagl(:,j,5,1) = BDiagl(:,j,5,1) + tmp * A0(:,5,1)
212 BDiagl(:,j,5,2) = BDiagl(:,j,5,2) + tmp * A0(:,5,2)
213 BDiagl(:,j,5,3) = BDiagl(:,j,5,3) + tmp * A0(:,5,3)
214 BDiagl(:,j,5,4) = BDiagl(:,j,5,4) + tmp * A0(:,5,4)
215 BDiagl(:,j,5,5) = BDiagl(:,j,5,5) + tmp * A0(:,5,5)
229 BDiagl(:,j,2,2) = BDiagl(:,j,2,2) + tmp2 * A0(:,2,2)
230 BDiagl(:,j,3,3) = BDiagl(:,j,3,3) + tmp2 * A0(:,3,3)
231 BDiagl(:,j,4,4) = BDiagl(:,j,4,4) + tmp2 * A0(:,4,4)
232 BDiagl(:,j,1,5) = BDiagl(:,j,1,5) + tmp2 * A0(:,1,5)
233 BDiagl(:,j,2,5) = BDiagl(:,j,2,5) + tmp2 * A0(:,2,5)
234 BDiagl(:,j,3,5) = BDiagl(:,j,3,5) + tmp2 * A0(:,3,5)
235 BDiagl(:,j,4,5) = BDiagl(:,j,4,5) + tmp2 * A0(:,4,5)
236 BDiagl(:,j,1,1) = BDiagl(:,j,1,1) + tmp2 * A0(:,1,1)
237 BDiagl(:,j,2,1) = BDiagl(:,j,2,1) + tmp2 * A0(:,2,1)
238 BDiagl(:,j,3,1) = BDiagl(:,j,3,1) + tmp2 * A0(:,3,1)
239 BDiagl(:,j,4,1) = BDiagl(:,j,4,1) + tmp2 * A0(:,4,1)
240 BDiagl(:,j,5,1) = BDiagl(:,j,5,1) + tmp2 * A0(:,5,1)
241 BDiagl(:,j,5,2) = BDiagl(:,j,5,2) + tmp2 * A0(:,5,2)
242 BDiagl(:,j,5,3) = BDiagl(:,j,5,3) + tmp2 * A0(:,5,3)
243 BDiagl(:,j,5,4) = BDiagl(:,j,5,4) + tmp2 * A0(:,5,4)
244 BDiagl(:,j,5,5) = BDiagl(:,j,5,5) + tmp2 * A0(:,5,5)
268 & Atau(:,i,1)*A0(:,1,j) +
269 & Atau(:,i,2)*A0(:,2,j) +
270 & Atau(:,i,3)*A0(:,3,j) +
271 & Atau(:,i,4)*A0(:,4,j) +
272 & Atau(:,i,5)*A0(:,5,j)
292 & Atau(:,i,1)*A0(:,1,j) +
293 & Atau(:,i,2)*A0(:,2,j) +
294 & Atau(:,i,3)*A0(:,3,j) +
295 & Atau(:,i,4)*A0(:,4,j) +
296 & Atau(:,i,5)*A0(:,5,j)
313 & Atau(:,i,1)*A0(:,1,j) +
314 & Atau(:,i,2)*A0(:,2,j) +
315 & Atau(:,i,3)*A0(:,3,j) +
316 & Atau(:,i,4)*A0(:,4,j) +
317 & Atau(:,i,5)*A0(:,5,j)
365 A0(:,1,1)=
374 A0(:,1,2)=
383 A0(:,1,3)=
392 A0(:,1,4)=
401 A0(:,1,5)=
412 A0(:,2,1)=
421 A0(:,2,2)=
430 A0(:,2,3)=
439 A0(:,2,4)=
448 A0(:,2,5)=
459 A0(:,3,1)=
468 A0(:,3,2)=
477 A0(:,3,3)=
486 A0(:,3,4)=
495 A0(:,3,5)=
506 A0(:,4,1)=
515 A0(:,4,2)=
524 A0(:,4,3)=
533 A0(:,4,4)=
542 A0(:,4,5)=
553 A0(:,5,1)=
562 A0(:,5,2)=
571 A0(:,5,3)=
580 A0(:,5,4)=
589 A0(:,5,5)=
599 A0=zero
603 A0(:,2,2) = A0(:,2,2) + rlm2mu !rlm2mu
604 A0(:,3,3) = A0(:,3,3) + rmu !rmu
605 A0(:,4,4) = A0(:,4,4) + rmu !rmu
606 A0(:,5,2) = A0(:,5,2) + rlm2mu * u1
607 A0(:,5,3) = A0(:,5,3) + rmu * u2
608 A0(:,5,4) = A0(:,5,4) + rmu * u3
609 A0(:,5,5) = A0(:,5,5) + con !con
615 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
626 A0(:,1,1)=
635 A0(:,1,2)=
644 A0(:,1,3)=
653 A0(:,1,4)=
662 A0(:,1,5)=
673 A0(:,2,1)=
682 A0(:,2,2)=
691 A0(:,2,3)=
700 A0(:,2,4)=
709 A0(:,2,5)=
720 A0(:,3,1)=
729 A0(:,3,2)=
738 A0(:,3,3)=
747 A0(:,3,4)=
756 A0(:,3,5)=
767 A0(:,4,1)=
776 A0(:,4,2)=
785 A0(:,4,3)=
794 A0(:,4,4)=
803 A0(:,4,5)=
814 A0(:,5,1)=
823 A0(:,5,2)=
832 A0(:,5,3)=
841 A0(:,5,4)=
850 A0(:,5,5)=
859 A0 = zero
863 A0(:,2,2) = A0(:,2,2) + rmu !rmu
864 A0(:,3,3) = A0(:,3,3) + rlm2mu !rlm2mu
865 A0(:,4,4) = A0(:,4,4) + rmu !rmu
866 A0(:,5,2) = A0(:,5,2) + rmu * u1
867 A0(:,5,3) = A0(:,5,3) + rlm2mu * u2
868 A0(:,5,4) = A0(:,5,4) + rmu * u3
869 A0(:,5,5) = A0(:,5,5) + con !con
876 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
887 A0(:,1,1)=
896 A0(:,1,2)=
905 A0(:,1,3)=
914 A0(:,1,4)=
923 A0(:,1,5)=
934 A0(:,2,1)=
943 A0(:,2,2)=
952 A0(:,2,3)=
961 A0(:,2,4)=
970 A0(:,2,5)=
981 A0(:,3,1)=
990 A0(:,3,2)=
999 A0(:,3,3)=
1008 A0(:,3,4)=
1017 A0(:,3,5)=
1028 A0(:,4,1)=
1037 A0(:,4,2)=
1046 A0(:,4,3)=
1055 A0(:,4,4)=
1064 A0(:,4,5)=
1075 A0(:,5,1)=
1084 A0(:,5,2)=
1093 A0(:,5,3)=
1102 A0(:,5,4)=
1111 A0(:,5,5)=
1120 A0 = zero
1124 A0(:,2,2) = A0(:,2,2) + rmu !rmu
1125 A0(:,3,3) = A0(:,3,3) + rmu !rmu
1126 A0(:,4,4) = A0(:,4,4) + rlm2mu !rlm2mu
1127 A0(:,5,2) = A0(:,5,2) + rmu * u1
1128 A0(:,5,3) = A0(:,5,3) + rmu * u2
1129 A0(:,5,4) = A0(:,5,4) + rlm2mu * u3
1130 A0(:,5,5) = A0(:,5,5) + con !con
1137 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
1148 A0(:,1,1)=
1166 A0(:,1,2)=
1184 A0(:,1,3)=
1202 A0(:,1,4)=
1220 A0(:,1,5)=
1240 A0(:,2,1)=
1258 A0(:,2,2)=
1276 A0(:,2,3)=
1294 A0(:,2,4)=
1312 A0(:,2,5)=
1332 A0(:,3,1)=
1350 A0(:,3,2)=
1368 A0(:,3,3)=
1386 A0(:,3,4)=
1404 A0(:,3,5)=
1424 A0(:,4,1)=
1442 A0(:,4,2)=
1460 A0(:,4,3)=
1478 A0(:,4,4)=
1496 A0(:,4,5)=
1516 A0(:,5,1)=
1534 A0(:,5,2)=
1552 A0(:,5,3)=
1570 A0(:,5,4)=
1588 A0(:,5,5)=
1606 A0 = zero
1610 A0(:,2,3) = A0(:,2,3) + rlm2mu - rmu
1611 A0(:,3,2) = A0(:,3,2) + rlm2mu - rmu
1612 A0(:,5,2) = A0(:,5,2) + (rlm2mu - rmu) * u2
1613 A0(:,5,3) = A0(:,5,3) + (rlm2mu- rmu) * u1
1620 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
1631 A0(:,1,1)=
1649 A0(:,1,2)=
1667 A0(:,1,3)=
1685 A0(:,1,4)=
1703 A0(:,1,5)=
1723 A0(:,2,1)=
1741 A0(:,2,2)=
1759 A0(:,2,3)=
1777 A0(:,2,4)=
1795 A0(:,2,5)=
1815 A0(:,3,1)=
1833 A0(:,3,2)=
1851 A0(:,3,3)=
1869 A0(:,3,4)=
1887 A0(:,3,5)=
1907 A0(:,4,1)=
1925 A0(:,4,2)=
1943 A0(:,4,3)=
1961 A0(:,4,4)=
1979 A0(:,4,5)=
1999 A0(:,5,1)=
2017 A0(:,5,2)=
2035 A0(:,5,3)=
2053 A0(:,5,4)=
2071 A0(:,5,5)=
2089 A0 = zero
2093 A0(:,2,4) = A0(:,2,4) + rlm2mu - rmu
2094 A0(:,4,2) = A0(:,4,2) + rlm2mu - rmu
2095 A0(:,5,2) = A0(:,5,2) + (rlm2mu-rmu) * u3
2096 A0(:,5,4) = A0(:,5,4) + (rlm2mu-rmu) * u1
2103 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)
2114 A0(:,1,1)=
2132 A0(:,1,2)=
2150 A0(:,1,3)=
2168 A0(:,1,4)=
2186 A0(:,1,5)=
2206 A0(:,2,1)=
2224 A0(:,2,2)=
2242 A0(:,2,3)=
2260 A0(:,2,4)=
2278 A0(:,2,5)=
2298 A0(:,3,1)=
2316 A0(:,3,2)=
2334 A0(:,3,3)=
2352 A0(:,3,4)=
2370 A0(:,3,5)=
2390 A0(:,4,1)=
2408 A0(:,4,2)=
2426 A0(:,4,3)=
2444 A0(:,4,4)=
2462 A0(:,4,5)=
2482 A0(:,5,1)=
2500 A0(:,5,2)=
2518 A0(:,5,3)=
2536 A0(:,5,4)=
2554 A0(:,5,5)=
2572 A0 = zero
2576 A0(:,3,4) = A0(:,3,4) + rlm2mu - rmu
2577 A0(:,4,3) = A0(:,4,3) + rlm2mu - rmu
2578 A0(:,5,3) = A0(:,5,3) + (rlm2mu-rmu) * u3
2579 A0(:,5,4) = A0(:,5,4) + (rlm2mu-rmu) * u2
2586 BDiagl(:,j,i,k) = BDiagl(:,j,i,k) + tmp * A0(:,i,k)