1a7e14dcfSSatish Balay #define TAOLINESEARCH_DLL 2af0996ceSBarry 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 /*@C 13a7e14dcfSSatish Balay TaoLineSearchFinalizePackage - This function destroys everything in the PETSc/TAO 14a7e14dcfSSatish Balay interface to the TaoLineSearch package. It is called from PetscFinalize(). 15a7e14dcfSSatish Balay 16a7e14dcfSSatish Balay Level: developer 17a7e14dcfSSatish Balay @*/ 18a7e14dcfSSatish Balay PetscErrorCode TaoLineSearchFinalizePackage(void) 19a7e14dcfSSatish Balay { 20a7e14dcfSSatish Balay PetscErrorCode ierr; 21a7e14dcfSSatish Balay 22a7e14dcfSSatish Balay PetscFunctionBegin; 23a7e14dcfSSatish Balay ierr = PetscFunctionListDestroy(&TaoLineSearchList);CHKERRQ(ierr); 24a7e14dcfSSatish Balay TaoLineSearchPackageInitialized = PETSC_FALSE; 25a7e14dcfSSatish Balay PetscFunctionReturn(0); 26a7e14dcfSSatish Balay } 27a7e14dcfSSatish Balay 28a7e14dcfSSatish Balay /*@C 29a7e14dcfSSatish Balay TaoLineSearchInitializePackage - This function registers the line-search 30a7e14dcfSSatish Balay algorithms in TAO. 31a7e14dcfSSatish Balay When using static libraries, this function is called from the 32a7e14dcfSSatish Balay first entry to TaoCreate(); when using shared libraries, it is called 33a7e14dcfSSatish Balay from PetscDLLibraryRegister() 34a7e14dcfSSatish Balay 35a7e14dcfSSatish Balay Level: developer 36a7e14dcfSSatish Balay 37a7e14dcfSSatish Balay .seealso: TaoLineSearchCreate() 38a7e14dcfSSatish Balay @*/ 39600047eeSSatish Balay PetscErrorCode TaoLineSearchInitializePackage(void) 40a7e14dcfSSatish Balay { 41a7e14dcfSSatish Balay PetscErrorCode ierr; 42a7e14dcfSSatish Balay 43a7e14dcfSSatish Balay PetscFunctionBegin; 44a7e14dcfSSatish Balay if (TaoLineSearchPackageInitialized) PetscFunctionReturn(0); 45a7e14dcfSSatish Balay TaoLineSearchPackageInitialized=PETSC_TRUE; 4646bdf8c8SLisandro Dalcin #if !defined(PETSC_USE_COMPLEX) 47a7e14dcfSSatish Balay ierr = PetscClassIdRegister("TaoLineSearch",&TAOLINESEARCH_CLASSID);CHKERRQ(ierr); 48a7e14dcfSSatish Balay ierr = TaoLineSearchRegister("unit",TaoLineSearchCreate_Unit);CHKERRQ(ierr); 49a7e14dcfSSatish Balay ierr = TaoLineSearchRegister("more-thuente",TaoLineSearchCreate_MT);CHKERRQ(ierr); 50a7e14dcfSSatish Balay ierr = TaoLineSearchRegister("gpcg",TaoLineSearchCreate_GPCG);CHKERRQ(ierr); 51a7e14dcfSSatish Balay ierr = TaoLineSearchRegister("armijo",TaoLineSearchCreate_Armijo);CHKERRQ(ierr); 52a7e14dcfSSatish Balay ierr = TaoLineSearchRegister("owarmijo",TaoLineSearchCreate_OWArmijo);CHKERRQ(ierr); 53*0ebee16dSLisandro Dalcin ierr = PetscLogEventRegister("TaoLineSearchApply",TAOLINESEARCH_CLASSID,&TAOLINESEARCH_Apply);CHKERRQ(ierr); 54*0ebee16dSLisandro Dalcin ierr = PetscLogEventRegister("TaoLineSearchEval", TAOLINESEARCH_CLASSID,&TAOLINESEARCH_Eval);CHKERRQ(ierr); 5546bdf8c8SLisandro Dalcin #endif 56a7e14dcfSSatish Balay ierr = PetscRegisterFinalize(TaoLineSearchFinalizePackage);CHKERRQ(ierr); 57a7e14dcfSSatish Balay PetscFunctionReturn(0); 58a7e14dcfSSatish Balay } 59a7e14dcfSSatish Balay 60a7e14dcfSSatish Balay 61a7e14dcfSSatish Balay 62