Lines Matching full:dim
8 static CeedScalar Eval(CeedInt dim, CeedScalar scale, 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 …p = 9, q = 9, num_comp = 3, 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 for (CeedInt c = 0; c < num_comp; c++) u_array[i + c * p_dim] = Eval(dim, c, coord); in main()
62 CeedBasisCreateTensorH1Lagrange(ceed, dim, num_comp, 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()
80 CeedScalar fx = Eval(dim, c, coord); in main()
83 …printf("[%" CeedInt_FMT ", %" CeedInt_FMT "] %f != %f = f(%f", dim, c, v_array[c + i * num_comp], … in main()
84 for (CeedInt d = 1; d < dim; d++) printf(", %f", coord[d]); in main()