Lines Matching refs:xl
277 PetscReal dx, dy, a, epsilon, xc, xl, xr, yl, yr; in RHSJacobian() local
289 xl = 0.5 * a / dx + epsilon / (dx * dx); in RHSJacobian()
304 v[0] = 2.0 * xl; in RHSJacobian()
314 v[0] = xl; in RHSJacobian()
339 v[1] = 2.0 * xl; in RHSJacobian()
351 v[1] = xl; in RHSJacobian()
375 v[1] = 2.0 * xl; in RHSJacobian()
384 v[0] = xl; in RHSJacobian()
406 PetscReal xc, xl, xr, yl, yr; in RHSFunction() local
426 xl = 0.5 * a / dx + epsilon / (dx * dx); in RHSFunction()
457 outptr[m - 1] = 2.0 * xl * inptr[m - 2] + xc * inptr[m - 1] + yr * inptr[m - 1 + 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()
462 …outptr[j * m + m - 1] = xc * inptr[j * m + m - 1] + 2.0 * xl * inptr[j * m + m - 1 - 1] + yl * inp… in RHSFunction()
463 …for (i = 1; i < m - 1; i++) outptr[j * m + i] = xc * inptr[j * m + i] + xl * inptr[j * m + i - 1] … in RHSFunction()
467 outptr[mn - 1] = 2.0 * xl * inptr[mn - 2] + xc * inptr[mn - 1] + 2.0 * yl * inptr[mn - 1 - m]; in RHSFunction()
468 …for (i = 1; i < m - 1; i++) outptr[mn - m + i] = xc * inptr[mn - m + i] + xl * inptr[mn - m + i - … in RHSFunction()