static double *material_grid_array(const material_grid *g) { #ifdef HAVE_SCM_ARRAY_GET_HANDLE scm_array_get_handle(g->matgrid, &cur_material_grid_array_handle); return (double *) scm_array_handle_uniform_writable_elements( &cur_material_grid_array_handle); #else CHECK(SCM_ARRAYP(g->matgrid), "bug: matgrid is not an array"); return (double *) SCM_CELL_WORD_1(SCM_ARRAY_V(g->matgrid)); #endif }
const void * scm_array_handle_uniform_elements (scm_t_array_handle *h) { return scm_array_handle_uniform_writable_elements (h); }