Lines Matching refs:A0
1 subroutine e3juel (yl, acl, sls, A0, argument
26 & WdetJ(npro), A0(npro,nflow,nflow),
117 & + A0(:,1,1)*yl(:,i,1)
121 & + A0(:,1,5)*yl(:,i,5)
124 & + A0(:,2,1)*yl(:,i,1)
125 & + A0(:,2,2)*yl(:,i,2)
128 & + A0(:,2,5)*yl(:,i,5)
131 & + A0(:,3,1)*yl(:,i,1)
133 & + A0(:,3,3)*yl(:,i,3)
135 & + A0(:,3,5)*yl(:,i,5)
138 & + A0(:,4,1)*yl(:,i,1)
141 & + A0(:,4,4)*yl(:,i,4)
142 & + A0(:,4,5)*yl(:,i,5)
145 & + A0(:,5,1)*yl(:,i,1)
146 & + A0(:,5,2)*yl(:,i,2)
147 & + A0(:,5,3)*yl(:,i,3)
148 & + A0(:,5,4)*yl(:,i,4)
149 & + A0(:,5,5)*yl(:,i,5)