; 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/ptest/health_check_anal4.pro
.run /users/csee/idl_programs/ptest/inflight_cal_lamps5.pro
.run /users/csee/idl_programs/ptest/compare_inflight_cal_lamps_2c.pro
;.run /lyns/ldoose/idl_programs/inflight_cal_lamps5.pro
;.run /lyns/ldoose/idl_programs/compare_inflight_cal_lamps_2a.pro
.run /users/csee/idl_programs/hc_comp/hc_comp.pro
.run /users/csee/idl_programs/hc_comp/hc_comp1a.pro
.run /users/csee/idl_programs/ptest/ir_darks.pro
.run /users/csee/idl_programs/ptest/ir_comp.pro
.run /users/csee/idl_programs/hkeeping/dcs.pro
.run /users/csee/idl_programs/ptest/hc_comp2.pro
.run /users/csee/idl_programs/hkeeping/heaters.pro

cd,'',current=cdir & cd,cdir	    ;establishes cdir as current directory

print,''
print,'***Do you want to run the Health Check Analyzer for:'
$pwd
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then health_check_anal4
if ans eq 'y' then read,'Do you want a printout? (y or n): ',ans
if ans eq 'y' then begin &$
 read,'In what directory is the report? ',ans &$
 spawn,'lp '+ans+'/idl.ps' &$
endif 
cd,cdir
close,/all
set_plot,'x'
retall
@reset

print,''
print,'***Do you want to run the Inflight Cal. Analyzer for:'
$pwd
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then begin $
 cd,'',current=cdir & cd,cdir & $
 inflight_cal_lamps5,cdir,[00,34,59] & end
cd,cdir
close,/all
set_plot,'x'
retall
@reset

print,''
print,'***Do you want to run the Inflight Cal. Compare program for:'
$pwd
ans=''
new=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then read,'What is the report name?: ',new
if ans eq 'y' then compare_inflight_cal_lamps_2c,new
if ans eq 'y' then read,'Do you want a printout? (y or n): ',ans
if ans eq 'y' then begin &$
 read,'In what directory is the report? ',ans &$
 spawn,'lp '+ans+'/idl_cmp.new.ps' &$
endif 
cd,cdir
close,/all
set_plot,'x'
retall
@reset

print,''
print,'***Do you want to run the Health Check Baseline-Compare program for:'
$pwd
ans=''
new=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then hc_comp
cd,cdir
close,/all
set_plot,'x'
retall
@reset

print,''
print,'***Do you want to run the Health Check F1-Compare program for:'
$pwd
ans=''
new=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then hc_comp1a
cd,cdir
close,/all
set_plot,'x'
retall
@reset

print,''
print,'***Do you want to run the New Health Check Compare program for:'
$pwd
ans=''
new=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then hc_comp2
cd,cdir
close,/all
set_plot,'x'
retall
@reset

print,''
print,'***Do you want to run the DCS dislay program for:'
$pwd
ans=''
new=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then dcs
cd,cdir
close,/all
set_plot,'x'
retall
@reset

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 'bye' then stop
if ans eq 'y' then ir_darks
cd,cdir
close,/all
set_plot,'x'
retall
@reset

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 'bye' then stop
if ans eq 'y' then read,'What is the Log name?: ',new
if ans eq 'y' then ir_comp,new
cd,cdir
close,/all
set_plot,'x'
retall
@reset

print,''
print,'Do you want to plot the heater response for: '
$pwd
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then heaters
cd,cdir
close,/all
set_plot,'x'
retall
@reset


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