Lines Matching refs:d1
72 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3
159 d1 = xc - xl
168 df1dxc = d1*hydhx
169 df2dxc = d1*hydhx + d4*hxdhy
175 d1 = d1*rhx
184 f1 = sqrt(1.0 + d1*d1 + d7*d7)
185 f2 = sqrt(1.0 + d1*d1 + d4*d4)
223 d1 = (x_v(1 + (j + 1 - gys)*gxm - 1) - right_v(1 + j - ys + 1))*rhx
225 ft = ft + sqrt(1.0 + d1*d1 + d4*d4)
231 d1 = (x_v(1 + (gym - 1)*gxm + i - gxs) - top_v(1 + i - xs + 1))*rhy
233 ft = ft + sqrt(1.0 + d1*d1 + d4*d4)
238 d1 = (left_v(1 + 0) - left_v(1 + 1))*rhy
240 ft = ft + sqrt(1.0 + d1*d1 + d2*d2)
244 d1 = (right_v(1 + ym + 1) - right_v(1 + ym))*rhy
246 ft = ft + sqrt(1.0 + d1*d1 + d2*d2)
306 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3
398 d1 = (xc - xl)*rhx
407 f1 = sqrt(1.0 + d1*d1 + d7*d7)
408 f2 = sqrt(1.0 + d1*d1 + d4*d4)
414 hl = (-hydhx*(1.0 + d7*d7) + d1*d7)/(f1*f1*f1) + (-hydhx*(1.0 + d4*d4) + d1*d4)/(f2*f2*f2)
420 hb = (-hxdhy*(1.0 + d6*d6) + d4*d6)/(f6*f6*f6) + (-hxdhy*(1.0 + d1*d1) + d1*d4)/(f2*f2*f2)
423 htl = -d1*d7/(f1*f1*f1) - d3*d8/(f3*f3*f3)
426 …& hxdhy*(1.0 + d6*d6)/(f6*f6*f6) + (hxdhy*(1.0 + d1*d1) + hydhx*(1.0 + d4*d4) - 2*d1*d4)…