1 #include <petsc/private/characteristicimpl.h> 2 3 static PetscBool CharacteristicPackageInitialized = PETSC_FALSE; 4 /*@C 5 CharacteristicFinalizePackage - This function destroys everything in the Petsc interface to the characteristics package. It is 6 called from PetscFinalize(). 7 8 Level: developer 9 10 .keywords: Petsc, destroy, package, finalize 11 .seealso: PetscFinalize() 12 @*/ 13 PetscErrorCode CharacteristicFinalizePackage(void) 14 { 15 PetscErrorCode ierr; 16 17 PetscFunctionBegin; 18 ierr = PetscFunctionListDestroy(&CharacteristicList);CHKERRQ(ierr); 19 CharacteristicPackageInitialized = PETSC_FALSE; 20 CharacteristicRegisterAllCalled = PETSC_FALSE; 21 PetscFunctionReturn(0); 22 } 23 24 /*@C 25 CharacteristicInitializePackage - This function initializes everything in the Characteristic package. It is called 26 from PetscDLLibraryRegister() when using dynamic libraries, and on the first call to CharacteristicCreate() 27 when using static libraries. 28 29 Level: developer 30 31 .keywords: Characteristic, initialize, package 32 .seealso: PetscInitialize() 33 @*/ 34 PetscErrorCode CharacteristicInitializePackage(void) 35 { 36 char logList[256]; 37 PetscBool opt,pkg; 38 PetscErrorCode ierr; 39 40 PetscFunctionBegin; 41 if (CharacteristicPackageInitialized) PetscFunctionReturn(0); 42 CharacteristicPackageInitialized = PETSC_TRUE; 43 /* Register Classes */ 44 ierr = PetscClassIdRegister("Method of Characteristics",&CHARACTERISTIC_CLASSID);CHKERRQ(ierr); 45 /* Register Constructors */ 46 ierr = CharacteristicRegisterAll();CHKERRQ(ierr); 47 /* Register Events */ 48 ierr = PetscLogEventRegister("MOCSetUp", CHARACTERISTIC_CLASSID,&CHARACTERISTIC_SetUp);CHKERRQ(ierr); 49 ierr = PetscLogEventRegister("MOCSolve", CHARACTERISTIC_CLASSID,&CHARACTERISTIC_Solve);CHKERRQ(ierr); 50 ierr = PetscLogEventRegister("MOCQueueSetup", CHARACTERISTIC_CLASSID,&CHARACTERISTIC_QueueSetup);CHKERRQ(ierr); 51 ierr = PetscLogEventRegister("MOCDAUpdate", CHARACTERISTIC_CLASSID,&CHARACTERISTIC_DAUpdate);CHKERRQ(ierr); 52 ierr = PetscLogEventRegister("MOCHalfTimeLocal", CHARACTERISTIC_CLASSID,&CHARACTERISTIC_HalfTimeLocal);CHKERRQ(ierr); 53 ierr = PetscLogEventRegister("MOCHalfTimeRemot", CHARACTERISTIC_CLASSID,&CHARACTERISTIC_HalfTimeRemote);CHKERRQ(ierr); 54 ierr = PetscLogEventRegister("MOCHalfTimeExchg", CHARACTERISTIC_CLASSID,&CHARACTERISTIC_HalfTimeExchange);CHKERRQ(ierr); 55 ierr = PetscLogEventRegister("MOCFullTimeLocal", CHARACTERISTIC_CLASSID,&CHARACTERISTIC_FullTimeLocal);CHKERRQ(ierr); 56 ierr = PetscLogEventRegister("MOCFullTimeRemot", CHARACTERISTIC_CLASSID,&CHARACTERISTIC_FullTimeRemote);CHKERRQ(ierr); 57 ierr = PetscLogEventRegister("MOCFullTimeExchg", CHARACTERISTIC_CLASSID,&CHARACTERISTIC_FullTimeExchange);CHKERRQ(ierr); 58 /* Process info exclusions */ 59 ierr = PetscOptionsGetString(NULL,NULL,"-info_exclude",logList,sizeof(logList),&opt);CHKERRQ(ierr); 60 if (opt) { 61 ierr = PetscStrInList("characteristic",logList,',',&pkg);CHKERRQ(ierr); 62 if (pkg) {ierr = PetscInfoDeactivateClass(CHARACTERISTIC_CLASSID);CHKERRQ(ierr);} 63 } 64 /* Process summary exclusions */ 65 ierr = PetscOptionsGetString(NULL,NULL,"-log_exclude",logList,sizeof(logList),&opt);CHKERRQ(ierr); 66 if (opt) { 67 ierr = PetscStrInList("characteristic",logList,',',&pkg);CHKERRQ(ierr); 68 if (pkg) {ierr = PetscLogEventExcludeClass(CHARACTERISTIC_CLASSID);CHKERRQ(ierr);} 69 } 70 /* Process package finalizer */ 71 ierr = PetscRegisterFinalize(CharacteristicFinalizePackage);CHKERRQ(ierr); 72 PetscFunctionReturn(0); 73 } 74 75 #if defined(PETSC_HAVE_DYNAMIC_LIBRARIES) 76 /* 77 PetscDLLibraryRegister - This function is called when the dynamic library it is in is opened. 78 79 This one registers the method of characteristics code 80 81 */ 82 PETSC_EXTERN PetscErrorCode PetscDLLibraryRegister_petsccharacteristic(void) 83 { 84 PetscErrorCode ierr; 85 86 PetscFunctionBegin; 87 ierr = CharacteristicInitializePackage();CHKERRQ(ierr); 88 PetscFunctionReturn(0); 89 } 90 91 #endif /* PETSC_HAVE_DYNAMIC_LIBRARIES */ 92