Lines Matching refs:A0DC
3 & rmi, stiff, A0DC) argument
44 & yiA0DCyj(npro,6), A0DC(npro,4)
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
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
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
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)
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)