170   PetscInt       cbtype,numcb[PETSC_FORTRAN_CALLBACK_MAXTYPE];  in PetscObjectCopyFortranFunctionPointers()  local
184   for (cbtype=PETSC_FORTRAN_CALLBACK_CLASS; cbtype<PETSC_FORTRAN_CALLBACK_MAXTYPE; cbtype++) {  in PetscObjectCopyFortranFunctionPointers()
185     ierr = PetscFree(dest->fortrancallback[cbtype]);CHKERRQ(ierr);  in PetscObjectCopyFortranFunctionPointers()
186     ierr = PetscCalloc1(numcb[cbtype],&dest->fortrancallback[cbtype]);CHKERRQ(ierr);  in PetscObjectCopyFortranFunctionPointers()
187 …ierr = PetscMemcpy(dest->fortrancallback[cbtype],src->fortrancallback[cbtype],src->num_fortrancall…  in PetscObjectCopyFortranFunctionPointers()
188     dest->num_fortrancallback[cbtype] = src->num_fortrancallback[cbtype];  in PetscObjectCopyFortranFunctionPointers()
209 PetscErrorCode PetscObjectSetFortranCallback(PetscObject obj,PetscFortranCallbackType cbtype,PetscF…  in PetscObjectSetFortranCallback()  argument
216   if (cbtype == PETSC_FORTRAN_CALLBACK_SUBTYPE) subtype = obj->type_name;  in PetscObjectSetFortranCallback()
218   if (*cid >= PETSC_SMALLEST_FORTRAN_CALLBACK+obj->num_fortrancallback[cbtype]) {  in PetscObjectSetFortranCallback()
219     PetscInt             oldnum = obj->num_fortrancallback[cbtype],newnum = PetscMax(1,2*oldnum);  in PetscObjectSetFortranCallback()
222 …ierr = PetscMemcpy(callback,obj->fortrancallback[cbtype],oldnum*sizeof(*obj->fortrancallback[cbtyp…  in PetscObjectSetFortranCallback()
223     ierr = PetscFree(obj->fortrancallback[cbtype]);CHKERRQ(ierr);  in PetscObjectSetFortranCallback()
225     obj->fortrancallback[cbtype] = callback;  in PetscObjectSetFortranCallback()
226     obj->num_fortrancallback[cbtype] = newnum;  in PetscObjectSetFortranCallback()
228   obj->fortrancallback[cbtype][*cid-PETSC_SMALLEST_FORTRAN_CALLBACK].func = func;  in PetscObjectSetFortranCallback()
229   obj->fortrancallback[cbtype][*cid-PETSC_SMALLEST_FORTRAN_CALLBACK].ctx = ctx;  in PetscObjectSetFortranCallback()
251 PetscErrorCode PetscObjectGetFortranCallback(PetscObject obj,PetscFortranCallbackType cbtype,PetscF…  in PetscObjectGetFortranCallback()  argument
258 …if (PetscUnlikely(cid >= PETSC_SMALLEST_FORTRAN_CALLBACK+obj->num_fortrancallback[cbtype])) SETERR…  in PetscObjectGetFortranCallback()
259   cb = &obj->fortrancallback[cbtype][cid-PETSC_SMALLEST_FORTRAN_CALLBACK];  in PetscObjectGetFortranCallback()