1 #define TAO_DLL 2 3 #include <petsc/private/taoimpl.h> 4 5 static PetscBool TaoPackageInitialized = PETSC_FALSE; 6 7 /*@C 8 TaoFinalizePackage - This function destroys everything in the PETSc/TAO 9 interface to the Tao package. It is called from PetscFinalize(). 10 11 Level: developer 12 @*/ 13 PetscErrorCode TaoFinalizePackage(void) 14 { 15 PetscErrorCode ierr; 16 17 PetscFunctionBegin; 18 ierr = PetscFunctionListDestroy(&TaoList);CHKERRQ(ierr); 19 TaoPackageInitialized = PETSC_FALSE; 20 PetscFunctionReturn(0); 21 } 22 23 /*@C 24 TaoInitializePackage - This function sets up PETSc to use the Tao 25 package. When using static libraries, this function is called from the 26 first entry to TaoCreate(); when using shared libraries, it is called 27 from PetscDLLibraryRegister() 28 29 Level: developer 30 31 .seealso: TaoCreate() 32 @*/ 33 PetscErrorCode TaoInitializePackage(void) 34 { 35 PetscErrorCode ierr; 36 37 PetscFunctionBegin; 38 39 if (TaoPackageInitialized) PetscFunctionReturn(0); 40 TaoPackageInitialized = PETSC_TRUE; 41 42 ierr = PetscClassIdRegister("Tao",&TAO_CLASSID);CHKERRQ(ierr); 43 44 /* Tell PETSc what solvers are available */ 45 ierr = TaoRegisterAll();CHKERRQ(ierr); 46 47 /* Tell PETSc what events are associated with Tao */ 48 ierr = PetscLogEventRegister("TaoSolve",TAO_CLASSID,&Tao_Solve);CHKERRQ(ierr); 49 ierr = PetscLogEventRegister("TaoObjectiveEval",TAO_CLASSID,&Tao_ObjectiveEval);CHKERRQ(ierr); 50 ierr = PetscLogEventRegister("TaoGradientEval",TAO_CLASSID,&Tao_GradientEval);CHKERRQ(ierr); 51 ierr = PetscLogEventRegister("TaoHessianEval",TAO_CLASSID,&Tao_HessianEval);CHKERRQ(ierr); 52 ierr = PetscLogEventRegister("TaoConstraintsEval",TAO_CLASSID,&Tao_ConstraintsEval);CHKERRQ(ierr); 53 ierr = PetscLogEventRegister("TaoJacobianEval",TAO_CLASSID,&Tao_JacobianEval);CHKERRQ(ierr); 54 55 ierr = PetscRegisterFinalize(TaoFinalizePackage);CHKERRQ(ierr); 56 PetscFunctionReturn(0); 57 } 58 59 #ifdef PETSC_USE_DYNAMIC_LIBRARIES 60 /* 61 PetscDLLibraryRegister - this function is called when the dynamic library it 62 is in is opened. 63 64 This registers all of the Tao methods that are in the libtao 65 library. 66 67 Input Parameter: 68 . path - library path 69 */ 70 71 PETSC_EXTERN PetscErrorCode PetscDLLibraryRegister_tao(void) 72 { 73 PetscErrorCode ierr; 74 75 PetscFunctionBegin; 76 ierr = TaoInitializePackage();CHKERRQ(ierr); 77 ierr = TaoLineSearchInitializePackage();CHKERRQ(ierr); 78 PetscFunctionReturn(0); 79 } 80 81 #endif /* PETSC_USE_DYNAMIC_LIBRARIES */ 82