void alloc_boolean_array(boolean_array_t *dest, int ndims, ...) { size_t elements = 0; va_list ap; va_start(ap, ndims); elements = alloc_base_array(dest, ndims, ap); va_end(ap); dest->data = boolean_alloc(elements); }
void alloc_real_array(real_array_t *dest, int ndims, ...) { size_t elements = 0; va_list ap; va_start(ap, ndims); elements = alloc_base_array(dest, ndims, ap); va_end(ap); dest->data = real_alloc(0,elements); }
void alloc_generic_array(base_array_t* dest, size_t sze, int ndims,...) { size_t elements = 0; va_list ap; va_start(ap, ndims); elements = alloc_base_array(dest, ndims, ap); va_end(ap); dest->data = generic_alloc(elements, sze); }
/* Fills an array with a value. */ void fill_alloc_real_array(real_array_t* dest, modelica_real value, int ndims, ...) { size_t i; size_t elements = 0; va_list ap; va_start(ap, ndims); elements = alloc_base_array(dest, ndims, ap); va_end(ap); dest->data = real_alloc(0,elements); for(i = 0; i < elements; ++i) { real_set(dest, i, value); } }