32   subroutine FormFunctionGradient(ta, X, f, G, dummy, ierr)  argument
33     type(tTao) ta  local
91   subroutine FormHessian(ta, X, H, PrecH, dummy, ierr)  argument
94     type(tTao) ta  local
166   type(tTao) ta     ! TAO_SOVER context
204   PetscCallA(TaoCreate(PETSC_COMM_SELF, ta, ierr))
205   PetscCallA(TaoSetType(ta, TAOLMVM, ierr))
208   PetscCallA(TaoSetObjectiveAndGradient(ta, PETSC_NULL_VEC, FormFunctionGradient, 0, ierr))
209   PetscCallA(TaoSetHessian(ta, H, H, FormHessian, 0, ierr))
213   PetscCallA(TaoSetSolution(ta, x, ierr))
216   PetscCallA(TaoSetFromOptions(ta, ierr))
219   PetscCallA(TaoSolve(ta, ierr))
227   PetscCallA(TaoDestroy(ta, ierr))