;------------------------------------------------------------------- ; function : M A K E _ I N T E R F ; ; written by Stéphane Guillaso ;------------------------------------------------------------------- ; calculate the interferogram between 2 images ; ; input : ; im1 --> image 1 (complex data) ; im2 --> image 2 (complex data) ; ; output : ; im --> complex interferogram ; ; KEYWORD : ; fe --> line array containing the flatearth phase information ; ; call : ; interf = make_interf(im1,im2,[fe]) ;------------------------------------------------------------------- ; This software has been released under the terms of the GNU Public ; license. See http://www.gnu.org/copyleft/gpl.html for details. ;------------------------------------------------------------------ function make_interf,im1,im2,fe=FE ydim = size(im1) ydim = ydim[2] im = (im1)*conj(im2) if keyword_set(fe) then im = im * ((fltarr(ydim)+1)##exp(complex(0,fe))) return,im end