9   PetscDualSpace  h_1, h_div, list[2], joint;  in main()  local
15   PetscCall(PetscDualSpaceCreate(PETSC_COMM_SELF, &h_1));  in main()
16   PetscCall(PetscObjectSetName((PetscObject)h_1, "H1"));  in main()
17   PetscCall(PetscDualSpaceSetType(h_1, PETSCDUALSPACELAGRANGE));  in main()
18   PetscCall(PetscDualSpaceSetDM(h_1, K));  in main()
19   PetscCall(PetscDualSpaceSetNumComponents(h_1, 2));  in main()
20   PetscCall(PetscDualSpaceLagrangeSetTensor(h_1, PETSC_TRUE));  in main()
21   PetscCall(PetscDualSpaceSetFormDegree(h_1, 0));  in main()
22   PetscCall(PetscDualSpaceSetOrder(h_1, 1));  in main()
23   PetscCall(PetscDualSpaceSetUp(h_1));  in main()
34   list[0] = h_1;  in main()
45   PetscCall(PetscDualSpaceDestroy(&h_1));  in main()