220 PetscErrorCode PetscObjectCopyFortranFunctionPointers(PetscObject src, PetscObject dest)  in PetscObjectCopyFortranFunctionPointers()  argument
226   PetscValidHeader(dest, 2);  in PetscObjectCopyFortranFunctionPointers()
227 …PetscCheck(src->classid == dest->classid, src->comm, PETSC_ERR_ARG_INCOMP, "Objects must be of the…  in PetscObjectCopyFortranFunctionPointers()
229   PetscCall(PetscFree(dest->fortran_func_pointers));  in PetscObjectCopyFortranFunctionPointers()
230 …PetscCall(PetscMalloc(src->num_fortran_func_pointers * sizeof(PetscFortranCallbackFn *), &dest->fo…  in PetscObjectCopyFortranFunctionPointers()
231 …PetscCall(PetscArraycpy(dest->fortran_func_pointers, src->fortran_func_pointers, src->num_fortran_…  in PetscObjectCopyFortranFunctionPointers()
233   dest->num_fortran_func_pointers = src->num_fortran_func_pointers;  in PetscObjectCopyFortranFunctionPointers()
237     PetscCall(PetscFree(dest->fortrancallback[cbtype]));  in PetscObjectCopyFortranFunctionPointers()
238     PetscCall(PetscCalloc1(numcb[cbtype], &dest->fortrancallback[cbtype]));  in PetscObjectCopyFortranFunctionPointers()
239 …PetscCall(PetscArraycpy(dest->fortrancallback[cbtype], src->fortrancallback[cbtype], src->num_fort…  in PetscObjectCopyFortranFunctionPointers()
240     dest->num_fortrancallback[cbtype] = src->num_fortrancallback[cbtype];  in PetscObjectCopyFortranFunctionPointers()