104   subroutine FormFunctionGradient(ta, X, f, G, dummy, ierr)  argument
106     type(tTao) ta  local
258   subroutine ComputeHessian(ta, X, H, Hpre, dummy, ierr)  argument
259     type(tTao) ta  local
330   subroutine Monitor(ta, dummy, ierr)  argument
331     type(tTao) ta  local
339     PetscCall(TaoGetSolutionStatus(ta, its, f, gnorm, cnorm, xdiff, reason, ierr))
348   subroutine ConvergenceTest(ta, dummy, ierr)  argument
349     type(tTao) ta  local
357     PetscCall(TaoGetSolutionStatus(ta, its, f, gnorm, cnorm, xdiff, reason, ierr))
359       PetscCall(TaoSetConvergedReason(ta, TAO_DIVERGED_MAXITS, ierr))
380   type(tTao) ta            ! Tao solver context
418   PetscCallA(TaoCreate(PETSC_COMM_WORLD, ta, ierr))
419   PetscCallA(TaoSetType(ta, TAOCG, ierr))
423   PetscCallA(TaoSetObjectiveAndGradient(ta, PETSC_NULL_VEC, FormFunctionGradient, 0, ierr))
424   PetscCallA(TaoSetHessian(ta, H, H, ComputeHessian, 0, ierr))
428   PetscCallA(TaoSetSolution(ta, x, ierr))
432     PetscCallA(TaoMonitorSet(ta, Monitor, dummy, PETSC_NULL_FUNCTION, ierr))
437     PetscCallA(TaoSetConvergenceTest(ta, ConvergenceTest, dummy, ierr))
441   PetscCallA(TaoSetFromOptions(ta, ierr))
444   PetscCallA(TaoSolve(ta, ierr))
447   PetscCallA(TaoDestroy(ta, ierr))