Lines Matching refs:v2
71 & v1(npro,nsd), v2(npro,nsd),
217 v2 = xlb(:,ipt3,:) - 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)
410 v2 = xlb(:,ipt3,:) - xlb(:,1,:)
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)
428 v2(:,1) = temp1 * temp
429 v2(:,2) = temp2 * temp
430 v2(:,3) = temp3 * temp
434 rotnodallocal(:,2,j) = v2(:,j)
809 & v1(npro,nsd), v2(npro,nsd),
839 v2 = xlb(:,3,:) - 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)