| /phasta/phSolver/common/ |
| H A D | f3lhs.f | 47 & v1(npro,nsd), v2(npro,nsd)
58 v2 = xlb(:,3,:) - 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 D | asbnabi.f | 31 & v1(npro,nsd), v2(npro,nsd)
76 v2 = xlb(:,ipt3,:) - 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)
234 v2 = xlb(:,ipt3,:) - 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)
|
| /phasta/phSolver/compressible/ |
| H A D | e3bvar.f | 81 & v1(npro,nsd), v2(npro,nsd)
151 v2 = xlb(:,3,:) - 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)
439 & v2(npro,nsd)
504 v2 = xlb(:,3,:) - xlb(:,1,:)
[all …]
|
| H A D | get_h.c | 104 double xref[3],v1[3],v2[3],normal[3]; in intersect() local
136 v2[i] = xbar[2][i] - xbar[0][i]; in intersect()
139 crossProd(v1,v2,normal); in intersect()
|
| /phasta/phSolver/incompressible/ |
| H A D | e3bvar.f | 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
[all …]
|
| /phasta/phSolver/AMG/ |
| H A D | ramg_smoother.f | 117 real(kind=8),dimension(anshg) :: tmp,v2,aux local
126 v2 = v
129 call ramg_calcAv_b(clevel,tmp,v2,ilwork,BC,iBC,iper,1,0)
|