;-----------------------------------------------------------------
; smooth_pha.pro
;
; written by Andreas Reigber
;------------------------------------------------------------------
; Simple boxcar filter for interferometric SAR images
; KEYWORD: /EDGE : like /edge_truncate in the smooth function
;------------------------------------------------------------------
; This software has been released under the terms of the GNU Public
; license. See http://www.gnu.org/copyleft/gpl.html for details.
;------------------------------------------------------------------
function smooth_pha,phase,smm,EDGE=edge
    if keyword_set(edge) then return,atan(smooth(exp(complex(0,phase)),smm,/ed)) $
	                      else return,atan(smooth(exp(complex(0,phase)),smm))
end