pro sxt_temps,index,which,psym=psym,ss,y
;
;+
;NAME:
;	sxt_temps
;PURPOSE:
;	To plot the SXT forward support plate temperature given an
;	 SXT index array
;SAMPLE CALLING SEQUENCE:
;	sxt_temps,index [,which,psym=psym,ss,y]
;INPUT:
;	index - an SXT index array
;OPTIONAL INPUT:
;	which - select which temperature to plot [Default: 1]
;		0 = 'Metering tube center'
;		1 = 'Forward support plate (mirror) '
;		2 = 'Aft support plate (FW2T?)
;		3 = 'Filter wheel housing (FW1T?)
;		4 = 'Shutter motor case
;		5 = 'TSA (thermal strap) S/C end
;		6 = 'TEC hot end'       
;		7 = 'CCD camera head'  
;	psym=psym, select the plotting symbols [Default: psym=-1]
;OPTIONAL OUTPUT
;	ss - indices of index records with temperatures
;	y  - temperature values for indices ss
;METHOD:
;	One option is to do the following:
;		ff = file_list('$DIR_SXT_SDC', '*')
;		rd_xda, ff, -1, index, /nodata
;		sxt_temps,index,which=0
;	Another option is:
;		get_sfm,timegrid('1-oct-91',!stime,days=1),index,/nodata
;		sxt_temps,index,ss,y
;HISTORY:
;	Written Jun-92 by M.Morrison
;	28-Feb-95 (LWA) _ Adapted from PLOT_TEMPS2
;	10-mar-95 (LWA) - Corrected error in call
;-
;
;
;
labels = strarr(10)
labels(0) = 'Metering tube center'	;18
labels(1) = 'Aspect Telescope (NOT FUNCTIONING)'	;19
labels(2) = 'Forward support plate (mirror) '
labels(3) = 'Aft support plate (FW2T?)
labels(4) = 'Filter wheel housing (FW1T?)
labels(5) = 'Shutter motor case
labels(6) = 'TSA (thermal strap) S/C end  
labels(7) = 'TEC hot end'		;25 
labels(8) = 'CCD camera head'	;26
labels(9) = 'Spare
;
list = [0,2,3,4,5,6,7,8]
;
if NOT keyword_set(psym) then psym=-1 else psym=psym
if n_elements(which) eq 0 then which=1
;
ss = where(index.sxt.temp_hk(0) ne 0)
;
    x = index(ss)
    y = index(ss).sxt.temp_hk(list(which))
    y = ahk_conv(y, 64+18+list(which))
    ;
    utplot, x, y, /ynozero, title=labels(list(which)), psym=psym
;
plottime
;
end