;----------------------------------
function get_hk_tits, hk
;
;
tags = tag_names(hk)
ntags = n_elements(tags)
;
tits = ' '
for i=0,ntags-1 do begin
    tits = [tits, string(strupcase(hk.(i).mnem)+'         ', format='(a10)') + $
		' == ' + string(hk.(i).descr)]
end
;
tits = strtrim(tits(1:*))
return, tits
end
;----------------------------------
pro susan_print, times0, hc=hc
;
;
;   times = ['19-dec-94', '20-dec-94 12:00', '21-dec-94 12:00', $
;		'3-jan-95 16:00', '5-jan-95', '6-jan-95']
;   susan_print, times
;
;
;
qhc = keyword_set(hc)
if (qhc) then begin
    outfil = 'susan_print.txt'
    openw, lun, outfil, /get_lun
    printf, lun, 'SUSAN_PRINT.PRO  Ver 1.0   Program Run: ' + !stime
    printf, lun, ' '
end
;
mnem = ['mtopts' + strtrim(indgen(16)+1,2), $
	'qtopts' + strtrim(indgen(4)+1,2) + 'n']
;
;
times = anytim2ints(times0)
ntimes = n_elements(times)
;
for itime=0,ntimes-1 do begin
    hk = get_hk_info(times(itime), mnem)
    ;
    str = '------- HK values for ' + fmt_tim(times(itime)) + ' ------------------'
    print, str
    if (qhc) then begin & printf, lun, ' ' & printf, lun, str & printf, lun, ' ' & end
    ;
    tags = tag_names(hk)
    ntags = n_elements(tags)
    for i=0,ntags-1 do begin
	for j=0,n_elements(hk.(i).mnem)-1 do begin
	    ;print, i, j, hk.(i).code(j), hk.(i).mnem(j), hk.(i).descr(j), hk.(i).value(0,j)
	    str = string(i, j, hk.(i).code(j), format='(3i5)') + $
		string(strupcase(hk.(i).mnem(j))+'         ', format='(3x, a10)') + $
		' == ' + string(hk.(i).descr(j)+'                      ', format='(a32)') + $
		string(hk.(i).value(0,j))
	    print, str
	    if (qhc) then printf, lun, str
	end
    end
end
;
if (qhc) then begin
    free_lun, lun
    dprint, outfil
end
;
end
;----------------------------------
pro new_hkplot, hk, yrange=yrange, nover=nover, timerange=timerange, codelist=codelist, tit=tit

if (!d.name eq 'PS') then device,/land

tags = tag_names(hk)
ntags = n_elements(tags)
;
if (not keyword_set(yrange)) then begin
    yrange = [ min(hk.(0).value), max(hk.(0).value)]
    for i=1,ntags-1 do begin
	yrange(0) = min( [yrange(0), min(hk.(i).value)] )
	yrange(1) = max( [yrange(1), max(hk.(i).value)] )
    end
end

utplot, hk.(0).daytime, hk.(0).value(*,0), yrange=yrange, $
		/nodata, timerange=timerange, /ynozero, tit=tit, /xstyle

for i=0,ntags-1 do begin
    for j=0,n_elements(hk.(i).mnem)-1 do begin
	qplot = 1
	if (n_elements(codelist) ne 0) then dummy = where([codelist] eq hk.(i).code(j), qplot)
	if (qplot) then outplot, hk.(i).daytime, hk.(i).value(*,j)
    end
end

if (not keyword_set(nover)) then begin
    plottime, 0, 0, 'SUSAN_PLOT  Ver 1.0'
    plottime
    pause
    pprint
end
;
end
;------------------------------------------------------------------------
pro susan_plot, hk
;
;sttim = '21-dec-94'	& entim = '23-dec-94'	& every = 10
;
;sttim = '15-dec-94'	& entim = '23-dec-94'	& every = 10
 sttim = ' 3-Jan-95'	& entim = ' 7-Jan-95'	& every = 10
;
mnem = ['mtopts' + strtrim(indgen(16)+1,2), $
	'qtopts' + strtrim(indgen(4)+1,2) + 'n']
if (n_elements(hk) eq 0) then hk = get_hk_info([sttim, entim], mnem, every=every, /qdebug)
tags = tag_names(hk)
ntags = n_elements(tags)
nmnem = n_elements(mnem)
;
;
timerange = [sttim, entim]
;
!p.multi = 0
new_hkplot, hk, timerange=timerange, yrange=[-150,50], tit='All Temperatures'
;
yrange_list = intarr(nmnem)
yrange_list([5,10]) = 1		;mtopts6   CCD Strap/Header (P) 
				;mtopts11  Outside MLI  
yrange_list(19) = 2		;qtopts4n  CCD Radiator 
;
tits = get_hk_tits(hk)
!p.multi = [0,2,2]
for i=0,nmnem-1 do begin
    qnover = ((i mod 4) ne 3) and (i ne nmnem-1)
    case yrange_list(i) of
	0: yrange = [0, 50]
	1: yrange = [-150, 50]
	2: yrange = [0, 100]
	-1: yrange = 0b
    endcase

    new_hkplot, hk, yrange=yrange, timerange=timerange, nover=qnover, codelist=i, tit=tits(i)
end
;
end