pro save_state, save_name
@common_blocks.inc
  if (save_name ne '') then begin
     if (NOT strmatch(save_name, '*.sav')) then save_name += '.sav'
     save, list_str, var_index,  center, $
           slice_value, xy_sl_size, wxysize, slice_size, slice_ori, $
           grid_info, data_dir, file_name, data_format, sds_num, smoothing, interpolate_i, $
           last_was, vector_field_b, partPos,  depth_value, $
           image_stack, N_images, image_log, cmap, $
           peaks, N_peaks, max_peak_nr, current_peak_file, current_peak, $
           vel_one, vel_two, cons_vel, substracting_vel, vel_normal, $
           parti, $
           verteces, polys, is_value, cube_dim, threeD_smoothing,shade_state, $
           oj, zflag, time_index, times, redshifts, file_list, all_grid_info, $
           Gamma, lengthunit, timeunit, densityunit, InitialRedshift, $
           FILENAME=save_name
     print, 'wrote current state to :', save_name
  endif
  return
end