5   TAO_SSLS *ssls = (TAO_SSLS *)tao->data;  in TaoSetUp_SSILS()  local
10   PetscCall(VecDuplicate(tao->solution, &ssls->ff));  in TaoSetUp_SSILS()
11   PetscCall(VecDuplicate(tao->solution, &ssls->dpsi));  in TaoSetUp_SSILS()
12   PetscCall(VecDuplicate(tao->solution, &ssls->da));  in TaoSetUp_SSILS()
13   PetscCall(VecDuplicate(tao->solution, &ssls->db));  in TaoSetUp_SSILS()
14   PetscCall(VecDuplicate(tao->solution, &ssls->t1));  in TaoSetUp_SSILS()
15   PetscCall(VecDuplicate(tao->solution, &ssls->t2));  in TaoSetUp_SSILS()
21   TAO_SSLS *ssls = (TAO_SSLS *)tao->data;  in TaoDestroy_SSILS()  local
24   PetscCall(VecDestroy(&ssls->ff));  in TaoDestroy_SSILS()
25   PetscCall(VecDestroy(&ssls->dpsi));  in TaoDestroy_SSILS()
26   PetscCall(VecDestroy(&ssls->da));  in TaoDestroy_SSILS()
27   PetscCall(VecDestroy(&ssls->db));  in TaoDestroy_SSILS()
28   PetscCall(VecDestroy(&ssls->t1));  in TaoDestroy_SSILS()
29   PetscCall(VecDestroy(&ssls->t2));  in TaoDestroy_SSILS()
37   TAO_SSLS                    *ssls = (TAO_SSLS *)tao->data;  in TaoSolve_SSILS()  local
45   delta = ssls->delta;  in TaoSolve_SSILS()
46   rho   = ssls->rho;  in TaoSolve_SSILS()
55 …PetscCall(TaoLineSearchComputeObjectiveAndGradient(tao->linesearch, tao->solution, &psi, ssls->dps…  in TaoSolve_SSILS()
56   PetscCall(VecNorm(ssls->dpsi, NORM_2, &ndpsi));  in TaoSolve_SSILS()
60 …o, "iter: %" PetscInt_FMT ", merit: %g, ndpsi: %g\n", tao->niter, (double)ssls->merit, (double)ndp…  in TaoSolve_SSILS()
62     PetscCall(TaoLogConvergenceHistory(tao, ssls->merit, ndpsi, 0.0, tao->ksp_its));  in TaoSolve_SSILS()
63     PetscCall(TaoMonitor(tao, tao->niter, ssls->merit, ndpsi, 0.0, t));  in TaoSolve_SSILS()
74     PetscCall(KSPSolve(tao->ksp, ssls->ff, tao->stepdirection));  in TaoSolve_SSILS()
78     PetscCall(VecDot(tao->stepdirection, ssls->dpsi, &innerd));  in TaoSolve_SSILS()
83       PetscCall(VecCopy(ssls->dpsi, tao->stepdirection));  in TaoSolve_SSILS()
84       PetscCall(VecDot(tao->stepdirection, ssls->dpsi, &innerd));  in TaoSolve_SSILS()
91 …PetscCall(TaoLineSearchApply(tao->linesearch, tao->solution, &psi, ssls->dpsi, tao->stepdirection,…  in TaoSolve_SSILS()
92     PetscCall(VecNorm(ssls->dpsi, NORM_2, &ndpsi));  in TaoSolve_SSILS()
109   TAO_SSLS   *ssls;  in TaoCreate_SSILS()  local
113   PetscCall(PetscNew(&ssls));  in TaoCreate_SSILS()
114   tao->data                = (void *)ssls;  in TaoCreate_SSILS()
121   ssls->delta = 1e-10;  in TaoCreate_SSILS()
122   ssls->rho   = 2.1;  in TaoCreate_SSILS()