function set_global(x)
  global common_array
  common_array = x;