1 // Copyright (c) 2017-2026, Lawrence Livermore National Security, LLC and other CEED contributors.
2 // All Rights Reserved. See the top-level LICENSE and NOTICE files for details.
4 // SPDX-License-Identifier: BSD-2-Clause
10 #include "ex-common.h"
12 /// libCEED Q-function for building quadrature data for a mass + diffusion operator
20   // At every quadrature point, compute w/det(J).adj(J).adj(J)^T and store  in build_mass_diff()
22   switch (build_data->dim + 10 * build_data->space_dim) {  in build_mass_diff()
24       const CeedScalar(*J)[1][CEED_Q_VLA] = (const CeedScalar(*)[1][CEED_Q_VLA])in[0];  in build_mass_diff()  local
28         q_data[0][i] = w[i] * J[0][0][i];  in build_mass_diff()
31         q_data[1][i] = w[i] / J[0][0][i];  in build_mass_diff()
35       const CeedScalar(*J)[2][CEED_Q_VLA] = (const CeedScalar(*)[2][CEED_Q_VLA])in[0];  in build_mass_diff()  local
38         // J: 0 2   q_data: 0 2   adj(J):  J22 -J12  in build_mass_diff()
39         //    1 3           2 1           -J10  J00  in build_mass_diff()
40         const CeedScalar J00 = J[0][0][i];  in build_mass_diff()
41         const CeedScalar J10 = J[0][1][i];  in build_mass_diff()
42         const CeedScalar J01 = J[1][0][i];  in build_mass_diff()
43         const CeedScalar J11 = J[1][1][i];  in build_mass_diff()
44         const CeedScalar qw  = w[i] / (J00 * J11 - J10 * J01);  in build_mass_diff()
47         q_data[0][i] = w[i] * (J00 * J11 - J10 * J01);  in build_mass_diff()
52         q_data[3][i] = -qw * (J00 * J01 + J10 * J11);  in build_mass_diff()
56       const CeedScalar(*J)[3][CEED_Q_VLA] = (const CeedScalar(*)[3][CEED_Q_VLA])in[0];  in build_mass_diff()  local
61         for (CeedInt j = 0; j < 3; j++) {  in build_mass_diff()  local
63             A[k][j] =  in build_mass_diff()
64 …J[(k + 1) % 3][(j + 1) % 3][i] * J[(k + 2) % 3][(j + 2) % 3][i] - J[(k + 2) % 3][(j + 1) % 3][i] *…  in build_mass_diff()
68         // Compute quadrature weight / det(J)  in build_mass_diff()
69 … const CeedScalar qw = w[i] / (J[0][0][i] * A[0][0] + J[0][1][i] * A[0][1] + J[0][2][i] * A[0][2]);  in build_mass_diff()
72         q_data[0][i] = w[i] * (J[0][0][i] * A[0][0] + J[0][1][i] * A[0][1] + J[0][2][i] * A[0][2]);  in build_mass_diff()
91 /// libCEED Q-function for applying a mass + diffusion operator
99   switch (build_data->dim) {  in apply_mass_diff()
132         // j = direction of vg  in apply_mass_diff()
133         for (int j = 0; j < 2; j++) {  in apply_mass_diff()  local
134           vg[j][i] = (ug[0][i] * dXdxdXdx_T[0][j] + ug[1][i] * dXdxdXdx_T[1][j]);  in apply_mass_diff()
160         // j = direction of vg  in apply_mass_diff()
161         for (int j = 0; j < 3; j++) {  in apply_mass_diff()  local
162 …vg[j][i] = (ug[0][i] * dXdxdXdx_T[0][j] + ug[1][i] * dXdxdXdx_T[1][j] + ug[2][i] * dXdxdXdx_T[2][j…  in apply_mass_diff()