xref: /libCEED/tests/t508-operator.c (revision 2b730f8b5a9c809740a0b3b302db43a719c636b1)
19560d06aSjeremylt /// @file
29560d06aSjeremylt /// Test creation, copying, and destruction for mass matrix operator
39560d06aSjeremylt /// \test Test creation, copying, and destruction for mass matrix operator
49560d06aSjeremylt #include <ceed.h>
59560d06aSjeremylt #include <math.h>
6*2b730f8bSJeremy L Thompson #include <stdlib.h>
79560d06aSjeremylt 
89560d06aSjeremylt #include "t500-operator.h"
99560d06aSjeremylt 
109560d06aSjeremylt int main(int argc, char **argv) {
119560d06aSjeremylt   Ceed          ceed;
129560d06aSjeremylt   CeedQFunction qf, qf_2;
139560d06aSjeremylt   CeedOperator  op, op_2;
149560d06aSjeremylt 
159560d06aSjeremylt   CeedInit(argv[1], &ceed);
169560d06aSjeremylt 
179560d06aSjeremylt   CeedQFunctionCreateInterior(ceed, 1, setup, setup_loc, &qf);
189560d06aSjeremylt   CeedQFunctionCreateInterior(ceed, 1, mass, mass_loc, &qf_2);
19*2b730f8bSJeremy L Thompson   CeedOperatorCreate(ceed, qf, CEED_QFUNCTION_NONE, CEED_QFUNCTION_NONE, &op);
20*2b730f8bSJeremy L Thompson   CeedOperatorCreate(ceed, qf_2, CEED_QFUNCTION_NONE, CEED_QFUNCTION_NONE, &op_2);
219560d06aSjeremylt 
229560d06aSjeremylt   CeedOperatorReferenceCopy(op, &op_2);  // This destroys the previous op_2
23*2b730f8bSJeremy L Thompson   if (op != op_2) printf("Error copying CeedOperator reference\n");
249560d06aSjeremylt 
259560d06aSjeremylt   CeedQFunctionDestroy(&qf);
269560d06aSjeremylt   CeedQFunctionDestroy(&qf_2);
279560d06aSjeremylt   CeedOperatorDestroy(&op);
289560d06aSjeremylt   CeedOperatorDestroy(&op_2);
299560d06aSjeremylt   CeedDestroy(&ceed);
309560d06aSjeremylt   return 0;
319560d06aSjeremylt }
32