Searched refs:PETSC_SMALLEST_FORTRAN_CALLBACK (Results 1 – 3 of 3) sorted by relevance
75 if (!subtype) *id = PETSC_SMALLEST_FORTRAN_CALLBACK + base->basecount++; in PetscFortranCallbackRegister()88 link->max = PETSC_SMALLEST_FORTRAN_CALLBACK; in PetscFortranCallbackRegister()95 …se->maxsubtypecount = PetscMax(base->maxsubtypecount, link->max - PETSC_SMALLEST_FORTRAN_CALLBACK); in PetscFortranCallbackRegister()
272 if (*cid >= PETSC_SMALLEST_FORTRAN_CALLBACK + obj->num_fortrancallback[cbtype]) { in PetscObjectSetFortranCallback()274 … PetscFortranCallbackId newnum = PetscMax(*cid - PETSC_SMALLEST_FORTRAN_CALLBACK + 1, 2 * oldnum); in PetscObjectSetFortranCallback()283 obj->fortrancallback[cbtype][*cid - PETSC_SMALLEST_FORTRAN_CALLBACK].func = func; in PetscObjectSetFortranCallback()284 obj->fortrancallback[cbtype][*cid - PETSC_SMALLEST_FORTRAN_CALLBACK].ctx = ctx; in PetscObjectSetFortranCallback()315 …PetscCheck(cid >= PETSC_SMALLEST_FORTRAN_CALLBACK, obj->comm, PETSC_ERR_ARG_CORRUPT, "Fortran call… in PetscObjectGetFortranCallback()316 …PetscCheck(cid < PETSC_SMALLEST_FORTRAN_CALLBACK + obj->num_fortrancallback[cbtype], obj->comm, PE… in PetscObjectGetFortranCallback()317 cb = &obj->fortrancallback[cbtype][cid - PETSC_SMALLEST_FORTRAN_CALLBACK]; in PetscObjectGetFortranCallback()
80 #define PETSC_SMALLEST_FORTRAN_CALLBACK ((PetscFortranCallbackId)1000) macro