1 #include <../src/tao/bound/impls/bqnk/bqnk.h> 2 3 static PetscErrorCode TaoSetUp_BQNKTL(Tao tao) 4 { 5 TAO_BNK *bnk = (TAO_BNK*)tao->data; 6 PetscErrorCode ierr; 7 8 PetscFunctionBegin; 9 ierr = TaoSetUp_BQNK(tao);CHKERRQ(ierr); 10 if (!bnk->is_nash && !bnk->is_stcg && !bnk->is_gltr) SETERRQ(PetscObjectComm((PetscObject)tao),PETSC_ERR_SUP,"Must use a trust-region CG method for KSP (KSPNASH, KSPSTCG, KSPGLTR)"); 11 PetscFunctionReturn(0); 12 } 13 14 /*MC 15 TAOBQNKTL - Bounded Quasi-Newton-Krylov Trust-region with Line-search fallback, for nonlinear 16 minimization with bound constraints. This method approximates the Hessian-vector 17 product using a limited-memory quasi-Newton formula, and iteratively inverts the 18 Hessian with a Krylov solver. The quasi-Newton matrix and its settings can be 19 accessed via the prefix `-tao_bqnk_`. For options database, see TAOBNK 20 21 Level: beginner 22 .seealso TAOBNK, TAOBQNKTR, TAOBQNKLS 23 M*/ 24 PETSC_EXTERN PetscErrorCode TaoCreate_BQNKTL(Tao tao) 25 { 26 TAO_BNK *bnk; 27 TAO_BQNK *bqnk; 28 PetscErrorCode ierr; 29 30 PetscFunctionBegin; 31 ierr = TaoCreate_BQNK(tao);CHKERRQ(ierr); 32 tao->ops->setup = TaoSetUp_BQNKTL; 33 bnk = (TAO_BNK*)tao->data; 34 bqnk = (TAO_BQNK*)bnk->ctx; 35 bqnk->solve = TaoSolve_BNTL; 36 PetscFunctionReturn(0); 37 } 38