14411cf47Sjeremylt /// @file 2a8de75f0Sjeremylt /// Test creation and distruction of a H1Lagrange basis 3a8de75f0Sjeremylt /// \test Test creation and distruction of a H1Lagrange basis 457c64913Sjeremylt #include <ceed.h> 557c64913Sjeremylt 657c64913Sjeremylt int main(int argc, char **argv) { 757c64913Sjeremylt Ceed ceed; 857c64913Sjeremylt CeedBasis b; 957c64913Sjeremylt 1057c64913Sjeremylt CeedInit(argv[1], &ceed); 11288c0443SJeremy L Thompson 12*80a9ef05SNatalie Beams // Test skipped if using single precision 13*80a9ef05SNatalie Beams if (CEED_SCALAR_TYPE == CEED_SCALAR_FP32) { 14*80a9ef05SNatalie Beams return CeedError(ceed, CEED_ERROR_UNSUPPORTED, 15*80a9ef05SNatalie Beams "Test not implemented in single precision"); 16*80a9ef05SNatalie Beams } 17*80a9ef05SNatalie Beams 1857c64913Sjeremylt CeedBasisCreateTensorH1Lagrange(ceed, 1, 1, 4, 4, CEED_GAUSS_LOBATTO, &b); 1957c64913Sjeremylt CeedBasisView(b, stdout); 2057c64913Sjeremylt CeedBasisDestroy(&b); 21288c0443SJeremy L Thompson 2257c64913Sjeremylt CeedBasisCreateTensorH1Lagrange(ceed, 1, 1, 4, 4, CEED_GAUSS, &b); 2357c64913Sjeremylt CeedBasisView(b, stdout); 2457c64913Sjeremylt CeedBasisDestroy(&b); 25288c0443SJeremy L Thompson 2657c64913Sjeremylt CeedDestroy(&ceed); 2757c64913Sjeremylt return 0; 2857c64913Sjeremylt } 29