;+
; NAME: os_readfits
; 	Load all three parts of an OSIRIS image cube. 
;
; INPUTS:
; KEYWORDS:
; OUTPUTS:
;
; HISTORY:
; 	Began 2006-03-15 15:08:23 by Marshall Perrin 
;-

function os_readfits,filename,hdr,compatibility=compatibility

	p_im = ptr_new(readfits(filename,hdr),/no_copy)
	p_noise = ptr_new(readfits(filename,ext=1),/no_copy)
	p_flags = ptr_new(readfits(filename,ext=2),/no_copy)

if keyword_set(compatibility) then begin
	return, {frames: p_im, intFrames:p_noise, IntAuxFrames: p_flags,Headers:ptr_new(hdr,/no_copy)}
endif else begin
	return, {image: p_im, noise:p_noise, flags: p_flags}
endelse

end