Lines Matching refs:temp1
73 & temp1(npro), temp2(npro),
158 temp1 = dxdxib(:,2,1) * dxdxib(:,3,3) -
166 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
170 temp1 = - v1(:,2) * v2(:,3) + v2(:,2) * v1(:,3)
175 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
176 bnorm(:,1) = temp1 * temp
431 & temp1(npro), temp2(npro),
515 temp1 = dxdxib(:,2,1) * dxdxib(:,3,3) -
523 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
527 temp1 = - v1(:,2) * v2(:,3) + v2(:,2) * v1(:,3)
532 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
533 bnorm(:,1) = temp1 * temp