PRO LAMP
;+
;
; NAME:
;	LAMP
; PURPOSE:
;	Verify the lamp voltages are correct for each lamp data set
; CATEGORY:
;	Verification
; CALLING SEQUENCE:
;	LAMP
; INPUTS:
;	None
; OPTIONAL INPUT PARAMETERS:
;	None
; OUTPUTS:
;	post/anal_results/lamp
; OPTIONAL OUTPUT PARAMETERS:
;	None
; KEYWORDS:
;	None
; COMMON BLOCKS:
;	None
; SIDE EFFECTS:
;	None
; RESTRICTIONS:
;	None
; EXAMPLE:
;	LAMP
; PROCEDURE:
;	Read in the time ordered list of the lamp data
;	Verify that the voltages are correct for the given lamp state
; MODIFICATION HISTORY:
;	Created by Laura Ellen Dafoe 15 June 1994
;	Tested by Laura Ellen Dafoe on test log: descent1 on 26 June 1994.
;		Manually compared data read from time ordered list with 
;		error report.
;	Editted by Laura Ellen Dafoe on 2 July 1994 to make lower bound
;		on current drawn for a lamp which is off "GT" rather than
;		"GE" 0.
;----------------------------------------------------------------------------
;		        D I S R S O F T    (C)  1 9 9 4      
;-----------------------------------------------------------------------------
;-
openw,outfile,'post/anal_results/lamp',/get_lun
rdlmp,time,state,raw,conv,files
z_time=size(time)
num=z_time(1)-1

CalV1BndOn=1900
CalV2BndOn=2400
CalVCBndOn=4.6
CalABndOn=0.109

CalV1BndOff=25
CalV2BndOff=25
CalVCBndOff=0.1
CalABndOff=0.0

SurfV1BndOn=2000
SurfV2BndOn=2000
SurfVCBndOn=5.8
SurfABndOn=3.28

SurfV1BndOff=20
SurfV2BndOff=20
SurfVCBndOff=0.1
SurfABndOff=0.0

for i=0,num do begin
 if strmid(state(i),0,1) EQ '1' then begin
  if raw(i,0) LE CalV1BndOn then $
	printf,outfile,'Lamp1 On, Volt1 = ',raw(i,0),' ',files(i)
  if raw(i,1) LE CalV2BndOn then $
	printf,outfile,'Lamp1 On, Volt2 = ',raw(i,1),' ',files(i)
  if conv(i,0) LE CalVCBndOn then $
	printf,outfile,'Lamp1 On, Volt  = ',conv(i,0),' ',files(i)
  if conv(i,1) LE CalABndOn then $
	printf,outfile,'Lamp1 On, Curr  = ',conv(i,1),' ',files(i)
 endif
 if strmid(state(i),0,1) EQ '0' then begin
  if raw(i,0) GE CalV1BndOff then $
	printf,outfile,'Lamp1 Off, Volt1 = ',raw(i,0),' ',files(i)
  if raw(i,1) GE CalV2BndOff then $
	printf,outfile,'Lamp1 Off, Volt2 = ',raw(i,1),' ',files(i)
  if conv(i,0) GE CalVCBndOff then $
	printf,outfile,'Lamp1 Off, Volt  = ',conv(i,0),' ',files(i)
  if conv(i,1) GT CalABndOff then $
	printf,outfile,'Lamp1 Off, Curr  = ',conv(i,1),' ',files(i)
 endif

 if strmid(state(i),1,1) EQ '1' then begin
  if raw(i,2) LE CalV1BndOn then $
	printf,outfile,'Lamp2 On, Volt1 = ',raw(i,2),' ',files(i)
  if raw(i,3) LE CalV2BndOn then $
	printf,outfile,'Lamp2 On, Volt2 = ',raw(i,3),' ',files(i)
  if conv(i,2) LE CalVCBndOn then $
	printf,outfile,'Lamp2 On, Volt  = ',conv(i,2),' ',files(i)
  if conv(i,3) LE CalABndOn then $
	printf,outfile,'Lamp2 On, Curr  = ',conv(i,3),' ',files(i)
 endif
 if strmid(state(i),1,1) EQ '0' then begin
  if raw(i,2) GE CalV1BndOff then $
	printf,outfile,'Lamp2 Off, Volt1 = ',raw(i,2),' ',files(i)
  if raw(i,3) GE CalV2BndOff then $
	printf,outfile,'Lamp2 Off, Volt2 = ',raw(i,3),' ',files(i)
  if conv(i,2) GE CalVCBndOff then $
	printf,outfile,'Lamp2 Off, Volt  = ',conv(i,2),' ',files(i)
  if conv(i,3) GT CalABndOff then $
	printf,outfile,'Lamp2 Off, Curr  = ',conv(i,3),' ',files(i)
 endif

 if strmid(state(i),2,1) EQ '1' then begin
  if raw(i,4) LE CalV1BndOn then $
	printf,outfile,'Lamp3 On, Volt1 = ',raw(i,4),' ',files(i)
  if raw(i,5) LE CalV2BndOn then $
	printf,outfile,'Lamp3 On, Volt2 = ',raw(i,5),' ',files(i)
  if conv(i,4) LE CalVCBndOn then $
	printf,outfile,'Lamp3 On, Volt  = ',conv(i,4),' ',files(i)
  if conv(i,5) LE CalABndOn then $
	printf,outfile,'Lamp3 On, Curr  = ',conv(i,5),' ',files(i)
 endif
 if strmid(state(i),2,1) EQ '0' then begin
  if raw(i,4) GE CalV1BndOff then $
	printf,outfile,'Lamp3 Off, Volt1 = ',raw(i,4),' ',files(i)
  if raw(i,5) GE CalV2BndOff then $
	printf,outfile,'Lamp3 Off, Volt2 = ',raw(i,5),' ',files(i)
  if conv(i,4) GE CalVCBndOff then $
	printf,outfile,'Lamp3 Off, Volt  = ',conv(i,4),' ',files(i)
  if conv(i,5) GT CalABndOff then $
	printf,outfile,'Lamp3 Off, Curr  = ',conv(i,5),' ',files(i)
 endif

 if strmid(state(i),3,1) EQ '1' then begin
  if raw(i,6) LE SurfV1BndOn then $
	printf,outfile,'Surf On, Volt1 = ',raw(i,6),' ',files(i)
  if raw(i,7) LE SurfV2BndOn then $
	printf,outfile,'Surf On, Volt2 = ',raw(i,7),' ',files(i)
  if conv(i,6) LE SurfVCBndOn then $
	printf,outfile,'Surf On, Volt  = ',conv(i,6),' ',files(i)
  if conv(i,7) LE SurfABndOn then $
	printf,outfile,'Surf On, Curr  = ',conv(i,7),' ',files(i)
 endif
 if strmid(state(i),3,1) EQ '0' then begin
  if raw(i,6) GE SurfV1BndOff then $
	printf,outfile,'Surf Off, Volt1 = ',raw(i,6),' ',files(i)
  if raw(i,7) GE SurfV2BndOff then $
	printf,outfile,'Surf Off, Volt2 = ',raw(i,7),' ',files(i)
  if conv(i,6) GE SurfVCBndOff then $
	printf,outfile,'Surf Off, Volt  = ',conv(i,6),' ',files(i)
  if conv(i,7) GT SurfABndOff then $
	printf,outfile,'Surf Off, Curr  = ',conv(i,7),' ',files(i)
 endif
endfor
printf,outfile,'Checked all lamp parameters'

free_lun,outfile

END