;==================================================================
; Here is how to read the data
;=================================================================

PRO read_rad

filename = 'data/al_srfii-86090709'; put the file path and name here
datarr = FLTARR(144,72)

OPENR,fid, filename,/F77_UNFORMATTED,/GET_LUN
READU,fid, datarr
;datarr = datarr/scale_factor
in_good = WHERE(datarr GT -1000)
print,'    MAX = ', MAX(datarr),'     MIN= ', MIN(datarr(in_good))

FREE_LUN,fid
END