;	(26-mar-91)
FUNCTION CUBE_ALIGN, DATA, OFFSETS=OFFSETS, SAMPLE=SAMPLE, $
  MAG_FAC=MAG_FAC, INTERP=INTERP, interact=interact 
;+
; NAME:
;	CUBE_ALIGN
; PURPOSE:
;	Register a series of images using cross correlations.
; CALLING SEQUENCE:
;	DATA_OUT = CUBE_ALIGN(DATA, OFFSETS=OFFSETS [,/interact])
; OPTIONAL KEYWORD INPUT:
;	INTERACT - IF SET, USER CAN SELECT SUBREGION FROM SUBARRAY
; OUTPUTS:
;	DATA_OUT = Aligned data cube
; MODIFICATION HISTORY:
;	Version 1.0 - Mar, 1991, G. L. Slater, LPARL
;	        1.1 - Mar, 1992, Interface Work
;-

  if n_elements(interp) eq 0 then interp = 0
  if n_elements(sample) eq 0 then sample = 1 
  if n_elements(mag_fac) eq 0 then mag_fac = 1 
  offsets = get_off(data, sample=sample, mag_fac=mag_fac, $
	interact=interact)

  return, translate2(data, offsets, interp=interp)

  end