20         PetscInt  ldr = PETSC_DECIDE;  in TestVector()  local
24         if (r == 1) ldr = mr;  in TestVector()
25         if (r == 2) ldr = mr + 7;  in TestVector()
29         PetscCall(PetscSFCreateStridedSF(sf, bs, ldr, ldl, &vsf));  in TestVector()
30         if (ldr == PETSC_DECIDE) ldr = mr;  in TestVector()
33 … PetscCall(PetscCalloc4(bs * ldr, &rdata, bs * ldl, &ldata, bs * ldr, &rdatav, bs * ldl, &ldatav));  in TestVector()
34         for (PetscInt i = 0; i < bs * ldr; i++) rdata[i] = i + 1;  in TestVector()
37 …PetscCall(PetscSFBcastBegin(sf, MPIU_INT, PetscSafePointerPlusOffset(rdata, i * ldr), PetscSafePoi…  in TestVector()
38 …PetscCall(PetscSFBcastEnd(sf, MPIU_INT, PetscSafePointerPlusOffset(rdata, i * ldr), PetscSafePoint…  in TestVector()
46 …ck size %" PetscInt_FMT ", ldr %" PetscInt_FMT ", ldl %" PetscInt_FMT "\n", sfname, bs, ldr, ldl));  in TestVector()
52         PetscCall(PetscArrayzero(rdata, bs * ldr));  in TestVector()
53         PetscCall(PetscArrayzero(rdatav, bs * ldr));  in TestVector()
56 … PetscSafePointerPlusOffset(ldata, i * ldl), PetscSafePointerPlusOffset(rdata, i * ldr), MPI_SUM));  in TestVector()
57 … PetscSafePointerPlusOffset(ldata, i * ldl), PetscSafePointerPlusOffset(rdata, i * ldr), MPI_SUM));  in TestVector()
61         PetscCall(PetscArraycmp(rdata, rdatav, bs * ldr, &flg));  in TestVector()
64 …ck size %" PetscInt_FMT ", ldr %" PetscInt_FMT ", ldl %" PetscInt_FMT "\n", sfname, bs, ldr, ldl));  in TestVector()
66           PetscCall(PetscIntView(bs * ldr, rdata, PETSC_VIEWER_STDOUT_(comm)));  in TestVector()
68           PetscCall(PetscIntView(bs * ldr, rdatav, PETSC_VIEWER_STDOUT_(comm)));  in TestVector()