18   CeedInt             num_elem = 6, p = 3, q = 4, dim = 2, num_comp = 2;  in main()  local
24   CeedScalar          assembled_true[num_comp * num_comp * num_dofs];  in main()
25   CeedScalar          assembled_full_true[num_comp * num_dofs][num_comp * num_dofs];  in main()
55 …CeedElemRestrictionCreate(ceed, num_elem, p * p, num_comp, num_dofs, num_comp * num_dofs, CEED_MEM…  in main()
63   CeedBasisCreateTensorH1Lagrange(ceed, dim, num_comp, p, q, CEED_GAUSS, &basis_u);  in main()
73   CeedQFunctionAddInput(qf_mass, "u", num_comp, CEED_EVAL_INTERP);  in main()
74   CeedQFunctionAddOutput(qf_mass, "v", num_comp, CEED_EVAL_INTERP);  in main()
91   CeedVectorCreate(ceed, num_comp * num_comp * num_dofs, &assembled);  in main()
96   CeedVectorCreate(ceed, num_comp * num_dofs, &u);  in main()
98   CeedVectorCreate(ceed, num_comp * num_dofs, &v);  in main()
99   for (CeedInt i = 0; i < num_comp * num_dofs; i++) {  in main()
100     for (CeedInt j = 0; j < num_comp * num_dofs; j++) {  in main()
104   for (int i = 0; i < num_comp * num_comp * num_dofs; i++) assembled_true[i] = 0.0;  in main()
107     for (int j = 0; j < num_comp; j++) {  in main()
124 …for (int k = 0; k < num_comp; k++) assembled_true[i * num_comp * num_comp + k * num_comp + j] += v…  in main()
125 …for (CeedInt k = 0; k < num_comp * num_dofs; k++) assembled_full_true[k][i + num_dofs * j] += v_ar…  in main()
126 …for (CeedInt k = 0; k < num_comp; k++) assembled_full_true[i * num_comp + k][i * num_comp + j] = v…  in main()
136     for (int i = 0; i < num_comp * num_comp * num_dofs; i++) {  in main()