+/* Returns a pointer to the `double' in the `union value' in C for variable V.
+ The caller is allowed to modify the returned data.
+
+ Case C must be drawn from V's dictionary and must not be shared. */
+double *
+case_num_rw (struct ccase *c, const struct variable *v)
+{
+ assert_variable_matches_case (c, v);
+ assert (!case_is_shared (c));
+ return &c->values[var_get_case_index (v)].f;
+}
+
+/* Returns a pointer to the `double' in the `union value' in C numbered IDX.
+ The caller is allowed to modify the returned data.
+
+ Case C must not be shared. */
+double *
+case_num_rw_idx (struct ccase *c, size_t idx)
+{
+ assert (!case_is_shared (c));
+ return &c->values[idx].f;
+}
+