Lines Matching refs:a3
3 & a3, eb1,
45 & a3(npro),
71 fact = a1 * Rcs(:,1,1) + a2 * Rcs(:,1,2) + a3 * Rcs(:,1,3)
74 a3 = a3 - fact * Rcs(:,1,3)
75 fact = a1**2 + a2**2 + a3**2
81 Rcs(:,2,3) = a3
115 a3 = Rcs(:,3,1) * dxidx(:,1,1) + Rcs(:,3,2) * dxidx(:,1,2) +
119 dxidx(:,1,3) = a3
125 a3 = Rcs(:,3,1) * dxidx(:,2,1) + Rcs(:,3,2) * dxidx(:,2,2) +
129 dxidx(:,2,3) = a3
135 a3 = Rcs(:,3,1) * dxidx(:,3,1) + Rcs(:,3,2) * dxidx(:,3,2) +
139 dxidx(:,3,3) = a3
147 a3 = dxidx(:,1,3)**2 + dxidx(:,2,3)**2 + dxidx(:,3,3)**2
165 a3 = ( a3 + (dxidx(:,1,3) + dxidx(:,2,3) +