Home
last modified time | relevance | path

Searched refs:v1 (Results 1 – 6 of 6) sorted by relevance

/phasta/phSolver/common/
H A Df3lhs.f47 & v1(npro,nsd), v2(npro,nsd)
57 v1 = xlb(:,2,:) - xlb(:,1,:)
61 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
62 temp2 = v2(:,1) * v1(:,3) - v1(:,1) * v2(:,3)
63 temp3 = v1(:,1) * v2(:,2) - v2(:,1) * v1(:,2)
65 temp1 = - v1(:,2) * v2(:,3) + v2(:,2) * v1(:,3)
66 temp2 = - v2(:,1) * v1(:,3) + v1(:,1) * v2(:,3)
67 temp3 = - v1(:,1) * v2(:,2) + v2(:,1) * v1(:,2)
H A Dasbnabi.f31 & v1(npro,nsd), v2(npro,nsd)
75 v1 = xlb(:,ipt2,:) - xlb(:,1,:)
80 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
81 temp2 = v2(:,1) * v1(:,3) - v1(:,1) * v2(:,3)
82 temp3 = v1(:,1) * v2(:,2) - v2(:,1) * v1(:,2)
189 & v1(npro,nsd), v2(npro,nsd)
233 v1 = xlb(:,ipt2,:) - xlb(:,1,:)
238 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
239 temp2 = v2(:,1) * v1(:,3) - v1(:,1) * v2(:,3)
240 temp3 = v1(:,1) * v2(:,2) - v2(:,1) * v1(:,2)
H A Dgenscale.f27 & v1(nfint), ymapped(numnp,ndof),
94 v1(1)=10.0
96 v1(i)=velbarR(i-1,dir)-0.99*vel
97 if((v1(i).gt.0).and.(v1(i-1).le.0)) then
/phasta/phSolver/incompressible/
H A De3bvar.f71 & 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
[all …]
/phasta/phSolver/compressible/
H A De3bvar.f81 & v1(npro,nsd), v2(npro,nsd)
150 v1 = xlb(:,2,:) - xlb(:,1,:)
166 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
167 temp2 = v2(:,1) * v1(:,3) - v1(:,1) * v2(:,3)
168 temp3 = v1(:,1) * v2(:,2) - v2(:,1) * v1(:,2)
170 temp1 = - v1(:,2) * v2(:,3) + v2(:,2) * v1(:,3)
171 temp2 = - v2(:,1) * v1(:,3) + v1(:,1) * v2(:,3)
172 temp3 = - v1(:,1) * v2(:,2) + v2(:,1) * v1(:,2)
438 & tmp(npro), v1(npro,nsd),
503 v1 = xlb(:,2,:) - xlb(:,1,:)
[all …]
H A Dget_h.c104 double xref[3],v1[3],v2[3],normal[3]; in intersect() local
135 v1[i] = xbar[1][i] - xbar[0][i]; in intersect()
139 crossProd(v1,v2,normal); in intersect()