Home
last modified time | relevance | path

Searched refs:xts1 (Results 1 – 5 of 5) sorted by relevance

/phasta/phSolver/common/
H A Drenum.f152 xts1 = x(nrint(jj),1) !*cos(xcyl(nrint(jj),2)+tolerence)
155 call elem_search(xintl, xts1, xts2, xts3,
162 xts1 = (xcyl(nrint(jj),1)-tolerence)
168 xts1 = xcyl(nrint(jj),1)
174 call elem_search(xintl, xts1, xts2, xts3,
288 xts1 = x(nrint(jj),1) + plandist
291 call elem_search(xintl, xts1, xts2, xts3,
297 xts1 = x(nrint(jj),1) + plandist
300 call elem_search(xintl, xts1, xts2, xts3,
H A Delem-search.f1 subroutine elem_search(xl,xts1,xts2,xts3,xsic,elmt, idfile) argument
31 real*8 xts1, xts2, xts3, min local
46 & - al(:,3,2)*al(:,4,3))*(xts1-al(:,1,1)) +
54 & - al(:,4,2)*al(:,2,3))*(xts1-al(:,1,1)) +
61 & - al(:,2,2)*al(:,3,3))*(xts1-al(:,1,1)) +
H A Dgenscale.f226 xts1 = x(nen1(i),1) + plandist
240 xts1 = (radcyl-xynin(i)*rdelta*sang-tolerence)
248 xts1 = (radcyl-ymax*sang)
256 xts1 = (radcyl-xynin(i)*rdelta*sang)
270 call elem_search(xintl, xts1, xts2, xts3,
/phasta/phSolver/compressible/
H A Dtimeseries.f16 real*8 xts1, xts2, xts3 local
34 xts1 = ptts(jj,1)
53 & - al(:,3,2)*al(:,4,3))*(xts1-al(:,1,1)) +
61 & - al(:,4,2)*al(:,2,3))*(xts1-al(:,1,1)) +
68 & - al(:,2,2)*al(:,3,3))*(xts1-al(:,1,1)) +
109 & zi0(:,2)*zi0(:,3) - xts1
174 & - al(e,3,2)*al(e,4,3))*(xts1-al(e,1,1)) +
181 & - al(e,4,2)*al(e,2,3))*(xts1-al(e,1,1)) +
188 & - al(e,2,2)*al(e,3,3))*(xts1-al(e,1,1)) +
/phasta/phSolver/incompressible/
H A Dtimeseries.f16 real*8 xts1, xts2, xts3 local
34 xts1 = ptts(jj,1)
53 & - al(:,3,2)*al(:,4,3))*(xts1-al(:,1,1)) +
61 & - al(:,4,2)*al(:,2,3))*(xts1-al(:,1,1)) +
68 & - al(:,2,2)*al(:,3,3))*(xts1-al(:,1,1)) +
109 & zi0(:,2)*zi0(:,3) - xts1
174 & - al(e,3,2)*al(e,4,3))*(xts1-al(e,1,1)) +
181 & - al(e,4,2)*al(e,2,3))*(xts1-al(e,1,1)) +
188 & - al(e,2,2)*al(e,3,3))*(xts1-al(e,1,1)) +