コード例 #1
0
ファイル: material_grid.c プロジェクト: aitatanit/mpb
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
}
コード例 #2
0
ファイル: uniform.c プロジェクト: TaylanUB/guile
const void *
scm_array_handle_uniform_elements (scm_t_array_handle *h)
{
    return scm_array_handle_uniform_writable_elements (h);
}