;+
; NAME:
;	DETECTOR_SUMM
; PURPOSE:
;	Summary print of HK stuff in QS record
; CALLING SEQUENCE:  
;
; INPUT:
;
; OUTPUT:
;
; OPTIONAL OUTPUT:
;
; HISTORY
;	RDB	19-Feb-92	Written
;
;-
;pro	hk_summ, qs

print,'   Date & Time          Trims                   SCAs'
print,'                        A   B     Fe XXVI  Fe XXV   Ca XIX    S XV'

;;for j=0,3 do begin
for j=0,n_elements(qs.instr)-1 do begin
  int2ex,qs.instr(j).st_time,qs.instr(j).st_day,tarr
  tarr = fmt_tim(tarr)
  hvs = intarr(2)
  hvs(0) = qs.instr(j).hv_control and 15	;BCS-A
  hvs(1) = qs.instr(j).hv_control/16		;BCS-B
  print,tarr,hvs,qs.instr(j).scaval,  $
	format='(a,2x,2i4,2x,4(x,2Z4.2))'
  endfor

;return
end