PRO process_1a_data, startyd, stopyd
  set_cips_production_vars
  set_debug_level, 1
  set_production_flag, FLAG = 1
  FOR yearday = startyd, stopyd DO BEGIN
    aim_day = yd2ad( yearday )
    start_time = ad2usec(aim_day)
    stop_time = ad2usec(aim_day + 1)
;   orbit_info_array = get_orbit_info( start_time, stop_time)
    print, MEMORY( /CURRENT  ) / (1024L * 1024L),"MB"
    run_cips_production_processing, start_time, stop_time, ret_info, /just_1a
    print, MEMORY( /CURRENT  ) / (1024L * 1024L),"MB"
  ENDFOR
END