1*e0ed867bSAlp Dener #include <../src/tao/bound/impls/bqnk/bqnk.h> 2*e0ed867bSAlp Dener 3*e0ed867bSAlp Dener PETSC_EXTERN PetscErrorCode TaoCreate_BQNKLS(Tao tao) 4*e0ed867bSAlp Dener { 5*e0ed867bSAlp Dener TAO_BNK *bnk; 6*e0ed867bSAlp Dener PetscErrorCode ierr; 7*e0ed867bSAlp Dener 8*e0ed867bSAlp Dener PetscFunctionBegin; 9*e0ed867bSAlp Dener ierr = TaoCreate_BQNK(tao);CHKERRQ(ierr); 10*e0ed867bSAlp Dener tao->ops->solve = TaoSolve_BNLS; 11*e0ed867bSAlp Dener bnk = (TAO_BNK*)tao->data; 12*e0ed867bSAlp Dener bnk->update_type = BNK_UPDATE_STEP; 13*e0ed867bSAlp Dener PetscFunctionReturn(0); 14*e0ed867bSAlp Dener }