Lines Matching refs:a2
2 & u1, u2, u3, a1, a2,
44 & a1(npro), a2(npro),
71 fact = a1 * Rcs(:,1,1) + a2 * Rcs(:,1,2) + a3 * Rcs(:,1,3)
73 a2 = a2 - fact * Rcs(:,1,2)
75 fact = a1**2 + a2**2 + a3**2
80 Rcs(:,2,2) = a2
113 a2 = Rcs(:,2,1) * dxidx(:,1,1) + Rcs(:,2,2) * dxidx(:,1,2) +
118 dxidx(:,1,2) = a2
123 a2 = Rcs(:,2,1) * dxidx(:,2,1) + Rcs(:,2,2) * dxidx(:,2,2) +
128 dxidx(:,2,2) = a2
133 a2 = Rcs(:,2,1) * dxidx(:,3,1) + Rcs(:,2,2) * dxidx(:,3,2) +
138 dxidx(:,3,2) = a2
146 a2 = dxidx(:,1,2)**2 + dxidx(:,2,2)**2 + dxidx(:,3,2)**2
163 a2 = ( a2 + (dxidx(:,1,2) + dxidx(:,2,2) +