xref: /libCEED/tests/t401-qfunction.h (revision 5ebd836c59d60a2e5e1cb67f6731404c7da26f85)
1 // Copyright (c) 2017-2024, Lawrence Livermore National Security, LLC and other CEED contributors.
2 // All Rights Reserved. See the top-level LICENSE and NOTICE files for details.
3 //
4 // SPDX-License-Identifier: BSD-2-Clause
5 //
6 // This file is part of CEED:  http://github.com/ceed
7 
8 #include <ceed.h>
9 
10 CEED_QFUNCTION(setup)(void *ctx, const CeedInt Q, const CeedScalar *const *in, CeedScalar *const *out) {
11   const CeedScalar *w      = in[0];
12   CeedScalar       *q_data = out[0];
13   for (CeedInt i = 0; i < Q; i++) {
14     q_data[i] = w[i];
15   }
16   return 0;
17 }
18 
19 CEED_QFUNCTION(mass)(void *ctx, const CeedInt Q, const CeedScalar *const *in, CeedScalar *const *out) {
20   CeedScalar       *scale  = (CeedScalar *)ctx;
21   const CeedScalar *q_data = in[0], *u = in[1];
22   CeedScalar       *v = out[0];
23   for (CeedInt i = 0; i < Q; i++) {
24     v[i] = scale[4] * q_data[i] * u[i];
25   }
26   return 0;
27 }
28