| /phasta/phSolver/common/ |
| H A D | renum.f | 153 xts2 = x(nrint(jj),2) !*sin(xcyl(nrint(jj),2)+tolerence)
155 call elem_search(xintl, xts1, xts2, xts3,
164 xts2 = (xcyl(nrint(jj),1)-tolerence)
170 xts2 = xcyl(nrint(jj),1)
174 call elem_search(xintl, xts1, xts2, xts3,
289 xts2 = x(nrint(jj),2)
291 call elem_search(xintl, xts1, xts2, xts3,
298 xts2 = x(nrint(jj),2)
300 call elem_search(xintl, xts1, xts2, xts3,
|
| H A D | elem-search.f | 1 subroutine elem_search(xl,xts1,xts2,xts3,xsic,elmt, idfile) argument
31 real*8 xts1, xts2, xts3, min local
48 & - al(:,4,1)*al(:,3,3))*(xts2-al(:,1,2)) +
56 & - al(:,2,1)*al(:,4,3))*(xts2-al(:,1,2)) +
63 & - al(:,3,1)*al(:,2,3))*(xts2-al(:,1,2)) +
|
| H A D | genscale.f | 228 xts2 = ymax
230 xts2 = xynin(i)*rdelta
242 xts2 = (radcyl-xynin(i)*rdelta*sang-tolerence)
250 xts2 = (radcyl-ymax*sang)
258 xts2 = (radcyl-xynin(i)*rdelta*sang)
270 call elem_search(xintl, xts1, xts2, xts3,
|
| /phasta/phSolver/compressible/ |
| H A D | timeseries.f | 16 real*8 xts1, xts2, xts3 local
35 xts2 = ptts(jj,2)
55 & - al(:,4,1)*al(:,3,3))*(xts2-al(:,1,2)) +
63 & - al(:,2,1)*al(:,4,3))*(xts2-al(:,1,2)) +
70 & - al(:,3,1)*al(:,2,3))*(xts2-al(:,1,2)) +
115 & zi0(:,2)*zi0(:,3) - xts2
176 & - al(e,4,1)*al(e,3,3))*(xts2-al(e,1,2)) +
183 & - al(e,2,1)*al(e,4,3))*(xts2-al(e,1,2)) +
190 & - al(e,3,1)*al(e,2,3))*(xts2-al(e,1,2)) +
|
| /phasta/phSolver/incompressible/ |
| H A D | timeseries.f | 16 real*8 xts1, xts2, xts3 local
35 xts2 = ptts(jj,2)
55 & - al(:,4,1)*al(:,3,3))*(xts2-al(:,1,2)) +
63 & - al(:,2,1)*al(:,4,3))*(xts2-al(:,1,2)) +
70 & - al(:,3,1)*al(:,2,3))*(xts2-al(:,1,2)) +
115 & zi0(:,2)*zi0(:,3) - xts2
176 & - al(e,4,1)*al(e,3,3))*(xts2-al(e,1,2)) +
183 & - al(e,2,1)*al(e,4,3))*(xts2-al(e,1,2)) +
190 & - al(e,3,1)*al(e,2,3))*(xts2-al(e,1,2)) +
|