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 CeedInt q = 10, q_dim = CeedIntPow(q, dim), x_dim = CeedIntPow(2, dim); in main()
27 CeedVectorCreate(ceed, x_dim * dim, &x); in main()
29 CeedScalar x_array[x_dim * dim]; in main()
31 for (CeedInt d = 0; d < dim; d++) { in main()
36 CeedVectorCreate(ceed, q_dim * dim, &x_q); in main()
42 CeedBasisCreateTensorH1Lagrange(ceed, dim, dim, 2, q, CEED_GAUSS_LOBATTO, &basis_x_lobatto); in main()
43 CeedBasisCreateTensorH1Lagrange(ceed, dim, 1, q, q, CEED_GAUSS_LOBATTO, &basis_u_lobatto); in main()
53 CeedScalar coord[dim]; in main()
54 for (CeedInt d = 0; d < dim; d++) coord[d] = x_q_array[d * q_dim + i]; in main()
55 u_q_array[i] = Eval(dim, coord); in main()
64 CeedBasisCreateTensorH1Lagrange(ceed, dim, dim, 2, q, CEED_GAUSS, &basis_x_gauss); in main()
65 CeedBasisCreateTensorH1Lagrange(ceed, dim, 1, q, q, CEED_GAUSS, &basis_u_gauss); in main()
76 CeedScalar coord[dim]; in main()
77 for (CeedInt d = 0; d < dim; d++) coord[d] = x_q_array[d * q_dim + i]; in main()
78 CeedScalar fx = Eval(dim, coord); in main()
81 printf("[%" CeedInt_FMT "] %f != %f = f(%f", dim, u_array[i], fx, coord[0]); in main()
82 for (CeedInt d = 1; d < dim; d++) printf(", %f", coord[d]); in main()