106   const PetscScalar *xx, *FF;  in FormFunction()  local
111   PetscCall(VecGetArrayRead(x, &xx));  in FormFunction()
117   ff[0] = xx[0];  in FormFunction()
118 …for (i = 1; i < n - 1; i++) ff[i] = d * (xx[i - 1] - 2.0 * xx[i] + xx[i + 1]) + xx[i] * xx[i] - FF…  in FormFunction()
119   ff[n - 1] = xx[n - 1] - 1.0;  in FormFunction()
120   PetscCall(VecRestoreArrayRead(x, &xx));  in FormFunction()
128   const PetscScalar *xx, *FF;  in FormFunctioni()  local
136   PetscCall(VecGetArrayRead(x, &xx));  in FormFunctioni()
142     *s = xx[0];  in FormFunctioni()
144     *s = xx[n - 1] - 1.0;  in FormFunctioni()
146     *s = d * (xx[i - 1] - 2.0 * xx[i] + xx[i + 1]) + xx[i] * xx[i] - FF[i];  in FormFunctioni()
148   PetscCall(VecRestoreArrayRead(x, &xx));  in FormFunctioni()
182   const PetscScalar *xx;  in FormJacobian()  local
188   PetscCall(VecGetArrayRead(x, &xx));  in FormJacobian()
201     A[1] = -2.0 * d + 2.0 * xx[i];  in FormJacobian()
210   PetscCall(VecRestoreArrayRead(x, &xx));  in FormJacobian()