177   PetscInt   dim, Nb, b, Nc, c, Np, p;  in TestEvaluation()  local
205   PetscCall(PetscSpaceGetDimension(sp, &Nb));  in TestEvaluation()
207   PetscCall(DMGetWorkArray(dm, Np * Nb * Nc, MPIU_REAL, &B));  in TestEvaluation()
208   PetscCall(DMGetWorkArray(dm, Np * Nb * Nc * dim, MPIU_REAL, &D));  in TestEvaluation()
209   PetscCall(DMGetWorkArray(dm, Np * Nb * Nc * dim * dim, MPIU_REAL, &H));  in TestEvaluation()
213     for (b = 0; b < Nb; ++b) {  in TestEvaluation()
215 …for (c = 0; c < Nc; ++c) PetscCall(PetscPrintf(PETSC_COMM_SELF, " %g", (double)B[(p * Nb + b) * Nc…  in TestEvaluation()
220 …for (d = 0; d < dim; ++d) PetscCall(PetscPrintf(PETSC_COMM_SELF, " %g", (double) B[((p*Nb+b)*Nc+c)…  in TestEvaluation()
226   PetscCall(DMRestoreWorkArray(dm, Np * Nb, MPIU_REAL, &B));  in TestEvaluation()
227   PetscCall(DMRestoreWorkArray(dm, Np * Nb * dim, MPIU_REAL, &D));  in TestEvaluation()
228   PetscCall(DMRestoreWorkArray(dm, Np * Nb * dim * dim, MPIU_REAL, &H));  in TestEvaluation()