Home
last modified time | relevance | path

Searched refs:xc (Results 1 – 3 of 3) sorted by relevance

/phasta/phSolver/common/
H A Dget_a_not_hex.f3 subroutine get_a_not_hex(xc,anot) argument
7 dimension xc(npro,nenl,nsd), anot(npro,nenl,nsd)
12 anot(:,1,i) = pt125*(xc(:,1,i)+xc(:,2,i)+xc(:,3,i)+xc(:,4,i)
13 & +xc(:,5,i)+xc(:,6,i)+xc(:,7,i)+xc(:,8,i))
15 anot(:,2,i) = pt125*(-xc(:,1,i)+xc(:,2,i)+xc(:,3,i)-xc(:,4,i)
16 & -xc(:,5,i)+xc(:,6,i)+xc(:,7,i)-xc(:,8,i))
18 anot(:,3,i) = pt125*(-xc(:,1,i)-xc(:,2,i)+xc(:,3,i)+xc(:,4,i)
19 & -xc(:,5,i)-xc(:,6,i)+xc(:,7,i)+xc(:,8,i))
21 anot(:,4,i) = pt125*(-xc(:,1,i)-xc(:,2,i)-xc(:,3,i)-xc(:,4,i)
22 & +xc(:,5,i)+xc(:,6,i)+xc(:,7,i)+xc(:,8,i))
[all …]
H A Dget_coeff.f42 subroutine get_coeff_tet(xc,anot) argument
48 dimension xc(nelint,nenl,nsd), anot(nelint,nenl,nsd)
53 anot(:,1,i) = xc(:,4,i)
54 anot(:,2,i) = xc(:,1,i)-xc(:,4,i)
55 anot(:,3,i) = xc(:,2,i)-xc(:,4,i)
56 anot(:,4,i) = xc(:,3,i)-xc(:,4,i)
/phasta/phSolver/compressible/
H A Dget_h.c89 void u_line(double s, double xc[3], double udir[3], double pnt[3]);
102 double xc[3]; in intersect() local
112 xc[i] = 0.25*(x[0][i]+x[1][i]+x[2][i]+x[3][i]); in intersect()
146 diffVt( xref, xc, xr_xc ); in intersect()
152 u_line(s,xc,u,pt); /* find intersection point */ in intersect()
173 void u_line(double s, double xc[3], double udir[3], double pnt[3]){ in u_line()
176 pnt[i] = xc[i]+s*udir[i]; in u_line()