1 /// @file
2 /// Test 1D mass matrix operator at points with heterogeneous points per element
3 /// \test Test 1D mass matrix operator at points with heterogeneous points per element
4 #include <ceed.h>
5 #include <math.h>
6 #include <stdio.h>
7 #include <stdlib.h>
8
9 #include "t500-operator.h"
10
main(int argc,char ** argv)11 int main(int argc, char **argv) {
12 Ceed ceed;
13 CeedInt num_elem = 3, dim = 1, p = 3, q = 5;
14 CeedInt num_nodes_x = num_elem + 1, num_nodes_u = num_elem * (p - 1) + 1, num_points_per_elem = 4, num_points = num_elem * num_points_per_elem;
15 CeedInt ind_x[num_elem * 2], ind_u[num_elem * p], ind_x_points[num_elem + 1 + num_points];
16 CeedScalar x_array_mesh[num_nodes_x], x_array_points[num_points];
17 CeedVector x_points = NULL, x_elem = NULL, q_data = NULL, u = NULL, v = NULL;
18 CeedElemRestriction elem_restriction_x_points, elem_restriction_q_data, elem_restriction_x, elem_restriction_u;
19 CeedBasis basis_x, basis_u;
20 CeedQFunction qf_setup, qf_mass;
21 CeedOperator op_setup, op_mass;
22 bool is_at_points;
23
24 CeedInit(argv[1], &ceed);
25
26 // Mesh coordinates
27 for (CeedInt i = 0; i < num_nodes_x; i++) x_array_mesh[i] = (CeedScalar)i / (num_nodes_x - 1);
28 for (CeedInt i = 0; i < num_elem; i++) {
29 ind_x[2 * i + 0] = i;
30 ind_x[2 * i + 1] = i + 1;
31 }
32 CeedElemRestrictionCreate(ceed, num_elem, 2, 1, 1, num_nodes_x, CEED_MEM_HOST, CEED_USE_POINTER, ind_x, &elem_restriction_x);
33 CeedVectorCreate(ceed, num_nodes_x, &x_elem);
34 CeedVectorSetArray(x_elem, CEED_MEM_HOST, CEED_USE_POINTER, x_array_mesh);
35
36 // U mesh
37 for (CeedInt i = 0; i < num_elem; i++) {
38 for (CeedInt j = 0; j < p; j++) {
39 ind_u[p * i + j] = i * (p - 1) + j;
40 }
41 }
42 CeedElemRestrictionCreate(ceed, num_elem, p, 1, 1, num_nodes_u, CEED_MEM_HOST, CEED_USE_POINTER, ind_u, &elem_restriction_u);
43
44 // Point reference coordinates
45 {
46 CeedScalar weight_tmp[num_points_per_elem + 1];
47 CeedInt current_index = 0;
48
49 // Use num_points_per_elem + 1 to test non-uniform quadrature
50 CeedGaussQuadrature(num_points_per_elem + 1, x_array_points, weight_tmp);
51 ind_x_points[0] = num_elem + 1;
52 for (CeedInt p = 0; p < num_points_per_elem + 1; p++, current_index++) {
53 ind_x_points[num_elem + 1 + current_index] = current_index;
54 }
55 // Use num_points_per_elem for middle elements
56 for (CeedInt e = 1; e < num_elem - 1; e++) {
57 CeedGaussQuadrature(num_points_per_elem, &x_array_points[current_index], weight_tmp);
58 ind_x_points[e] = num_elem + 1 + current_index;
59 for (CeedInt p = 0; p < num_points_per_elem; p++, current_index++) {
60 ind_x_points[num_elem + 1 + current_index] = current_index;
61 }
62 }
63 // Use num_points_per_elem - 1 to test non-uniform quadrature
64 CeedGaussQuadrature(num_points_per_elem - 1, &x_array_points[current_index], weight_tmp);
65 ind_x_points[num_elem - 1] = num_elem + 1 + current_index;
66 for (CeedInt p = 0; p < num_points_per_elem - 1; p++, current_index++) {
67 ind_x_points[num_elem + 1 + current_index] = current_index;
68 }
69 ind_x_points[num_elem] = num_elem + 1 + current_index;
70
71 CeedVectorCreate(ceed, num_elem * num_points_per_elem, &x_points);
72 CeedVectorSetArray(x_points, CEED_MEM_HOST, CEED_USE_POINTER, x_array_points);
73 CeedElemRestrictionCreateAtPoints(ceed, num_elem, num_points, 1, num_points, CEED_MEM_HOST, CEED_COPY_VALUES, ind_x_points,
74 &elem_restriction_x_points);
75 CeedElemRestrictionCreateAtPoints(ceed, num_elem, num_points, 1, num_points, CEED_MEM_HOST, CEED_COPY_VALUES, ind_x_points,
76 &elem_restriction_q_data);
77
78 // Q data
79 CeedVectorCreate(ceed, num_points, &q_data);
80 }
81
82 // Basis creation
83 CeedBasisCreateTensorH1Lagrange(ceed, dim, dim, 2, q, CEED_GAUSS, &basis_x);
84 CeedBasisCreateTensorH1Lagrange(ceed, dim, 1, p, q, CEED_GAUSS, &basis_u);
85
86 // Setup geometric scaling
87 CeedQFunctionCreateInterior(ceed, 1, setup, setup_loc, &qf_setup);
88 CeedQFunctionAddInput(qf_setup, "weight", 1, CEED_EVAL_WEIGHT);
89 CeedQFunctionAddInput(qf_setup, "x", dim * dim, CEED_EVAL_GRAD);
90 CeedQFunctionAddOutput(qf_setup, "rho", 1, CEED_EVAL_NONE);
91
92 CeedOperatorCreateAtPoints(ceed, qf_setup, CEED_QFUNCTION_NONE, CEED_QFUNCTION_NONE, &op_setup);
93 CeedOperatorSetField(op_setup, "weight", CEED_ELEMRESTRICTION_NONE, basis_x, CEED_VECTOR_NONE);
94 CeedOperatorSetField(op_setup, "x", elem_restriction_x, basis_x, CEED_VECTOR_ACTIVE);
95 CeedOperatorSetField(op_setup, "rho", elem_restriction_q_data, CEED_BASIS_NONE, CEED_VECTOR_ACTIVE);
96 CeedOperatorAtPointsSetPoints(op_setup, elem_restriction_x_points, x_points);
97
98 CeedOperatorApply(op_setup, x_elem, q_data, CEED_REQUEST_IMMEDIATE);
99
100 // Mass operator
101 CeedQFunctionCreateInterior(ceed, 1, mass, mass_loc, &qf_mass);
102 CeedQFunctionAddInput(qf_mass, "u", 1, CEED_EVAL_INTERP);
103 CeedQFunctionAddInput(qf_mass, "rho", 1, CEED_EVAL_NONE);
104 CeedQFunctionAddOutput(qf_mass, "v", 1, CEED_EVAL_INTERP);
105
106 CeedOperatorCreateAtPoints(ceed, qf_mass, CEED_QFUNCTION_NONE, CEED_QFUNCTION_NONE, &op_mass);
107 CeedOperatorSetField(op_mass, "u", elem_restriction_u, basis_u, CEED_VECTOR_ACTIVE);
108 CeedOperatorSetField(op_mass, "rho", elem_restriction_q_data, CEED_BASIS_NONE, q_data);
109 CeedOperatorSetField(op_mass, "v", elem_restriction_u, basis_u, CEED_VECTOR_ACTIVE);
110 CeedOperatorAtPointsSetPoints(op_mass, elem_restriction_x_points, x_points);
111
112 CeedOperatorIsAtPoints(op_mass, &is_at_points);
113 if (!is_at_points) printf("Error: Operator should be at points\n");
114
115 CeedVectorCreate(ceed, num_nodes_u, &u);
116 CeedVectorSetValue(u, 0.0);
117 CeedVectorCreate(ceed, num_nodes_u, &v);
118
119 // Assemble QFunction
120 CeedOperatorApply(op_mass, u, v, CEED_REQUEST_IMMEDIATE);
121
122 // Check output
123 {
124 const CeedScalar *v_array;
125
126 CeedVectorGetArrayRead(v, CEED_MEM_HOST, &v_array);
127 for (CeedInt i = 0; i < num_nodes_u; i++) {
128 if (fabs(v_array[i]) > 1e-14) printf("[%" CeedInt_FMT "] v %g != 0.0\n", i, v_array[i]);
129 }
130 CeedVectorRestoreArrayRead(v, &v_array);
131 }
132
133 // Cleanup
134 CeedVectorDestroy(&q_data);
135 CeedVectorDestroy(&u);
136 CeedVectorDestroy(&v);
137 CeedVectorDestroy(&x_points);
138 CeedVectorDestroy(&q_data);
139 CeedVectorDestroy(&x_elem);
140 CeedElemRestrictionDestroy(&elem_restriction_q_data);
141 CeedElemRestrictionDestroy(&elem_restriction_x);
142 CeedElemRestrictionDestroy(&elem_restriction_x_points);
143 CeedElemRestrictionDestroy(&elem_restriction_u);
144 CeedBasisDestroy(&basis_x);
145 CeedBasisDestroy(&basis_u);
146 CeedQFunctionDestroy(&qf_setup);
147 CeedQFunctionDestroy(&qf_mass);
148 CeedOperatorDestroy(&op_setup);
149 CeedOperatorDestroy(&op_mass);
150 CeedDestroy(&ceed);
151 return 0;
152 }
153