;-----------------------------------------------------------------
; fe_remove.pro
;
; written by Andreas Reigber
;------------------------------------------------------------------
; Removes a linear flat-earth component from a complex interferogram
;
; Usage:
; fe_remove,arr
;    arr : Array containing a complex SAR interferogram 
;------------------------------------------------------------------
; This software has been released under the terms of the GNU Public
; license. See http://www.gnu.org/copyleft/gpl.html for details.
;------------------------------------------------------------------
pro fe_remove,in
	siz=size(in)
	anz_rg = siz[1]
	anz_az = siz[2]
	fin = abs(fft(in))
	aux = max(fin,pos)
	fr_rg = pos mod anz_rg
	fr_az = pos  /  anz_rg
	ramp = findgen2d(anz_rg,anz_az,2*!pi*fr_rg,2*!pi*fr_az)
	in=in*exp(complex(0,-ramp))
end