function default_real_array, n
;
; Return an array of length n of float or double, depending on the
; memory model.  (Replaces a = fltarr(n) and a = dblarr(n).)
;
; B. Knapp, 2001-05-01
;
  mbits = ((!version.release ge 5.4) ? !version.memory_bits : 32)
  return, ((mbits eq 64) ? dblarr(n) : fltarr(n))
  end