Searched refs:_classbase (Results 1 – 1 of 1) sorted by relevance
16 static FortranCallbackBase *_classbase; variable23 FortranCallbackBase *base = &_classbase[i - PETSC_SMALLEST_CLASSID]; in PetscFortranCallbackFinalize()31 PetscCall(PetscFree(_classbase)); in PetscFortranCallbackFinalize()66 if (!_classbase) PetscCall(PetscRegisterFinalize(PetscFortranCallbackFinalize)); in PetscFortranCallbackRegister()68 PetscCall(PetscArraycpy(newbase, _classbase, _maxclassid - PETSC_SMALLEST_CLASSID)); in PetscFortranCallbackRegister()69 PetscCall(PetscFree(_classbase)); in PetscFortranCallbackRegister()71 _classbase = newbase; in PetscFortranCallbackRegister()74 base = &_classbase[classid - PETSC_SMALLEST_CLASSID]; in PetscFortranCallbackRegister()122 FortranCallbackBase *base = &_classbase[classid - PETSC_SMALLEST_CLASSID]; in PetscFortranCallbackGetSizes()