20     CeedInt num_qpts = CeedIntPow(q, dim);  in main()  local
22     CeedVectorCreate(ceed, num_qpts * dim * dim, &dx);  in main()
23     CeedVectorCreate(ceed, num_qpts, &w);  in main()
24     CeedVectorCreate(ceed, num_qpts * num_comp, &u);  in main()
26       CeedScalar dx_array[num_qpts * dim * dim], w_array[num_qpts], u_array[num_qpts * num_comp];  in main()
28       for (CeedInt i = 0; i < num_qpts; i++) {  in main()
29         w_array[i] = 1.0 / num_qpts;  in main()
33           for (CeedInt i = 0; i < num_qpts; i++) {  in main()
34             dx_array[i + (g * dim + d) * num_qpts] = d == g;  in main()
39         for (CeedInt i = 0; i < num_qpts; i++) {  in main()
40           u_array[i + c * num_qpts] = c + 1;  in main()
47     CeedVectorCreate(ceed, num_qpts, &q_data);  in main()
49     CeedVectorCreate(ceed, num_qpts * num_comp, &v);  in main()
59       CeedQFunctionApply(qf_setup, num_qpts, in, out);  in main()
67       CeedQFunctionApply(qf_mass, num_qpts, in, out);  in main()
77         for (CeedInt i = 0; i < num_qpts; i++) sum += v_array[i + c * num_qpts];  in main()