Lines Matching refs:v1
71 & v1(npro,nsd), v2(npro,nsd),
216 v1 = xlb(:,ipt2,:) - xlb(:,1,:)
221 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
222 temp2 = v2(:,1) * v1(:,3) - v1(:,1) * v2(:,3)
223 temp3 = v1(:,1) * v2(:,2) - v2(:,1) * v1(:,2)
404 v1 = xlb(:,ipt2,:) - xlb(:,1,:)
405 temp = one / sqrt ( v1(:,1)**2 + v1(:,2)**2 + v1(:,3)**2 )
406 v1(:,1) = v1(:,1) * temp
407 v1(:,2) = v1(:,2) * temp
408 v1(:,3) = v1(:,3) * temp
413 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
414 temp2 = v2(:,1) * v1(:,3) - v1(:,1) * v2(:,3)
415 temp3 = v1(:,1) * v2(:,2) - v2(:,1) * v1(:,2)
423 temp1 = v3(:,2) * v1(:,3) - v1(:,2) * v3(:,3)
424 temp2 = v1(:,1) * v3(:,3) - v3(:,1) * v1(:,3)
425 temp3 = v3(:,1) * v1(:,2) - v1(:,1) * v3(:,2)
433 rotnodallocal(:,1,j) = v1(:,j)
809 & v1(npro,nsd), v2(npro,nsd),
838 v1 = xlb(:,2,:) - xlb(:,1,:)
855 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
856 temp2 = v2(:,1) * v1(:,3) - v1(:,1) * v2(:,3)
857 temp3 = v1(:,1) * v2(:,2) - v2(:,1) * v1(:,2)
859 temp1 = - v1(:,2) * v2(:,3) + v2(:,2) * v1(:,3)
860 temp2 = - v2(:,1) * v1(:,3) + v1(:,1) * v2(:,3)
861 temp3 = - v1(:,1) * v2(:,2) + v2(:,1) * v1(:,2)