Lines Matching refs:dy
75 real*8 dx,dy,dz local
105 dy = y(iz) - yi
107 r = sqrt(dx*dx + dy*dy + dz*dz)
109 a(2,3) = dy / r
112 dy = 0.0d0
117 dy = 1.0d0
121 dy = dy - dot*a(2,3)
123 r = sqrt(dx*dx + dy*dy + dz*dz)
125 a(2,1) = dy / r
132 dy = y(iz) - yi
134 r = sqrt(dx*dx + dy*dy + dz*dz)
136 a(2,3) = dy / r
139 dy = y(ix) - yi
141 dot = dx*a(1,3) + dy*a(2,3) + dz*a(3,3)
143 dy = dy - dot*a(2,3)
145 r = sqrt(dx*dx + dy*dy + dz*dz)
147 a(2,1) = dy / r
154 dy = y(iz) - yi
156 r = sqrt(dx*dx + dy*dy + dz*dz)
158 dy1 = dy / r
161 dy = y(ix) - yi
163 r = sqrt(dx*dx + dy*dy + dz*dz)
165 dy2 = dy / r
168 dy = dy1 + dy2
170 r = sqrt(dx*dx + dy*dy + dz*dz)
172 a(2,3) = dy / r
176 dy = dy2 - dot*a(2,3)
178 r = sqrt(dx*dx + dy*dy + dz*dz)
180 a(2,1) = dy / r
187 dy = y(iz) - yi
189 r = sqrt(dx*dx + dy*dy + dz*dz)
191 a(2,3) = dy / r
194 dy = y(ix) - yi
196 r = sqrt(dx*dx + dy*dy + dz*dz)
198 dy1 = dy / r
201 dy = y(iy) - yi
203 r = sqrt(dx*dx + dy*dy + dz*dz)
205 dy2 = dy / r
208 dy = dy1 + dy2
210 r = sqrt(dx*dx + dy*dy + dz*dz)
212 dy = dy / r
214 dot = dx*a(1,3) + dy*a(2,3) + dz*a(3,3)
216 dy = dy - dot*a(2,3)
218 r = sqrt(dx*dx + dy*dy + dz*dz)
220 a(2,1) = dy / r
227 dy = y(iz) - yi
229 r = sqrt(dx*dx + dy*dy + dz*dz)
231 dy1 = dy / r
234 dy = y(ix) - yi
236 r = sqrt(dx*dx + dy*dy + dz*dz)
238 dy2 = dy / r
241 dy = y(iy) - yi
243 r = sqrt(dx*dx + dy*dy + dz*dz)
245 dy3 = dy / r
248 dy = dy1 + dy2 + dy3
250 r = sqrt(dx*dx + dy*dy + dz*dz)
252 a(2,3) = dy / r
256 dy = dy2 - dot*a(2,3)
258 r = sqrt(dx*dx + dy*dy + dz*dz)
260 a(2,1) = dy / r
458 real*8 dx,dy,dz local
465 dy = y(k) - y(i)
468 a(2,3) = dy * rinv
476 dy = dy + 1.0d0
478 dot = dx*a(1,3) + dy*a(2,3) + dz*a(3,3)
480 dy = dy - dot*a(2,3)
482 r = 1.d0 / sqrt(dx*dx + dy*dy + dz*dz)
484 a(2,1) = dy * r