Lines Matching refs:xr
277 PetscReal dx, dy, a, epsilon, xc, xl, xr, yl, yr; in RHSJacobian() local
290 xr = -0.5 * a / dx + epsilon / (dx * dx); in RHSJacobian()
296 v[1] = xr; in RHSJacobian()
316 v[2] = xr; in RHSJacobian()
328 v[1] = xr; in RHSJacobian()
352 v[2] = xr; in RHSJacobian()
366 v[1] = xr; in RHSJacobian()
386 v[2] = xr; in RHSJacobian()
406 PetscReal xc, xl, xr, yl, yr; in RHSFunction() local
427 xr = -0.5 * a / dx + epsilon / (dx * dx); in RHSFunction()
456 outptr[0] = xc * inptr[0] + xr * inptr[1] + yr * inptr[m]; in RHSFunction()
458 …for (i = 1; i < m - 1; i++) outptr[i] = xc * inptr[i] + xl * inptr[i - 1] + xr * inptr[i + 1] + yr… in RHSFunction()
461 …outptr[j * m] = xc * inptr[j * m] + xr * inptr[j * m + 1] + yl * inptr[j * m - m] + yr * i… in RHSFunction()
463 …+) outptr[j * m + i] = xc * inptr[j * m + i] + xl * inptr[j * m + i - 1] + xr * inptr[j * m + i + … in RHSFunction()
466 outptr[mn - m] = xc * inptr[mn - m] + xr * inptr[mn - m + 1] + 2.0 * yl * inptr[mn - m - m]; in RHSFunction()
468 …outptr[mn - m + i] = xc * inptr[mn - m + i] + xl * inptr[mn - m + i - 1] + xr * inptr[mn - m + i +… in RHSFunction()