Lines Matching refs:yr
277 PetscReal dx, dy, a, epsilon, xc, xl, xr, yl, yr; in RHSJacobian() local
292 yr = -0.5 * a / dy + epsilon / (dy * dy); in RHSJacobian()
297 v[2] = yr; in RHSJacobian()
306 v[2] = yr; in RHSJacobian()
317 v[3] = yr; in RHSJacobian()
330 v[3] = yr; in RHSJacobian()
341 v[3] = yr; in RHSJacobian()
354 v[4] = yr; in RHSJacobian()
406 PetscReal xc, xl, xr, yl, yr; in RHSFunction() local
429 yr = -0.5 * a / dy + epsilon / (dy * dy); in RHSFunction()
456 outptr[0] = xc * inptr[0] + xr * inptr[1] + yr * inptr[m]; in RHSFunction()
457 outptr[m - 1] = 2.0 * xl * inptr[m - 2] + xc * inptr[m - 1] + yr * inptr[m - 1 + m]; in RHSFunction()
458 … m - 1; i++) outptr[i] = xc * inptr[i] + xl * inptr[i - 1] + xr * inptr[i + 1] + yr * inptr[i + m]; in RHSFunction()
461 …outptr[j * m] = xc * inptr[j * m] + xr * inptr[j * m + 1] + yl * inptr[j * m - m] + yr * i… in RHSFunction()
462 …1] + 2.0 * xl * inptr[j * m + m - 1 - 1] + yl * inptr[j * m + m - 1 - m] + yr * inptr[j * m + m - … in RHSFunction()
463 …r[j * m + i - 1] + xr * inptr[j * m + i + 1] + yl * inptr[j * m + i - m] + yr * inptr[j * m + i + … in RHSFunction()