pro abs_colrow2xy, subset_ul_abs_col, subset_ul_abs_row, $
                   subset_lr_abs_col, subset_lr_abs_row, $
                   center_abs_col=center_abs_col, $
                   center_abs_row=center_abs_row, $
                   meters_per_pixel_x=meters_per_pixel_x, $
                   meters_per_pixel_y=meters_per_pixel_y, $
                   subset_ul_x, subset_ul_y, $
                   subset_lr_x, subset_lr_y

  if n_elements(center_abs_col) eq 0 then $
    center_abs_col = 9034.0D
  if n_elements(center_abs_row) eq 0 then $
    center_abs_row = 9034.0D
  if n_elements(meters_per_pixel_x) eq 0 then $
    meters_per_pixel_x = 1002.701D
  if n_elements(meters_per_pixel_y) eq 0 then $
    meters_per_pixel_y = 1002.701D

  subset_ul_x = (subset_ul_abs_col - center_abs_col - 0.5D) * $
    meters_per_pixel_x
  subset_ul_y = (center_abs_row - subset_ul_abs_row + 0.5D) * $
    meters_per_pixel_y
  subset_lr_x = (subset_lr_abs_col - center_abs_col + 0.5D) * $
    meters_per_pixel_x
  subset_lr_y = (center_abs_row - subset_lr_abs_row - 0.5D) * $
    meters_per_pixel_y

  print, 'abs_colrow2xy:'
  print, '  subset_ul_abs_col: ', subset_ul_abs_col
  print, '  subset_ul_abs_row: ', subset_ul_abs_row
  print, '  subset_lr_abs_col: ', subset_lr_abs_col
  print, '  subset_lr_abs_row: ', subset_lr_abs_row
  print
  print, '  center_abs_col:    ', format='(a, f20.6)', center_abs_col
  print, '  center_abs_row:    ', format='(a, f20.6)', center_abs_row
  print, '  meters_per_pixel_x:', format='(a, f20.6)', meters_per_pixel_x
  print, '  meters_per_pixel_y:', format='(a, f20.6)', meters_per_pixel_y
  print
  print, '  subset_ul_x:       ', format='(a, f20.6)', subset_ul_x
  print, '  subset_ul_y:       ', format='(a, f20.6)', subset_ul_y
  print, '  subset_lr_x:       ', format='(a, f20.6)', subset_lr_x
  print, '  subset_lr_y:       ', format='(a, f20.6)', subset_lr_y

end