;------------------------------------------------------------------------------
;                 Load Sumer Quick Look Fits Image/Profile
;------------------------------------------------------------------------------
pro load_qlfits, file, primary_hd, bintable_hd, fits_data
  
  IF (N_PARAMS() NE 4)  THEN BEGIN
    print,"Usage: load_qlfits, <QLK sumer FITS File>, <Primary hd>, <Bintable header>, <FITS data>"
    RETURN
  ENDIF
 

  primary_hd  = HEADFITS (file, EXTEN=0)
  bintable_hd = HEADFITS (file, EXTEN=1)

  
  ; Get Data
  ; --------
  FXBOPEN, unit, file  ,1 
  FXBREAD, unit, fits_data, 1
  FXBCLOSE, unit;
 
END