Lines Matching refs:A0
1 subroutine e3DC (g1yi, g2yi, g3yi, A0, raLS, argument
35 & g3yi(npro,nflow), A0(npro,5,5),
58 A0gyi( :,1) = A0(:,1,1)*g1yi(:,1)
59 & + A0(:,1,2)*g1yi(:,2)
60 & + A0(:,1,3)*g1yi(:,3)
61 & + A0(:,1,4)*g1yi(:,4)
62 & + A0(:,1,5)*g1yi(:,5)
63 A0gyi( :,2) = A0(:,2,1)*g1yi(:,1)
64 & + A0(:,2,2)*g1yi(:,2)
65 & + A0(:,2,3)*g1yi(:,3)
66 & + A0(:,2,4)*g1yi(:,4)
67 & + A0(:,2,5)*g1yi(:,5)
68 A0gyi( :,3) = A0(:,3,1)*g1yi(:,1)
69 & + A0(:,3,2)*g1yi(:,2)
70 & + A0(:,3,3)*g1yi(:,3)
71 & + A0(:,3,4)*g1yi(:,4)
72 & + A0(:,3,5)*g1yi(:,5)
73 A0gyi( :,4) = A0(:,4,1)*g1yi(:,1)
74 & + A0(:,4,2)*g1yi(:,2)
75 & + A0(:,4,3)*g1yi(:,3)
76 & + A0(:,4,4)*g1yi(:,4)
77 & + A0(:,4,5)*g1yi(:,5)
78 A0gyi( :,5) = A0(:,5,1)*g1yi(:,1)
79 & + A0(:,5,2)*g1yi(:,2)
80 & + A0(:,5,3)*g1yi(:,3)
81 & + A0(:,5,4)*g1yi(:,4)
82 & + A0(:,5,5)*g1yi(:,5)
86 A0gyi( :,6) = A0(:,1,1)*g2yi(:,1)
87 & + A0(:,1,2)*g2yi(:,2)
88 & + A0(:,1,3)*g2yi(:,3)
89 & + A0(:,1,4)*g2yi(:,4)
90 & + A0(:,1,5)*g2yi(:,5)
91 A0gyi( :,7) = A0(:,2,1)*g2yi(:,1)
92 & + A0(:,2,2)*g2yi(:,2)
93 & + A0(:,2,3)*g2yi(:,3)
94 & + A0(:,2,4)*g2yi(:,4)
95 & + A0(:,2,5)*g2yi(:,5)
96 A0gyi( :,8) = A0(:,3,1)*g2yi(:,1)
97 & + A0(:,3,2)*g2yi(:,2)
98 & + A0(:,3,3)*g2yi(:,3)
99 & + A0(:,3,4)*g2yi(:,4)
100 & + A0(:,3,5)*g2yi(:,5)
101 A0gyi( :,9) = A0(:,4,1)*g2yi(:,1)
102 & + A0(:,4,2)*g2yi(:,2)
103 & + A0(:,4,3)*g2yi(:,3)
104 & + A0(:,4,4)*g2yi(:,4)
105 & + A0(:,4,5)*g2yi(:,5)
106 A0gyi(:,10) = A0(:,5,1)*g2yi(:,1)
107 & + A0(:,5,2)*g2yi(:,2)
108 & + A0(:,5,3)*g2yi(:,3)
109 & + A0(:,5,4)*g2yi(:,4)
110 & + A0(:,5,5)*g2yi(:,5)
114 A0gyi(:,11) = A0(:,1,1)*g3yi(:,1)
115 & + A0(:,1,2)*g3yi(:,2)
116 & + A0(:,1,3)*g3yi(:,3)
117 & + A0(:,1,4)*g3yi(:,4)
118 & + A0(:,1,5)*g3yi(:,5)
119 A0gyi(:,12) = A0(:,2,1)*g3yi(:,1)
120 & + A0(:,2,2)*g3yi(:,2)
121 & + A0(:,2,3)*g3yi(:,3)
122 & + A0(:,2,4)*g3yi(:,4)
123 & + A0(:,2,5)*g3yi(:,5)
124 A0gyi(:,13) = A0(:,3,1)*g3yi(:,1)
125 & + A0(:,3,2)*g3yi(:,2)
126 & + A0(:,3,3)*g3yi(:,3)
127 & + A0(:,3,4)*g3yi(:,4)
128 & + A0(:,3,5)*g3yi(:,5)
129 A0gyi(:,14) = A0(:,4,1)*g3yi(:,1)
130 & + A0(:,4,2)*g3yi(:,2)
131 & + A0(:,4,3)*g3yi(:,3)
132 & + A0(:,4,4)*g3yi(:,4)
133 & + A0(:,4,5)*g3yi(:,5)
134 A0gyi(:,15) = A0(:,5,1)*g3yi(:,1)
135 & + A0(:,5,2)*g3yi(:,2)
136 & + A0(:,5,3)*g3yi(:,3)
137 & + A0(:,5,4)*g3yi(:,4)
138 & + A0(:,5,5)*g3yi(:,5)
414 dtmp(:)=A0(:,i,j)*DC(:,intp)