PRO test_summary_plots
; Plot many items 
@xrtf_common
@fits_common

  n_files = n_elements(ufn_real_file)
  T_array= FLTARR(n_files)
  P_array= FLTARR(n_files)
  GVac_array = FLTARR(n_files)
  SVac_array = FLTARR(n_files)
  DVac_array = FLTARR(n_files)
  Pump_array = FLTARR(n_files)
  SrcI_array = FLTARR(n_files)
  item_array = FLTARR(n_files)
  for ifile=0,n_files-1 do begin
    ; Read in the headers into common
    read_fits_headers, ufn_real_file(ifile)
    T_array(ifile) = fxpar(XGEF_HDR, 'GRAT_T')
    P_array(ifile) = fxpar(DET_HDR, 'DET_PRES')
    GVac_array(ifile) = fxpar(XGEF_HDR, 'GRAT_VAC')
    SVac_array(ifile) = fxpar(XGEF_HDR, 'SRC_VAC')
    DVac_array(ifile) = fxpar(XGEF_HDR, 'DET_VAC')
    Pump_array(ifile) = fxpar(XGEF_HDR, 'PUMP_CUR')
    SrcI_array(ifile) = fxpar(XGEF_HDR, 'SRC_CURR')
    item_array(ifile) = ufn_testitem(ifile)
  end ; loop through files

!p.multi = [0,2,2]

plot, T_array, YRANGE=[18., 30.], PSYM=4, $
	TITLE='Temperature vs File, '+pspc_directory, XTITLE='File #', $
	YTITLE='Temp (C)',YTICKS = 6

plot_io, GVac_array, PSYM=7, $
	TITLE='Vacuum vs File, '+pspc_directory, XTITLE='File #', $
	YTITLE='Pressure (Torr)', YRANGE = [1.E-6, 1.E-4]
;	YRANGE=[MIN([GVac_array,SVac_array,DVac_array]), $
;		MAX([GVac_array,SVac_array,DVac_array])]
oplot, DVac_array, PSYM=1
oplot, SVac_array, PSYM=2
xyouts, 0.65, 0.93, '*Source  xGrating  +Detector' ,/NORMAL,CHARSIZE=0.75

plot, P_array, YRANGE=[730., 790.], PSYM=4, $
	TITLE='Detector Pressure vs File, '+pspc_directory, XTITLE='File #', $
	YTITLE='Pressure (Torr)',YTICKS = 6

plot, SrcI_array, PSYM=4, $
	TITLE='Source current vs File, '+pspc_directory, XTITLE='File #', $
	YTITLE='Current (mA)'

;plot, Pump_array, PSYM=4, $
;	TITLE='Pump current vs File, '+pspc_directory, XTITLE='File #', $
;	YTITLE='Current monitor'

!p.multi = 0

RETURN
END