Lines Matching full:dim
8 static CeedScalar Eval(CeedInt dim, const CeedScalar x[]) { in Eval() argument
10 for (CeedInt d = 0; d < dim; d++) { in Eval()
22 for (CeedInt dim = 1; dim <= 3; dim++) { in main() local
25 …onst CeedInt p = 9, q = 10, num_points = 4, x_dim = CeedIntPow(2, dim), p_dim = CeedIntPow(p, dim); in main()
27 CeedVectorCreate(ceed, x_dim * dim, &x); in main()
28 CeedVectorCreate(ceed, p_dim * dim, &x_nodes); in main()
29 CeedVectorCreate(ceed, num_points * dim, &x_points); in main()
34 CeedBasisCreateTensorH1Lagrange(ceed, dim, dim, 2, p, CEED_GAUSS_LOBATTO, &basis_x); in main()
36 CeedScalar x_array[x_dim * dim]; in main()
38 for (CeedInt d = 0; d < dim; d++) { in main()
52 CeedScalar coord[dim]; in main()
54 for (CeedInt d = 0; d < dim; d++) coord[d] = x_array[d * p_dim + i]; in main()
55 u_array[i] = Eval(dim, coord); in main()
62 CeedBasisCreateTensorH1Lagrange(ceed, dim, 1, p, q, CEED_GAUSS, &basis_u); in main()
76 CeedScalar coord[dim]; in main()
78 for (CeedInt d = 0; d < dim; d++) coord[d] = x_array[d * num_points + i]; in main()
79 const CeedScalar fx = Eval(dim, coord); in main()
82 printf("[%" CeedInt_FMT "] %f != %f = f(%f", dim, v_array[i], fx, coord[0]); in main()
83 for (CeedInt d = 1; d < dim; d++) printf(", %f", coord[d]); in main()