19ba83ac0SJeremy L Thompson // Copyright (c) 2017-2026, Lawrence Livermore National Security, LLC and other CEED contributors.
23d8e8822SJeremy L Thompson // All Rights Reserved. See the top-level LICENSE and NOTICE files for details.
36a6224a1SJeremy L Thompson //
43d8e8822SJeremy L Thompson // SPDX-License-Identifier: BSD-2-Clause
56a6224a1SJeremy L Thompson //
63d8e8822SJeremy L Thompson // This file is part of CEED: http://github.com/ceed
76a6224a1SJeremy L Thompson
849aac155SJeremy L Thompson #include <ceed.h>
96a6224a1SJeremy L Thompson #include <ceed/backend.h>
10a0154adeSJed Brown #include <ceed/jit-source/gallery/ceed-poisson1dapply.h>
112b730f8bSJeremy L Thompson #include <string.h>
126a6224a1SJeremy L Thompson
136a6224a1SJeremy L Thompson /**
14ca94c3ddSJeremy L Thompson @brief Set fields for `CeedQFunction` applying the 1D Poisson operator
156a6224a1SJeremy L Thompson **/
CeedQFunctionInit_Poisson1DApply(Ceed ceed,const char * requested,CeedQFunction qf)162b730f8bSJeremy L Thompson static int CeedQFunctionInit_Poisson1DApply(Ceed ceed, const char *requested, CeedQFunction qf) {
176a6224a1SJeremy L Thompson // Check QFunction name
186a6224a1SJeremy L Thompson const char *name = "Poisson1DApply";
19*6261a418SJeremy L Thompson
206574a04fSJeremy L Thompson CeedCheck(!strcmp(name, requested), ceed, CEED_ERROR_UNSUPPORTED, "QFunction '%s' does not match requested name: %s", name, requested);
216a6224a1SJeremy L Thompson
226a6224a1SJeremy L Thompson // Add QFunction fields
236a6224a1SJeremy L Thompson const CeedInt dim = 1;
24*6261a418SJeremy L Thompson
252b730f8bSJeremy L Thompson CeedCall(CeedQFunctionAddInput(qf, "du", dim, CEED_EVAL_GRAD));
262b730f8bSJeremy L Thompson CeedCall(CeedQFunctionAddInput(qf, "qdata", dim * (dim + 1) / 2, CEED_EVAL_NONE));
272b730f8bSJeremy L Thompson CeedCall(CeedQFunctionAddOutput(qf, "dv", dim, CEED_EVAL_GRAD));
286a6224a1SJeremy L Thompson
292b730f8bSJeremy L Thompson CeedCall(CeedQFunctionSetUserFlopsEstimate(qf, 1));
306a6224a1SJeremy L Thompson return CEED_ERROR_SUCCESS;
316a6224a1SJeremy L Thompson }
326a6224a1SJeremy L Thompson
336a6224a1SJeremy L Thompson /**
34ca94c3ddSJeremy L Thompson @brief Register `CeedQFunction` for applying the 1D Poisson operator
356a6224a1SJeremy L Thompson **/
CeedQFunctionRegister_Poisson1DApply(void)366a6224a1SJeremy L Thompson CEED_INTERN int CeedQFunctionRegister_Poisson1DApply(void) {
372b730f8bSJeremy L Thompson return CeedQFunctionRegister("Poisson1DApply", Poisson1DApply_loc, 1, Poisson1DApply, CeedQFunctionInit_Poisson1DApply);
386a6224a1SJeremy L Thompson }
39