Lines Matching refs:g1yi
1 subroutine e3DC (g1yi, g2yi, g3yi, A0, raLS, argument
34 dimension g1yi(npro,nflow), g2yi(npro,nflow),
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)
206 yiA0DCyj(:,1) = A0DC(:,1)*g1yi(:,1)**2
207 & + two*g1yi(:,1)*A0DC(:,2)*g1yi(:,5)
208 & + A0DC(:,3)*g1yi(:,2)**2
209 & + A0DC(:,3)*g1yi(:,3)**2
210 & + A0DC(:,3)*g1yi(:,4)**2
211 & + A0DC(:,4)*g1yi(:,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)
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)