;=====================================
pro load_ct,color_file,bins,RGB_array
;=====================================
; Set up integer arrays to hold RGB color combinations
 
red=intarr(256)
green=intarr(256)
blue=intarr(256)
  
; Read in RGB color arrays
   
openr,lun2,color_file,/get_lun
readf,lun2,bins
readf,lun2,red
readf,lun2,green
readf,lun2,blue
free_lun,lun2
    
; Load in and set up color table
     
tvlct,red,green,blue

RGB_array=lonarr(3,256)
RGB_array(0:255)=red
RGB_array(256:511)=green
RGB_array(512:767)=blue

red=0
green=0
blue=0

return
end