5   TAO_SSLS *ssls = (TAO_SSLS *)tao->data;  in TaoSetUp_SSFLS()  local
10   PetscCall(VecDuplicate(tao->solution, &ssls->w));  in TaoSetUp_SSFLS()
11   PetscCall(VecDuplicate(tao->solution, &ssls->ff));  in TaoSetUp_SSFLS()
12   PetscCall(VecDuplicate(tao->solution, &ssls->dpsi));  in TaoSetUp_SSFLS()
13   PetscCall(VecDuplicate(tao->solution, &ssls->da));  in TaoSetUp_SSFLS()
14   PetscCall(VecDuplicate(tao->solution, &ssls->db));  in TaoSetUp_SSFLS()
15   PetscCall(VecDuplicate(tao->solution, &ssls->t1));  in TaoSetUp_SSFLS()
16   PetscCall(VecDuplicate(tao->solution, &ssls->t2));  in TaoSetUp_SSFLS()
23   TAO_SSLS                    *ssls = (TAO_SSLS *)tao->data;  in TaoSolve_SSFLS()  local
31   delta = ssls->delta;  in TaoSolve_SSFLS()
32   rho   = ssls->rho;  in TaoSolve_SSFLS()
42 …PetscCall(TaoLineSearchComputeObjectiveAndGradient(tao->linesearch, tao->solution, &psi, ssls->dps…  in TaoSolve_SSFLS()
43   PetscCall(VecNorm(ssls->dpsi, NORM_2, &ndpsi));  in TaoSolve_SSFLS()
47 …o, "iter: %" PetscInt_FMT ", merit: %g, ndpsi: %g\n", tao->niter, (double)ssls->merit, (double)ndp…  in TaoSolve_SSFLS()
49     PetscCall(TaoLogConvergenceHistory(tao, ssls->merit, ndpsi, 0.0, tao->ksp_its));  in TaoSolve_SSFLS()
50     PetscCall(TaoMonitor(tao, tao->niter, ssls->merit, ndpsi, 0.0, t));  in TaoSolve_SSFLS()
61     PetscCall(KSPSolve(tao->ksp, ssls->ff, tao->stepdirection));  in TaoSolve_SSFLS()
65     PetscCall(VecCopy(tao->stepdirection, ssls->w));  in TaoSolve_SSFLS()
66     PetscCall(VecScale(ssls->w, -1.0));  in TaoSolve_SSFLS()
67     PetscCall(VecBoundGradientProjection(ssls->w, tao->solution, tao->XL, tao->XU, ssls->w));  in TaoSolve_SSFLS()
69     PetscCall(VecNorm(ssls->w, NORM_2, &normd));  in TaoSolve_SSFLS()
70     PetscCall(VecDot(ssls->w, ssls->dpsi, &innerd));  in TaoSolve_SSFLS()
75       PetscCall(VecCopy(ssls->dpsi, tao->stepdirection));  in TaoSolve_SSFLS()
76       PetscCall(VecDot(ssls->w, ssls->dpsi, &innerd));  in TaoSolve_SSFLS()
83 …PetscCall(TaoLineSearchApply(tao->linesearch, tao->solution, &psi, ssls->dpsi, tao->stepdirection,…  in TaoSolve_SSFLS()
84     PetscCall(VecNorm(ssls->dpsi, NORM_2, &ndpsi));  in TaoSolve_SSFLS()
91   TAO_SSLS *ssls = (TAO_SSLS *)tao->data;  in TaoDestroy_SSFLS()  local
94   PetscCall(VecDestroy(&ssls->ff));  in TaoDestroy_SSFLS()
95   PetscCall(VecDestroy(&ssls->w));  in TaoDestroy_SSFLS()
96   PetscCall(VecDestroy(&ssls->dpsi));  in TaoDestroy_SSFLS()
97   PetscCall(VecDestroy(&ssls->da));  in TaoDestroy_SSFLS()
98   PetscCall(VecDestroy(&ssls->db));  in TaoDestroy_SSFLS()
99   PetscCall(VecDestroy(&ssls->t1));  in TaoDestroy_SSFLS()
100   PetscCall(VecDestroy(&ssls->t2));  in TaoDestroy_SSFLS()
119   TAO_SSLS   *ssls;  in TaoCreate_SSFLS()  local
123   PetscCall(PetscNew(&ssls));  in TaoCreate_SSFLS()
124   tao->data                = (void *)ssls;  in TaoCreate_SSFLS()
131   ssls->delta = 1e-10;  in TaoCreate_SSFLS()
132   ssls->rho   = 2.1;  in TaoCreate_SSFLS()