void* generic_array_element_addr(const base_array_t* source, size_t sze, int ndims,...) { va_list ap; void* tmp; va_start(ap,ndims); tmp = generic_ptrget(source, calc_base_index_va(source, ndims, ap), sze); va_end(ap); return tmp; }
modelica_real* real_array_element_addr(const real_array_t * source,int ndims,...) { va_list ap; modelica_real* tmp; va_start(ap,ndims); tmp = real_ptrget(source, calc_base_index_va(source, ndims, ap)); va_end(ap); return tmp; }
m_boolean* boolean_array_element_addr(const boolean_array_t* source,int ndims,...) { va_list ap; m_boolean* tmp; va_start(ap,ndims); tmp = boolean_ptrget(source, calc_base_index_va(source, ndims, ap)); va_end(ap); return tmp; }
/* One based index*/ modelica_real *calc_real_index_va(const real_array_t *source, int ndims, va_list ap) { return real_ptrget(source, calc_base_index_va(source, ndims, ap)); }
/* One based index*/ modelica_boolean *calc_boolean_index_va(const boolean_array_t *source, int ndims, va_list ap) { return boolean_ptrget(source, calc_base_index_va(source, ndims, ap)); }
/* One based index*/ modelica_string *calc_string_index_va(const string_array_t *source, int ndims, va_list ap) { return string_ptrget(source, calc_base_index_va(source, ndims, ap)); }