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