Searched refs:cbtype (Results 1 – 1 of 1) sorted by relevance
222 PetscFortranCallbackId cbtype, numcb[PETSC_FORTRAN_CALLBACK_MAXTYPE]; in PetscObjectCopyFortranFunctionPointers() local236 for (cbtype = PETSC_FORTRAN_CALLBACK_CLASS; cbtype < PETSC_FORTRAN_CALLBACK_MAXTYPE; cbtype++) { in PetscObjectCopyFortranFunctionPointers()237 PetscCall(PetscFree(dest->fortrancallback[cbtype])); in PetscObjectCopyFortranFunctionPointers()238 PetscCall(PetscCalloc1(numcb[cbtype], &dest->fortrancallback[cbtype])); in PetscObjectCopyFortranFunctionPointers()239 …Call(PetscArraycpy(dest->fortrancallback[cbtype], src->fortrancallback[cbtype], src->num_fortranca… in PetscObjectCopyFortranFunctionPointers()240 dest->num_fortrancallback[cbtype] = src->num_fortrancallback[cbtype]; in PetscObjectCopyFortranFunctionPointers()264 PetscErrorCode PetscObjectSetFortranCallback(PetscObject obj, PetscFortranCallbackType cbtype, Pets… in PetscObjectSetFortranCallback() argument270 if (cbtype == PETSC_FORTRAN_CALLBACK_SUBTYPE) subtype = obj->type_name; in PetscObjectSetFortranCallback()272 if (*cid >= PETSC_SMALLEST_FORTRAN_CALLBACK + obj->num_fortrancallback[cbtype]) { in PetscObjectSetFortranCallback()273 PetscFortranCallbackId oldnum = obj->num_fortrancallback[cbtype]; in PetscObjectSetFortranCallback()[all …]