14411cf47Sjeremylt /// @file 2*4fee36f0SJeremy L Thompson /// Test creation and destruction of a H1Lagrange basis 3*4fee36f0SJeremy L Thompson /// \test Test creation and destruction of a H1Lagrange basis 457c64913Sjeremylt #include <ceed.h> 557c64913Sjeremylt 657c64913Sjeremylt int main(int argc, char **argv) { 757c64913Sjeremylt Ceed ceed; 8*4fee36f0SJeremy L Thompson CeedBasis basis; 957c64913Sjeremylt 1057c64913Sjeremylt CeedInit(argv[1], &ceed); 11288c0443SJeremy L Thompson 1280a9ef05SNatalie Beams // Test skipped if using single precision 1380a9ef05SNatalie Beams if (CEED_SCALAR_TYPE == CEED_SCALAR_FP32) { 142b730f8bSJeremy L Thompson return CeedError(ceed, CEED_ERROR_UNSUPPORTED, "Test not implemented in single precision\n"); 1580a9ef05SNatalie Beams } 1680a9ef05SNatalie Beams 17*4fee36f0SJeremy L Thompson CeedBasisCreateTensorH1Lagrange(ceed, 1, 1, 4, 4, CEED_GAUSS_LOBATTO, &basis); 18*4fee36f0SJeremy L Thompson CeedBasisView(basis, stdout); 19*4fee36f0SJeremy L Thompson CeedBasisDestroy(&basis); 20288c0443SJeremy L Thompson 21*4fee36f0SJeremy L Thompson CeedBasisCreateTensorH1Lagrange(ceed, 1, 1, 4, 4, CEED_GAUSS, &basis); 22*4fee36f0SJeremy L Thompson CeedBasisView(basis, stdout); 23*4fee36f0SJeremy L Thompson CeedBasisDestroy(&basis); 24288c0443SJeremy L Thompson 2557c64913Sjeremylt CeedDestroy(&ceed); 2657c64913Sjeremylt return 0; 2757c64913Sjeremylt } 28