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