-my_type=gras_datadesc_struct("s_matrix");
-gras_datadesc_struct_append(my_type,"row", gras_datadesc_by_name("int"));
-gras_datadesc_cb_field_send (my_type, "length", gras_datadesc_cb_push_int);
-gras_datadesc_struct_append(my_type,"col", gras_datadesc_by_name("int"));
-gras_datadesc_cb_field_send (my_type, "length", gras_datadesc_cb_push_int_mult);
-
-gras_datadesc_struct_append(my_type,"data",
- gras_datadesc_array_dyn ("s_matrix::data",gras_datadesc_by_name("int"), gras_datadesc_cb_pop));
-gras_datadesc_struct_close(my_type);
+my_type=xbt_datadesc_struct("s_matrix");
+xbt_datadesc_struct_append(my_type,"row", xbt_datadesc_by_name("int"));
+xbt_datadesc_cb_field_send (my_type, "length", xbt_datadesc_cb_push_int);
+xbt_datadesc_struct_append(my_type,"col", xbt_datadesc_by_name("int"));
+xbt_datadesc_cb_field_send (my_type, "length", xbt_datadesc_cb_push_int_mult);
+
+xbt_datadesc_struct_append(my_type,"data",
+ xbt_datadesc_array_dyn ("s_matrix::data",xbt_datadesc_by_name("int"), xbt_datadesc_cb_pop));
+xbt_datadesc_struct_close(my_type);