467   PetscSF            esf;  in PetscSFCreateEmbeddedRootSF_Basic()  local
479   PetscCall(PetscSFCreate(PetscObjectComm((PetscObject)sf), &esf));  in PetscSFCreateEmbeddedRootSF_Basic()
480   PetscCall(PetscSFSetFromOptions(esf));  in PetscSFCreateEmbeddedRootSF_Basic()
481 …PetscCall(PetscSFSetType(esf, PETSCSFBASIC)); /* This optimized routine can only create a basic sf…  in PetscSFCreateEmbeddedRootSF_Basic()
537 …PetscCall(PetscSFSetGraph(esf, nroots, esf_nleaves, new_ilocal, PETSC_OWN_POINTER, new_iremote, PE…  in PetscSFCreateEmbeddedRootSF_Basic()
538   esf->nranks    = esf_nranks;  in PetscSFCreateEmbeddedRootSF_Basic()
539   esf->ndranks   = esf_ndranks;  in PetscSFCreateEmbeddedRootSF_Basic()
540   esf->ranks     = esf_ranks;  in PetscSFCreateEmbeddedRootSF_Basic()
541   esf->roffset   = esf_roffset;  in PetscSFCreateEmbeddedRootSF_Basic()
542   esf->rmine     = esf_rmine;  in PetscSFCreateEmbeddedRootSF_Basic()
543   esf->rremote   = esf_rremote;  in PetscSFCreateEmbeddedRootSF_Basic()
544   esf->nleafreqs = esf_nranks - esf_ndranks;  in PetscSFCreateEmbeddedRootSF_Basic()
547   bas = (PetscSF_Basic *)esf->data;  in PetscSFCreateEmbeddedRootSF_Basic()
575   esf->persistent = PETSC_TRUE;  in PetscSFCreateEmbeddedRootSF_Basic()
577   PetscCall(PetscSFSetUpPackFields(esf));  in PetscSFCreateEmbeddedRootSF_Basic()
581   if (esf->backend == PETSCSF_BACKEND_CUDA) {  in PetscSFCreateEmbeddedRootSF_Basic()
582     esf->ops->Malloc = PetscSFMalloc_CUDA;  in PetscSFCreateEmbeddedRootSF_Basic()
583     esf->ops->Free   = PetscSFFree_CUDA;  in PetscSFCreateEmbeddedRootSF_Basic()
589   if (esf->backend == PETSCSF_BACKEND_HIP) {  in PetscSFCreateEmbeddedRootSF_Basic()
590     esf->ops->Malloc = PetscSFMalloc_HIP;  in PetscSFCreateEmbeddedRootSF_Basic()
591     esf->ops->Free   = PetscSFFree_HIP;  in PetscSFCreateEmbeddedRootSF_Basic()
596   if (esf->backend == PETSCSF_BACKEND_KOKKOS) {  in PetscSFCreateEmbeddedRootSF_Basic()
597     esf->ops->Malloc = PetscSFMalloc_Kokkos;  in PetscSFCreateEmbeddedRootSF_Basic()
598     esf->ops->Free   = PetscSFFree_Kokkos;  in PetscSFCreateEmbeddedRootSF_Basic()
601   esf->setupcalled = PETSC_TRUE; /* We have done setup ourselves! */  in PetscSFCreateEmbeddedRootSF_Basic()
603   *newsf = esf;  in PetscSFCreateEmbeddedRootSF_Basic()