Lines Matching refs:dx
5 subroutine dsort (dx, iy, n, kflag) argument
69 double precision dx(*) local
100 dx(i) = -dx(i)
125 t = dx(ij)
129 if (dx(i) .gt. t) then
130 dx(ij) = dx(i)
131 dx(i) = t
132 t = dx(ij)
138 if (dx(j) .lt. t) then
139 dx(ij) = dx(j)
140 dx(j) = t
141 t = dx(ij)
145 if (dx(i) .gt. t) then
146 dx(ij) = dx(i)
147 dx(i) = t
148 t = dx(ij)
156 if (dx(l) .gt. t) go to 40
162 if (dx(k) .lt. t) go to 50
167 tt = dx(l)
168 dx(l) = dx(k)
169 dx(k) = tt
201 t = dx(i+1)
202 if (dx(i) .le. t) go to 80
205 90 dx(k+1) = dx(k)
207 if (t .lt. dx(k)) go to 90
208 dx(k+1) = t
230 t = dx(ij)
235 if (dx(i) .gt. t) then
236 dx(ij) = dx(i)
237 dx(i) = t
238 t = dx(ij)
247 if (dx(j) .lt. t) then
248 dx(ij) = dx(j)
249 dx(j) = t
250 t = dx(ij)
257 if (dx(i) .gt. t) then
258 dx(ij) = dx(i)
259 dx(i) = t
260 t = dx(ij)
271 if (dx(l) .gt. t) go to 130
277 if (dx(k) .lt. t) go to 140
282 tt = dx(l)
283 dx(l) = dx(k)
284 dx(k) = tt
319 t = dx(i+1)
321 if (dx(i) .le. t) go to 170
324 180 dx(k+1) = dx(k)
327 if (t .lt. dx(k)) go to 180
328 dx(k+1) = t
336 dx(i) = -dx(i)