;; data = read_ims_geolocation(file [,/RES4] )
;; 
;; 03/18/2007  Mary Jo Brodzik  <brodzik@nsidc.org>  303-492-8263
;; National Snow & Ice Data Center, University of Colorado, Boulder
;; Copyright (C) 2007-8 Regents of the University of Colorado
;;
;; $Revision: 15531 $
;;
function read_ims_geolocation, filename, RES4=do_res4

  do_res4 = keyword_set( do_res4 ) ? do_res4 : 0

  cols = 1024
  rows = 1024
  if do_res4 then begin
      cols = 6144
      rows = 6144
  endif

  data = fltarr( cols, rows )
  openr, lun, filename, /get_lun
  readu, lun, data
  free_lun, lun

  idx = where( finite( data ) )
  print, "Min/max of geolocation data is:", min(data[idx]), max(data[idx])

  return, data

end