2 /// Test curl with a 2D Simplex non-tensor H(curl) basis
3 /// \test Test curl with a 2D Simplex non-tensor H(curl) basis
7 #include "t340-basis.h"
11   CeedVector    u, v;  in main()  local
29 …if (fabs(curl[i] - curl_in_basis[i]) > 100. * CEED_EPSILON) printf("%f != %f\n", curl[i], curl_in_…  in main()
48   CeedVectorCreate(ceed, q, &v);  in main()
49   CeedVectorSetValue(v, 0.0);  in main()
51   CeedBasisApply(basis, 1, CEED_NOTRANSPOSE, CEED_EVAL_CURL, u, v);  in main()
56     CeedVectorGetArrayRead(v, CEED_MEM_HOST, &v_array);  in main()
58 …if (fabs(row_sum[i] - v_array[i]) > 100. * CEED_EPSILON) printf("%f != %f\n", row_sum[i], v_array[…  in main()
60     CeedVectorRestoreArrayRead(v, &v_array);  in main()
63   CeedVectorSetValue(v, 1.0);  in main()
66   CeedBasisApply(basis, 1, CEED_TRANSPOSE, CEED_EVAL_CURL, v, u);  in main()
73 …if (fabs(column_sum[i] - u_array[i]) > 100. * CEED_EPSILON) printf("%f != %f\n", column_sum[i], u_…  in main()
80   CeedVectorDestroy(&v);  in main()