pro savearr,file,array
;--------------------------------------------------------------------------
;
;        save an array to a file
;
;        where:        file  = file name for saved array (in quotes)
;                array =  array to save
;
;--------------------------------------------------------------------------
;
openw,unit,file,/GET_LUN
writeu,unit,array
FREE_LUN,unit
;
end