pro pr_therm_rs232, sttim, entim, therm_list, out, hc=hc
;+
;NAME:
;	pr_therm_rs232
;PURPOSE:
;	To display the thermo-couple values in a tabular format
;SAMPLE CALLING SEQUENCE:
;	pr_therm_rs232, '9-feb 0:00', '9-feb 0:30', [1,2,3,7,12,15]
;	pr_therm_rs232, stttim, entim, therm_list, /hc
;HISTORY:
;	Written 8-Feb-97 by M.Morrison
;-
;
rd_therm_rs232, sttim, entim, daytim, mat
ss0 = therm_list-1
;
if (data_type(daytim) ne 8) then return
n = n_elements(daytim)
;
out = strarr(n+3)
out(0) = 'PR_THERM_RS232   Ver 1.0  Program Run: ' + ut_time() + ' UT'
out(1) = string(therm_list, format='(19x, 99i8)')
for i=0,n-1 do begin
    out(i+3) = string( fmt_tim(daytim(i)), float(mat(ss0,i)), format='(a19, 99f8.2)')
end
;
prstr, out, /nomore
if (keyword_set(hc)) then prstr, out, /hc
;
end