!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
if (exist(greg%def).and.(sic%program.ne."mapping")) then
  delete /var greg%def 
  delete /var command
  delete /var names name refname
  delete /var types reftype type
  delete /var beam_type extra
  delete /var do_tree
  delete /var aaa__date spe__date tuv__date
  delete /var aaa__name aaa__type
  delete /var spe__name spe__type
  delete /var tuv__name
  delete /var angle
  delete /var mosaic
  delete /var mark file box_limits
  delete /var marker1 marker2 space_type
  delete /var do_bit do_contour do_fill do_grey do_nice do_color do_rcoord do_loop
  delete /var do_label do_legend do_header do_wedge do_mask do_dirty do_coverage do_weight do_vsys
  delete /var nimages nreference pens
  delete /var first last step channel mbox nbox
  delete /var xpix ypix color
  delete /var nxy_box nx_box ny_box
  delete /var center size cross aspect box_aspect expand
  delete /var area_spacing width_spacing velo_spacing
  delete /var true_spacing spacing spacings level_min level_max
  delete /var true_scale scale scales ubox
  delete /var true_range range vsys
  delete /var iblc itrc
  delete /var rblc rtrc sblc strc
  delete /var true_sampling sampling
  delete /var inte_sampling
  delete /var plot_position
  delete /var s
  delete /var header_name_type
  let greg%kind "none"
endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
