Lines Matching refs:g3yi
1 subroutine e3DC (g1yi, g2yi, g3yi, A0, raLS, argument
35 & g3yi(npro,nflow), A0(npro,5,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)
220 yiA0DCyj(:,3) = A0DC(:,1)*g3yi(:,1)**2
221 & + two*g3yi(:,1)*A0DC(:,2)*g3yi(:,5)
222 & + A0DC(:,3)*g3yi(:,2)**2
223 & + A0DC(:,3)*g3yi(:,3)**2
224 & + A0DC(:,3)*g3yi(:,4)**2
225 & + A0DC(:,4)*g3yi(:,5)**2
235 yiA0DCyj(:,5) = g1yi(:,1)*A0DC(:,1)*g3yi(:,1)
236 & + g1yi(:,1)*A0DC(:,2)*g3yi(:,5)
237 & + g1yi(:,2)*A0DC(:,3)*g3yi(:,2)
238 & + g1yi(:,3)*A0DC(:,3)*g3yi(:,3)
239 & + g1yi(:,4)*A0DC(:,3)*g3yi(:,4)
240 & + g1yi(:,5)*A0DC(:,2)*g3yi(:,1)
241 & + g1yi(:,5)*A0DC(:,4)*g3yi(:,5)
243 yiA0DCyj(:,6) = g2yi(:,1)*A0DC(:,1)*g3yi(:,1)
244 & + g2yi(:,1)*A0DC(:,2)*g3yi(:,5)
245 & + g2yi(:,2)*A0DC(:,3)*g3yi(:,2)
246 & + g2yi(:,3)*A0DC(:,3)*g3yi(:,3)
247 & + g2yi(:,4)*A0DC(:,3)*g3yi(:,4)
248 & + g2yi(:,5)*A0DC(:,2)*g3yi(:,1)
249 & + g2yi(:,5)*A0DC(:,4)*g3yi(:,5)