1 #define TAOLINESEARCH_DLL 2 #include <petsc/private/taolinesearchimpl.h> 3 4 5 PETSC_EXTERN PetscErrorCode TaoLineSearchCreate_Unit(TaoLineSearch); 6 PETSC_EXTERN PetscErrorCode TaoLineSearchCreate_MT(TaoLineSearch); 7 PETSC_EXTERN PetscErrorCode TaoLineSearchCreate_GPCG(TaoLineSearch); 8 PETSC_EXTERN PetscErrorCode TaoLineSearchCreate_Armijo(TaoLineSearch); 9 PETSC_EXTERN PetscErrorCode TaoLineSearchCreate_OWArmijo(TaoLineSearch); 10 static PetscBool TaoLineSearchPackageInitialized = PETSC_FALSE; 11 12 /*@C 13 TaoLineSearchFinalizePackage - This function destroys everything in the PETSc/TAO 14 interface to the TaoLineSearch package. It is called from PetscFinalize(). 15 16 Level: developer 17 @*/ 18 PetscErrorCode TaoLineSearchFinalizePackage(void) 19 { 20 PetscErrorCode ierr; 21 22 PetscFunctionBegin; 23 ierr = PetscFunctionListDestroy(&TaoLineSearchList);CHKERRQ(ierr); 24 TaoLineSearchPackageInitialized = PETSC_FALSE; 25 PetscFunctionReturn(0); 26 } 27 28 /*@C 29 TaoLineSearchInitializePackage - This function registers the line-search 30 algorithms in TAO. When using shared or static libraries, this function is called from the 31 first entry to TaoCreate(); when using dynamic, it is called 32 from PetscDLLibraryRegister_tao() 33 34 Level: developer 35 36 .seealso: TaoLineSearchCreate() 37 @*/ 38 PetscErrorCode TaoLineSearchInitializePackage(void) 39 { 40 PetscErrorCode ierr; 41 42 PetscFunctionBegin; 43 if (TaoLineSearchPackageInitialized) PetscFunctionReturn(0); 44 TaoLineSearchPackageInitialized=PETSC_TRUE; 45 #if !defined(PETSC_USE_COMPLEX) 46 ierr = PetscClassIdRegister("TaoLineSearch",&TAOLINESEARCH_CLASSID);CHKERRQ(ierr); 47 ierr = TaoLineSearchRegister("unit",TaoLineSearchCreate_Unit);CHKERRQ(ierr); 48 ierr = TaoLineSearchRegister("more-thuente",TaoLineSearchCreate_MT);CHKERRQ(ierr); 49 ierr = TaoLineSearchRegister("gpcg",TaoLineSearchCreate_GPCG);CHKERRQ(ierr); 50 ierr = TaoLineSearchRegister("armijo",TaoLineSearchCreate_Armijo);CHKERRQ(ierr); 51 ierr = TaoLineSearchRegister("owarmijo",TaoLineSearchCreate_OWArmijo);CHKERRQ(ierr); 52 ierr = PetscLogEventRegister("TaoLineSearchApply",TAOLINESEARCH_CLASSID,&TAOLINESEARCH_Apply);CHKERRQ(ierr); 53 ierr = PetscLogEventRegister("TaoLineSearchEval", TAOLINESEARCH_CLASSID,&TAOLINESEARCH_Eval);CHKERRQ(ierr); 54 #endif 55 ierr = PetscRegisterFinalize(TaoLineSearchFinalizePackage);CHKERRQ(ierr); 56 PetscFunctionReturn(0); 57 } 58 59 60 61