m_real* real_array_element_addr_c99_3(real_array_t* source,int ndims,...){
va_list ap;
m_real* tmp;
va_start(ap,ndims);
tmp = real_ptrget(source, ocl_calc_base_index_va(source, ndims, ap));
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;
}
modelica_real* real_array_element_addr2(const real_array_t * source,int ndims,int dim1,int dim2)
{
return real_ptrget(source, ((dim1 - 1) * source->dim_size[1]) + (dim2 - 1));
}
modelica_real* real_array_element_addr1(const real_array_t * source,int ndims,int dim1)
{
return real_ptrget(source, dim1 - 1);
}
/* 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));
}
/* Uses zero based indexing */
modelica_real *calc_real_index(int ndims, const _index_t *idx_vec, const real_array_t *arr)
{
return real_ptrget(arr, calc_base_index(ndims, idx_vec, arr));
}
static inline modelica_real *calc_real_index_spec(int ndims, const _index_t *idx_vec,
const real_array_t *arr,
const index_spec_t *spec)
{
return real_ptrget(arr, calc_base_index_spec(ndims, idx_vec, arr, spec));
}
