Lines Matching refs:temp2
69 & temp1(npro), temp2(npro),
222 temp2 = v2(:,1) * v1(:,3) - v1(:,1) * v2(:,3)
227 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
229 bnorm(:,2) = temp2 * temp
414 temp2 = v2(:,1) * v1(:,3) - v1(:,1) * v2(:,3)
417 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
419 v3(:,2) = temp2 * temp
424 temp2 = v1(:,1) * v3(:,3) - v3(:,1) * v1(:,3)
427 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
429 v2(:,2) = temp2 * temp
492 temp2 = rnuvw * temp1
495 Dmatrix(:,1,2) = temp2
496 Dmatrix(:,2,1) = temp2
807 & temp1(npro), temp2(npro),
849 temp2 = dxdxib(:,3,1) * dxdxib(:,1,3) -
856 temp2 = v2(:,1) * v1(:,3) - v1(:,1) * v2(:,3)
860 temp2 = - v2(:,1) * v1(:,3) + v1(:,1) * v2(:,3)
864 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
866 bnorm(:,2) = temp2 * temp