3569 static PetscErrorCode DSBoundaryDuplicate_Internal(DSBoundary b, DSBoundary *bNew)  in DSBoundaryDuplicate_Internal()  argument
3572   PetscCall(PetscNew(bNew));  in DSBoundaryDuplicate_Internal()
3573   PetscCall(PetscWeakFormCreate(PETSC_COMM_SELF, &(*bNew)->wf));  in DSBoundaryDuplicate_Internal()
3574   PetscCall(PetscWeakFormCopy(b->wf, (*bNew)->wf));  in DSBoundaryDuplicate_Internal()
3575   PetscCall(PetscStrallocpy(b->name, (char **)&((*bNew)->name)));  in DSBoundaryDuplicate_Internal()
3576   PetscCall(PetscStrallocpy(b->lname, (char **)&((*bNew)->lname)));  in DSBoundaryDuplicate_Internal()
3577   (*bNew)->type  = b->type;  in DSBoundaryDuplicate_Internal()
3578   (*bNew)->label = b->label;  in DSBoundaryDuplicate_Internal()
3579   (*bNew)->Nv    = b->Nv;  in DSBoundaryDuplicate_Internal()
3580   PetscCall(PetscMalloc1(b->Nv, &(*bNew)->values));  in DSBoundaryDuplicate_Internal()
3581   PetscCall(PetscArraycpy((*bNew)->values, b->values, b->Nv));  in DSBoundaryDuplicate_Internal()
3582   (*bNew)->field = b->field;  in DSBoundaryDuplicate_Internal()
3583   (*bNew)->Nc    = b->Nc;  in DSBoundaryDuplicate_Internal()
3584   PetscCall(PetscMalloc1(b->Nc, &(*bNew)->comps));  in DSBoundaryDuplicate_Internal()
3585   PetscCall(PetscArraycpy((*bNew)->comps, b->comps, b->Nc));  in DSBoundaryDuplicate_Internal()
3586   (*bNew)->func   = b->func;  in DSBoundaryDuplicate_Internal()
3587   (*bNew)->func_t = b->func_t;  in DSBoundaryDuplicate_Internal()
3588   (*bNew)->ctx    = b->ctx;  in DSBoundaryDuplicate_Internal()
3620     DSBoundary bNew;  in PetscDSCopyBoundary()  local
3631     PetscCall(DSBoundaryDuplicate_Internal(b, &bNew));  in PetscDSCopyBoundary()
3632     bNew->field = fieldNew < 0 ? b->field : fieldNew;  in PetscDSCopyBoundary()
3633     *lastnext   = bNew;  in PetscDSCopyBoundary()
3634     lastnext    = &bNew->next;  in PetscDSCopyBoundary()