function default_real, x
;
; Return a 4-byte or 8-byte real (depending on memory model) with the
; value x.  (Replaces, e.g., x=1.0 and x=1.d0 with x=default_real(1)).
;
; B. Knapp, 2001-05-01
;
  mbits = ((!version.release ge 5.4) ? !version.memory_bits : 32)
  return, ((mbits eq 64) ? double(x) : float(x))
  end