1 #define TAO_DLL 2 3 #include <petsc/private/taoimpl.h> /*I "petsctao.h" I*/ 4 5 6 PETSC_EXTERN PetscErrorCode TaoCreate_LMVM(Tao); 7 PETSC_EXTERN PetscErrorCode TaoCreate_NLS(Tao); 8 PETSC_EXTERN PetscErrorCode TaoCreate_NTR(Tao); 9 PETSC_EXTERN PetscErrorCode TaoCreate_NTL(Tao); 10 PETSC_EXTERN PetscErrorCode TaoCreate_NM(Tao); 11 PETSC_EXTERN PetscErrorCode TaoCreate_CG(Tao); 12 PETSC_EXTERN PetscErrorCode TaoCreate_PGD(Tao); 13 PETSC_EXTERN PetscErrorCode TaoCreate_TRON(Tao); 14 PETSC_EXTERN PetscErrorCode TaoCreate_OWLQN(Tao); 15 PETSC_EXTERN PetscErrorCode TaoCreate_BMRM(Tao); 16 PETSC_EXTERN PetscErrorCode TaoCreate_BLMVM(Tao); 17 PETSC_EXTERN PetscErrorCode TaoCreate_GPCG(Tao); 18 PETSC_EXTERN PetscErrorCode TaoCreate_BQPIP(Tao); 19 PETSC_EXTERN PetscErrorCode TaoCreate_POUNDERS(Tao); 20 PETSC_EXTERN PetscErrorCode TaoCreate_Test(Tao); 21 PETSC_EXTERN PetscErrorCode TaoCreate_LCL(Tao); 22 PETSC_EXTERN PetscErrorCode TaoCreate_SSILS(Tao); 23 PETSC_EXTERN PetscErrorCode TaoCreate_SSFLS(Tao); 24 PETSC_EXTERN PetscErrorCode TaoCreate_ASILS(Tao); 25 PETSC_EXTERN PetscErrorCode TaoCreate_ASFLS(Tao); 26 PETSC_EXTERN PetscErrorCode TaoCreate_IPM(Tao); 27 28 /* 29 Offset the convergence reasons so negative number represent diverged and 30 positive represent converged. 31 */ 32 const char *TaoConvergedReasons_Shifted[] = { 33 "DIVERGED_USER", 34 "DIVERGED_TR_REDUCTION", 35 "DIVERGED_LS_FAILURE", 36 "DIVERGED_MAXFCN", 37 "DIVERGED_NAN", 38 "DIVERGED_MAXITS", 39 "DIVERGED_FUNCTION_DOMAIN", 40 41 "CONTINUE_ITERATING", 42 43 "", 44 "", 45 "CONVERGED_GATOL", 46 "CONVERGED_GRTOL", 47 "CONVERGED_GTTOL", 48 "CONVERGED_STEPTOL", 49 "CONVERGED_MINF", 50 "CONVERGED_USER" }; 51 const char **TaoConvergedReasons = TaoConvergedReasons_Shifted + 7; 52 extern PetscBool TaoRegisterAllCalled; 53 54 /*@C 55 TaoRegisterAll - Registers all of the minimization methods in the TAO 56 package. 57 58 Not Collective 59 60 Level: developer 61 62 .seealso TaoRegister(), TaoRegisterDestroy() 63 @*/ 64 PetscErrorCode TaoRegisterAll(void) 65 { 66 PetscErrorCode ierr; 67 68 PetscFunctionBegin; 69 if (TaoRegisterAllCalled) PetscFunctionReturn(0); 70 TaoRegisterAllCalled = PETSC_TRUE; 71 #if !defined(PETSC_USE_COMPLEX) 72 ierr = TaoRegister(TAOLMVM,TaoCreate_LMVM);CHKERRQ(ierr); 73 ierr = TaoRegister(TAONLS,TaoCreate_NLS);CHKERRQ(ierr); 74 ierr = TaoRegister(TAONTR,TaoCreate_NTR);CHKERRQ(ierr); 75 ierr = TaoRegister(TAONTL,TaoCreate_NTL);CHKERRQ(ierr); 76 ierr = TaoRegister(TAOCG,TaoCreate_CG);CHKERRQ(ierr); 77 ierr = TaoRegister(TAOPGD,TaoCreate_PGD);CHKERRQ(ierr); 78 ierr = TaoRegister(TAOTRON,TaoCreate_TRON);CHKERRQ(ierr); 79 ierr = TaoRegister(TAOOWLQN,TaoCreate_OWLQN);CHKERRQ(ierr); 80 ierr = TaoRegister(TAOBMRM,TaoCreate_BMRM);CHKERRQ(ierr); 81 ierr = TaoRegister(TAOBLMVM,TaoCreate_BLMVM);CHKERRQ(ierr); 82 ierr = TaoRegister(TAOBQPIP,TaoCreate_BQPIP);CHKERRQ(ierr); 83 ierr = TaoRegister(TAOGPCG,TaoCreate_GPCG);CHKERRQ(ierr); 84 ierr = TaoRegister(TAONM,TaoCreate_NM);CHKERRQ(ierr); 85 ierr = TaoRegister(TAOPOUNDERS,TaoCreate_POUNDERS);CHKERRQ(ierr); 86 ierr = TaoRegister(TAOLCL,TaoCreate_LCL);CHKERRQ(ierr); 87 ierr = TaoRegister(TAOSSILS,TaoCreate_SSILS);CHKERRQ(ierr); 88 ierr = TaoRegister(TAOSSFLS,TaoCreate_SSFLS);CHKERRQ(ierr); 89 ierr = TaoRegister(TAOASILS,TaoCreate_ASILS);CHKERRQ(ierr); 90 ierr = TaoRegister(TAOASFLS,TaoCreate_ASFLS);CHKERRQ(ierr); 91 ierr = TaoRegister(TAOIPM,TaoCreate_IPM);CHKERRQ(ierr); 92 #endif 93 ierr = TaoRegister(TAOTEST,TaoCreate_Test);CHKERRQ(ierr); 94 PetscFunctionReturn(0); 95 } 96