xref: /libCEED/tests/t307-basis.c (revision ceac335a198bba99d8074c14fdb0301ec4cdae50)
19560d06aSjeremylt /// @file
2*ceac335aSJeremy L Thompson /// Test creation, copying, and destruction of a H1Lagrange basis
3*ceac335aSJeremy L Thompson /// \test Test creation, copying, and destruction of a H1Lagrange basis
49560d06aSjeremylt #include <ceed.h>
59560d06aSjeremylt 
69560d06aSjeremylt int main(int argc, char **argv) {
79560d06aSjeremylt   Ceed      ceed;
84fee36f0SJeremy L Thompson   CeedBasis basis, basis_2;
94fee36f0SJeremy L Thompson   CeedInt   p = 4;
109560d06aSjeremylt 
119560d06aSjeremylt   CeedInit(argv[1], &ceed);
129560d06aSjeremylt 
134fee36f0SJeremy L Thompson   CeedBasisCreateTensorH1Lagrange(ceed, 1, 1, p, 4, CEED_GAUSS_LOBATTO, &basis);
144fee36f0SJeremy L Thompson   CeedBasisCreateTensorH1Lagrange(ceed, 1, 1, p + 1, 4, CEED_GAUSS_LOBATTO, &basis_2);
159560d06aSjeremylt 
164fee36f0SJeremy L Thompson   CeedBasisReferenceCopy(basis, &basis_2);  // This destroys the previous basis_2
174fee36f0SJeremy L Thompson   CeedBasisDestroy(&basis);
189560d06aSjeremylt 
194fee36f0SJeremy L Thompson   CeedInt p_2;
204fee36f0SJeremy L Thompson   CeedBasisGetNumNodes1D(basis_2, &p_2);
214fee36f0SJeremy L Thompson   if (p != p_2) printf("Error copying CeedBasis reference\n");
229560d06aSjeremylt 
234fee36f0SJeremy L Thompson   CeedBasisDestroy(&basis_2);
249560d06aSjeremylt   CeedDestroy(&ceed);
259560d06aSjeremylt   return 0;
269560d06aSjeremylt }
27