;-------------------------------------------------------------------
;Title:		rstemp_ret.pro
;Purpose:	To return interpolated temperature values from
;			rawinsonde files for inputed time and height coordinants.
;
;I/O:		temp=rstemp_ret(height,time)
;
;Inputs:	height - the desired heights for temperature values [km]
;			time - the corresponding times for temperatures. [Julian day]
;			com_rws - the common block of rws data containing the
;					desired time period.
;
;Outputs:	temp - the interpolated temperatures for (time,height) [C]
;
;Author:	Matthew Shupe
;Date:		9/17/99
;Modified:	2/14/00
;--------------------------------------------------------------------
function rstemp_ret,height,time
common com_rws,rstemp,rsheights,rsjtime
itime=(time-rsjtime[0])*(n_elements(rsjtime)-1)/ $
	(rsjtime[n_elements(rsjtime)-1]-rsjtime[0])
iht=(height-rsheights[0])*(n_elements(rsheights)-1)/ $
	(rsheights[n_elements(rsheights)-1]-rsheights[0])
temp=interpolate(rstemp,itime,iht)
return,temp
end ;function