; This file executes Disrsoft routines to analyze Checkout 2 data.
; To execute type @/users/csee/co2 at the disrsoft prompt.
; This file works on Cassini.  For other platforms it must be modified.

.run /users/csee/idl_programs/co2/health_check_anal4.pro
.run /users/csee/idl_programs/co2/inflight_cal_lamps3.pro
.run /users/csee/idl_programs/co2/compare_inflight_cal_lamps.pro
.run /users/csee/idl_programs/co2/hc_comp.pro
.run /users/csee/idl_programs/co2/ir_darks.pro
.run /users/csee/idl_programs/co2/ir_comp.pro

print,''
print,'***Do you want to run the Health Check Analyzer for:'
$pwd
ans=''
read,'(y or n): ',ans
if ans eq 'y' then health_check_anal4
retall

print,''
print,'***Do you want to run the Inflight Cal. Analyzer for:'
$pwd
ans=''
read,'(y or n): ',ans
if ans eq 'y' then begin $
 cd,'',current=cdir & cd,cdir & $
 inflight_cal_lamps3,cdir,[00,34,59] & end
retall

print,''
print,'***Do you want to run the Inflight Cal. Compare program for:'
$pwd
ans=''
new=''
read,'(y or n): ',ans
if ans eq 'y' then read,'What is the report name?: ',new
if ans eq 'y' then compare_inflight_cal_lamps,new
retall

print,''
print,'***Do you want to run the Health Check Compare program for:'
$pwd
ans=''
new=''
read,'(y or n): ',ans
if ans eq 'y' then hc_comp
retall

print,''
print,'***The ir_darks pogram compares the ir shutter closed data '
print,'from the LEFT health check with the ir sets from the current Log. '
print,'Do you want to run this on:'
$pwd
ans=''
read,'(y or n): ',ans
if ans eq 'y' then ir_darks
retall

print,''
print,'***The ir_comp program performs a pixel by pixel subtraction of the HC, '
print,'shutter closed, ir measurements of the Log of your choice, from the ir darks '
print,'in the current Log.  Do you wish to run this on: '
$pwd
ans=''
new=''
read,'(y or n): ',ans
if ans eq 'y' then read,'What is the Log name?: ',new
if ans eq 'y' then ir_comp,new
retall


print,''
print,'Have a nice day. :)'