xref: /libCEED/tests/t412-qfunction.c (revision b1f1e60ff66d005b93106b6e06879bfd56d91f99)

/// @file
/// Test creation, evaluation, and destruction of identity qfunction with size>1
/// \test Test creation, evaluation, and destruction of identity qfunction with size>1
#include <ceed.h>
#include <math.h>

int main(int argc, char **argv) {
  Ceed ceed;
  CeedVector in[16], out[16];
  CeedVector U, V;
  CeedQFunction qf;
  CeedInt Q = 8, size = 3;
  const CeedScalar *v;
  CeedScalar u[Q*size];

  CeedInit(argv[1], &ceed);

  CeedQFunctionCreateIdentity(ceed, size, CEED_EVAL_INTERP, CEED_EVAL_INTERP,
                              &qf);

  for (CeedInt i=0; i<Q*size; i++)
    u[i] = i*i;

  CeedVectorCreate(ceed, Q*size, &U);
  CeedVectorSetArray(U, CEED_MEM_HOST, CEED_USE_POINTER, u);
  CeedVectorCreate(ceed, Q*size, &V);
  CeedVectorSetValue(V, 0);

  {
    in[0] = U;
    out[0] = V;
    CeedQFunctionApply(qf, Q, in, out);
  }

  CeedVectorGetArrayRead(V, CEED_MEM_HOST, &v);
  for (CeedInt i=0; i<Q*size; i++)
    if (fabs(v[i] - u[i])>1e-12)
      // LCOV_EXCL_START
      printf("[%d] v %f != u %f\n",i, v[i], u[i]);
  // LCOV_EXCL_STOP
  CeedVectorRestoreArrayRead(V, &v);

  CeedVectorDestroy(&U);
  CeedVectorDestroy(&V);
  CeedQFunctionDestroy(&qf);
  CeedDestroy(&ceed);
  return 0;
}