Lines Matching refs:a1
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)
72 a1 = a1 - fact * Rcs(:,1,1)
75 fact = a1**2 + a2**2 + a3**2
79 Rcs(:,2,1) = a1
111 a1 = Rcs(:,1,1) * dxidx(:,1,1) + Rcs(:,1,2) * dxidx(:,1,2) +
117 dxidx(:,1,1) = a1
121 a1 = Rcs(:,1,1) * dxidx(:,2,1) + Rcs(:,1,2) * dxidx(:,2,2) +
127 dxidx(:,2,1) = a1
131 a1 = Rcs(:,1,1) * dxidx(:,3,1) + Rcs(:,1,2) * dxidx(:,3,2) +
137 dxidx(:,3,1) = a1
145 a1 = dxidx(:,1,1)**2 + dxidx(:,2,1)**2 + dxidx(:,3,1)**2
161 a1 = ( a1 + (dxidx(:,1,1) + dxidx(:,2,1) +