xref: /libCEED/tests/t300-basis.c (revision cdf95791513f7c35170bef3ba2e19f272fe04533)
1 /// @file
2 /// Test creation and distruction of a H1Lagrange basis
3 /// \test Test creation and distruction of a H1Lagrange basis
4 #include <ceed.h>
5 
6 int main(int argc, char **argv) {
7   Ceed ceed;
8   CeedBasis b;
9 
10   CeedInit(argv[1], &ceed);
11 
12   // Test skipped if using single precision
13   if (CEED_SCALAR_TYPE == CEED_SCALAR_FP32) {
14     return CeedError(ceed, CEED_ERROR_UNSUPPORTED,
15                      "Test not implemented in single precision");
16   }
17 
18   CeedBasisCreateTensorH1Lagrange(ceed, 1, 1, 4, 4, CEED_GAUSS_LOBATTO, &b);
19   CeedBasisView(b, stdout);
20   CeedBasisDestroy(&b);
21 
22   CeedBasisCreateTensorH1Lagrange(ceed, 1,  1, 4, 4, CEED_GAUSS, &b);
23   CeedBasisView(b, stdout);
24   CeedBasisDestroy(&b);
25 
26   CeedDestroy(&ceed);
27   return 0;
28 }
29