Lines Matching refs:temp1
69 & temp1(npro), temp2(npro),
221 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
227 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
228 bnorm(:,1) = temp1 * temp
359 temp1 = bnorm(:,1) * tau1n
363 pres = pres - temp1
365 tau1n = tau1n - bnorm(:,1) * temp1
366 tau2n = tau2n - bnorm(:,2) * temp1
367 tau3n = tau3n - bnorm(:,3) * temp1
413 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
417 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
418 v3(:,1) = temp1 * temp
423 temp1 = v3(:,2) * v1(:,3) - v1(:,2) * v3(:,3)
427 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
428 v2(:,1) = temp1 * temp
491 temp1 = evw / (1.0d0 - rnuvw*rnuvw)
492 temp2 = rnuvw * temp1
493 temp3 = pt5 * (1.0d0 - rnuvw) * temp1
494 Dmatrix(:,1,1) = temp1
497 Dmatrix(:,2,2) = temp1
807 & temp1(npro), temp2(npro),
847 temp1 = dxdxib(:,2,1) * dxdxib(:,3,3) -
855 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
859 temp1 = - v1(:,2) * v2(:,3) + v2(:,2) * v1(:,3)
864 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
865 bnorm(:,1) = temp1 * temp