pro get_rr,directory,abs_name,rel_name,wv_file,absolute_array,$
  rel_waves,rel_resp,wave_cal,files,old_dir

; Version 1 reads DLVS absolute and relative spectral responsivities,
;   wavelength calibration and the data file names

; Read the absolute responsivity
absolute_array=fltarr(20,200)
char=' '
openr,abs_file,abs_name,/get_lun           	       
readf,abs_file,char
readf,abs_file,absolute_array
  
; Read the relative spectral responsivity
rel_waves=fltarr(49)
rel_resp=fltarr(49)
openr,rel_file,rel_name,/get_lun
for iwave=0,48 do begin
  readf,rel_file,waves,relspec,format='(6x,f7.0,2x,f11.9)'
  rel_waves(iwave)=waves
  rel_resp(iwave)=relspec
endfor

; Read the wavelength calibration
wave_cal=fltarr(20,200)
openr,olo1,wv_file,/get_lun
readf,olo1,wave_cal

; Read the file names
print,'Rooftop or helicopter or whirling dervish images from ',directory
cd,directory,current=old_dir
files=t_getfil()

close,/all

return
end