23     FortranCallbackBase *base = &_classbase[i - PETSC_SMALLEST_CLASSID];  in PetscFortranCallbackFinalize()  local
24     FortranCallbackLink  next, link = base->subtypes;  in PetscFortranCallbackFinalize()
55   FortranCallbackBase *base;  in PetscFortranCallbackRegister()  local
74   base = &_classbase[classid - PETSC_SMALLEST_CLASSID];  in PetscFortranCallbackRegister()
75   if (!subtype) *id = PETSC_SMALLEST_FORTRAN_CALLBACK + base->basecount++;  in PetscFortranCallbackRegister()
77 …for (link = base->subtypes; link; link = link->next) { /* look for either both NULL or matching va…  in PetscFortranCallbackRegister()
89     link->next     = base->subtypes;  in PetscFortranCallbackRegister()
90     base->subtypes = link;  in PetscFortranCallbackRegister()
95 …base->maxsubtypecount = PetscMax(base->maxsubtypecount, link->max - PETSC_SMALLEST_FORTRAN_CALLBAC…  in PetscFortranCallbackRegister()
122     FortranCallbackBase *base = &_classbase[classid - PETSC_SMALLEST_CLASSID];  in PetscFortranCallbackGetSizes()  local
123     *numbase                  = base->basecount;  in PetscFortranCallbackGetSizes()
124     *numsubtype               = base->maxsubtypecount;  in PetscFortranCallbackGetSizes()