void convert_alloc_real_array_to_f77(const real_array_t * a, real_array_t* dest) { int i; clone_reverse_base_array_spec(a, dest); alloc_real_array_data(dest); transpose_real_array(a, dest); for (i = 0; i < dest->ndims; ++i) { dest->dim_size[i] = a->dim_size[i]; } }
void convert_alloc_boolean_array_from_f77(const boolean_array_t* a, boolean_array_t* dest) { int i; clone_reverse_base_array_spec(a,dest); alloc_boolean_array_data(dest); for(i = 0; i < dest->ndims; ++i) { int tmp = dest->dim_size[i]; dest->dim_size[i] = a->dim_size[i]; a->dim_size[i] = tmp; } transpose_boolean_array(a, dest); }