| /libCEED/julia/LibCEED.jl/src/ |
| H A D | UserQFunction.jl | 12 @inline function extract_array(ptr, idx, dims) argument
13 UnsafeArray(Ptr{CeedScalar}(unsafe_load(ptr, idx)), dims)
44 dims = (i <= n_in) ? dims_in[i] : dims_out[i-n_in]
47 arrays[i] = :($arr_name_gen = extract_array($ptr, $i_inout, (Int($Q), $(dims...))))
48 ndims = length(dims)
54 S = Tuple{dims...}
155 dims = Vector{Expr}(undef, ndim)
157 dims[d] = :(Int($(a.args[d+3])))
201 (I1, :in, EvalMode, dims...),
202 (I2, :in, EvalMode, dims...),
[all …]
|
| H A D | CeedVector.jl | 184 @witharray(v_arr=v, [size=(dims...)], [mtype=MEM_HOST], body)
211 @witharray_read(v_arr=v, [size=(dims...)], [mtype=MEM_HOST], body)
|
| /libCEED/examples/fluids/src/ |
| H A D | misc.c | 307 …PI_Comm comm, const char path[PETSC_MAX_PATH_LEN], const PetscInt char_array_len, PetscInt dims[2], in PhastaDatFileOpen()
319 for (PetscInt i = 0; i < ndims; i++) dims[i] = atoi(array[i]); in PhastaDatFileOpen()
335 PetscInt dims[2]; in PhastaDatFileGetNRows() local
339 PetscCall(PhastaDatFileOpen(comm, path, char_array_len, dims, &fp)); in PhastaDatFileGetNRows()
340 *nrows = dims[0]; in PhastaDatFileGetNRows()
346 PetscInt dims[2]; in PhastaDatFileReadToArrayReal() local
352 PetscCall(PhastaDatFileOpen(comm, path, char_array_len, dims, &fp)); in PhastaDatFileReadToArrayReal()
354 for (PetscInt i = 0; i < dims[0]; i++) { in PhastaDatFileReadToArrayReal()
360 PetscCheck(ndims == dims[1], comm, PETSC_ERR_FILE_UNEXPECTED, in PhastaDatFileReadToArrayReal()
361 …of %s does not contain enough columns (%d instead of %" PetscInt_FMT ")", i, path, ndims, dims[1]); in PhastaDatFileReadToArrayReal()
[all …]
|
| /libCEED/examples/fluids/problems/ |
| H A D | stg_shur14.c | 64 PetscInt dims[2]; in ReadStgInflow() local
72 PetscCall(PhastaDatFileOpen(comm, path, char_array_len, dims, &fp)); in ReadStgInflow()
83 PetscCheck(ndims == dims[1], comm, PETSC_ERR_FILE_UNEXPECTED, in ReadStgInflow()
84 …es not have correct number of columns (%d instead of %" PetscInt_FMT ")", i, path, ndims, dims[1]); in ReadStgInflow()
121 PetscInt dims[2]; in ReadStgRand() local
129 PetscCall(PhastaDatFileOpen(comm, path, char_array_len, dims, &fp)); in ReadStgRand()
138 PetscCheck(ndims == dims[1], comm, PETSC_ERR_FILE_UNEXPECTED, in ReadStgRand()
139 …es not have correct number of columns (%d instead of %" PetscInt_FMT ")", i, path, ndims, dims[1]); in ReadStgRand()
|
| H A D | blasius.c | 118 int ndims, dims[2]; in GetYNodeLocs() local
132 for (PetscInt i = 0; i < ndims; i++) dims[i] = atoi(array[i]); in GetYNodeLocs()
135 if (ndims < 2) dims[1] = 1; // Assume 1 column of data is not otherwise specified in GetYNodeLocs()
136 *nynodes = dims[0]; in GetYNodeLocs()
139 for (PetscInt i = 0; i < dims[0]; i++) { in GetYNodeLocs()
144 PetscCheck(ndims == dims[1], comm, PETSC_ERR_FILE_UNEXPECTED, in GetYNodeLocs()
145 …T " of %s does not contain correct number of columns (%d instead of %d)", i, path, ndims, dims[1]); in GetYNodeLocs()
|
| /libCEED/julia/LibCEED.jl/examples/ |
| H A D | common.jl | 2 dims = zeros(CeedInt, dim)
18 dims[d] = 2^sd
20 dims
|
| H A D | ex1-volume-c.jl | 63 dims = zeros(Int, dim)
79 dims[d] = 2^sd
81 dims
|
| /libCEED/examples/fluids/ |
| H A D | navierstokes.h | 380 …PI_Comm comm, const char path[PETSC_MAX_PATH_LEN], const PetscInt char_array_len, PetscInt dims[2],
|