Lines Matching refs:g2yi
1 subroutine e3DC (g1yi, g2yi, g3yi, A0, raLS, argument
34 dimension g1yi(npro,nflow), g2yi(npro,nflow),
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)
213 yiA0DCyj(:,2) = A0DC(:,1)*g2yi(:,1)**2
214 & + two*g2yi(:,1)*A0DC(:,2)*g2yi(:,5)
215 & + A0DC(:,3)*g2yi(:,2)**2
216 & + A0DC(:,3)*g2yi(:,3)**2
217 & + A0DC(:,3)*g2yi(:,4)**2
218 & + A0DC(:,4)*g2yi(:,5)**2
227 yiA0DCyj(:,4) = g1yi(:,1)*A0DC(:,1)*g2yi(:,1)
228 & + g1yi(:,1)*A0DC(:,2)*g2yi(:,5)
229 & + g1yi(:,2)*A0DC(:,3)*g2yi(:,2)
230 & + g1yi(:,3)*A0DC(:,3)*g2yi(:,3)
231 & + g1yi(:,4)*A0DC(:,3)*g2yi(:,4)
232 & + g1yi(:,5)*A0DC(:,2)*g2yi(:,1)
233 & + g1yi(:,5)*A0DC(:,4)*g2yi(:,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)