1: #include <petsc/private/vecimpl.h>

  3: PetscClassId VEC_TAGGER_CLASSID;

  5: static PetscBool VecTaggerPackageInitialized = PETSC_FALSE;

  7: PetscBool VecTaggerRegisterAllCalled;

  9: /*@C
 10:   VecTaggerInitializePackage - Initialize VecTagger package

 12:   Logically Collective

 14:   Level: developer

 16: .seealso: `VecTaggerFinalizePackage()`
 17: @*/
 18: PetscErrorCode VecTaggerInitializePackage(void)
 19: {
 20:   PetscFunctionBegin;
 21:   if (VecTaggerPackageInitialized) PetscFunctionReturn(PETSC_SUCCESS);
 22:   VecTaggerPackageInitialized = PETSC_TRUE;

 24:   PetscCall(PetscClassIdRegister("Vector Indices Tagger", &VEC_TAGGER_CLASSID));
 25:   PetscCall(VecTaggerRegisterAll());
 26:   PetscCall(PetscRegisterFinalize(VecTaggerFinalizePackage));
 27:   PetscFunctionReturn(PETSC_SUCCESS);
 28: }

 30: /*@C
 31:   VecTaggerFinalizePackage - Finalize VecTagger package, it is called from PetscFinalize()

 33:   Logically Collective

 35:   Level: developer

 37: .seealso: `VecTaggerInitializePackage()`
 38: @*/
 39: PetscErrorCode VecTaggerFinalizePackage(void)
 40: {
 41:   PetscFunctionBegin;
 42:   PetscCall(PetscFunctionListDestroy(&VecTaggerList));
 43:   VecTaggerPackageInitialized = PETSC_FALSE;
 44:   VecTaggerRegisterAllCalled  = PETSC_FALSE;
 45:   PetscFunctionReturn(PETSC_SUCCESS);
 46: }