PRO shuttest
;+
;
; NAME:	
;	SHUTTEST
; PURPOSE: 
;	Reads in all the Shutter Test data sets and plots them
; CATEGORY: 
;	Verification Tool
; CALLING SEQUENCE: 
;	shuttest
; INPUTS:  
;	None	
; OPTIONAL INPUT PARAMETERS:
;	None
; OUTPUTS:
;	None
; OPTIONAL OUTPUT PARAMETERS:
;	None
; KEYWORDS:
;	None
; COMMON BLOCKS:
;	None
; SIDE EFFECTS:
;	None
; RESTRICTIONS:
;	None
; EXAMPLE:
;	shuttest
; PROCEDURE:
;	Read in all files
;	Plot results
; MODIFICATION HISTORY:
;	Created by Laura Ellen Dafoe 2 July 1994
;	Tested by Laura Ellen Dafoe on test log: health on 2 July 1994.
; REVISION:
;	1.0
;
;----------------------------------------------------------------------------
;		        D I S R S O F T    (C)  1 9 9 4      
;-----------------------------------------------------------------------------
;-
spawn,'find DB/ShutTest -type f -print',files
n=size(files)
if n(1) LT 1 or n(1) EQ 7 then goto,leave
print,SYSTIME(),' Num of files for Shutter Test check = ',n(1)

d_read,files(0),h,p
window,0,title='Shutter Test Data'
plot,p(0,*),yrange=[0,17000],ystyle=1
oplot,p(1,*)
oplot,p(2,*)
FOR i=1,n(1)-1 DO BEGIN
 d_read,files(i),h,p
 oplot,p(0,*)
 oplot,p(1,*)
 oplot,p(2,*)
ENDFOR
 
leave:
end