56   subroutine InitGuessLocal(grd, x, lambda, ierr)  argument
60     PetscReal lambda
69     temp1 = lambda/(lambda + one)
87   subroutine FunctionLocal(grd, x, f, lambda, ierr)  argument
92     PetscReal lambda
117           f(i, j) = uxx + uyy - lambda*exp(u)*sc
125   subroutine JacobianLocal(grd, x, Jac, lambda, ierr)  argument
130     PetscReal lambda
160           v(3) = two*(hydhx + hxdhy) - lambda*exp(x(i, j))*sc
184   PetscReal lambda
192   PetscCall(InitGuessLocal(grd, xx, lambda, ierr))
203   PetscReal lambda
219   PetscCall(FunctionLocal(grd, xx, ff, lambda, ierr))
233   PetscReal lambda
246   PetscCall(JacobianLocal(grd, xx, J, lambda, ierr))