| /phasta/phSolver/common/ |
| H A D | renum.f | 154 xts3 = x(nrint(jj),3) + plandist
155 call elem_search(xintl, xts1, xts2, xts3,
173 xts3 = x(nrint(jj),3) + plandist
174 call elem_search(xintl, xts1, xts2, xts3,
290 xts3 = x(nrint(jj),3)
291 call elem_search(xintl, xts1, xts2, xts3,
299 xts3 = x(nrint(jj),3) + i*ds
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
50 & - al(:,3,1)*al(:,4,2))*(xts3-al(:,1,3)))
58 & - al(:,4,1)*al(:,2,2))*(xts3-al(:,1,3)))
65 & - al(:,2,1)*al(:,3,2))*(xts3-al(:,1,3)))
|
| H A D | genscale.f | 232 xts3 = x(nen1(i),3)
244 xts3 = (aR-(radcyl-xynin(i)*rdelta*sang-tolerence)
252 xts3 = (aR-(radcyl-ymax*sang)
260 xts3 = (aR-(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
36 xts3 = ptts(jj,3)
57 & - al(:,3,1)*al(:,4,2))*(xts3-al(:,1,3)))
65 & - al(:,4,1)*al(:,2,2))*(xts3-al(:,1,3)))
72 & - al(:,2,1)*al(:,3,2))*(xts3-al(:,1,3)))
121 & zi0(:,2)*zi0(:,3) - xts3
178 & - al(e,3,1)*al(e,4,2))*(xts3-al(e,1,3)))
185 & - al(e,4,1)*al(e,2,2))*(xts3-al(e,1,3)))
192 & - al(e,2,1)*al(e,3,2))*(xts3-al(e,1,3)))
|
| /phasta/phSolver/incompressible/ |
| H A D | timeseries.f | 16 real*8 xts1, xts2, xts3 local
36 xts3 = ptts(jj,3)
57 & - al(:,3,1)*al(:,4,2))*(xts3-al(:,1,3)))
65 & - al(:,4,1)*al(:,2,2))*(xts3-al(:,1,3)))
72 & - al(:,2,1)*al(:,3,2))*(xts3-al(:,1,3)))
121 & zi0(:,2)*zi0(:,3) - xts3
178 & - al(e,3,1)*al(e,4,2))*(xts3-al(e,1,3)))
185 & - al(e,4,1)*al(e,2,2))*(xts3-al(e,1,3)))
192 & - al(e,2,1)*al(e,3,2))*(xts3-al(e,1,3)))
|