pro hc_comp2,log,m

; Last modified by C.See in Jan 1999
; Compares the health check (defined by 'log') to the values from any other
; checkout 2, The default is: /DF308/23Oct97/Log/L+8day_checkout_23Oct97.2

;No postscript is baseline, postscript 2 is current test data

; m is a flag that indicates which health check will be analyzed for
; Logs containing multiple health checks.  The default is the first
; health check in the Log.  To analyze a later HC you must change
; the value of m in the following way: 0 is 1st, 1 is 2nd, etc
if n_params() le 1 then m=0 	;offset for multiple HC's in a Log 
if m ne 0 then print, '**Analyzing HC #',m+1,'  from this Log'

; **** Define Directories ****

; The current directory is the default
cd,'',current=cdir & cd,cdir                            
if n_params() eq 0 then log = cdir                  	
log=sstr(log)
if log eq '0' then log=cdir	;passing log=0 defaults to current dir

ans=''
read,'Do you want to define a different baseline Log? (y or n): ',ans
Baselog=''
if ans eq 'y' then read,'Which baseline Log: ',BaseLog $
 else BaseLog='/DF308/23Oct97/Log/L+8day_checkout_23Oct97.2'
 

; Feedback testlogs...
print, string(10b), 'The Log being analyzed is:  ',log
print, 'The Baseline log is:  ',BaseLog
print, 'The output file(s) will be placed in the analyzed Log as hc_comp2.out.', string(10b)

description=''
read,'What discription do you wish to add to the plots?: ',description

Tcor=''
read,'Do you want to apply the temperature correction? (y or n): ',Tcor
if tcor eq 'y' then description=description+', ** Temp. Corrected'
if tcor eq 'y' then star=' **' else star=''

; **** Initialization ****

@c_system.inc
@c_header.inc
close,/all

set_plot,'x'
;!p.color=255		;white
;!p.background=0		;on black
!p.multi=[0,1,1]
!p.ticklen=.02          ;returns to no grid
!x.gridstyle=0          ;solid gridlines
!y.gridstyle=0          ;solid gridlines
!X.range=[0,0]
!Y.range=[0,0]

!p.font=0	;device fonts


; **** Setup Output ****

print='n'
read,'Do you want the output to go to the printer? (y or n): ',print
if print eq 'y' then begin
 set_plot,'ps'
 device,filename = '~/idl.ps',/palatino,/landscape,bits_per_pixel=8
endif

; Print header to file:
close,1
Openw,1,log+'/hc_comp2.out'
printf,1,'DISR Health Check Data File.  Created by hc_comp2.pro.  '
printf,1,"The Test Log is: ",Log
printf,1,"The Baseline Log is: ",BaseLog
printf,1,'The test description is: ',description
if tcor eq 'y' then printf,1,'The temperature correction was applied.' else $
 printf,1,'The temperature correction was not applied.'
printf,1,"created on: ",systime()
printf,1,""


; **** Call the Routines ****

hc_comp2_dc,log,baselog,description,tcor,print,m
hc_comp2_ir,log,baselog,description,tcor,print,m
;hc_comp2_spect,log,baselog,description,tcor,print,m
;hc_comp2_sa,log,baselog,description,tcor,print,m
;hc_comp2_imagers,log,baselog,description,tcor,print,m
;hc_comp2_misc,log,baselog,description,tcor,print,m

; **** Clean up & Outa here ****

printf,1,format='(//,"hc_comp2.pro  rev. 1/20/99")'

if print eq 'y' then begin
 device,/close_file
 spawn,'lp ~/idl.ps'
 set_plot,'x'
 close,1
 cd,Log
 spawn,'lp -ofp14 -olm5 hc_comp2.out'
endif

set_plot,'x'
;!p.color=255		;white
;!p.background=0		;on black
!p.multi=[0,1,1]
!p.ticklen=.02          ;returns to no grid
!x.gridstyle=0          ;solid gridlines
!y.gridstyle=0          ;solid gridlines
!X.range=[0,0]
!Y.range=[0,0]

!p.font=-1	;vector drawn fonts

print,'*Done!'
close,/all
cd,cdir		;<--returns to the original directory
end