;-----------------------------------------------------------------
; rmczero.pro
;
; written by Andreas Reigber
;------------------------------------------------------------------
; replaces all complex(0,0) with complex(0.1,0.1). Useful if
; you have to divide by something complex...
; 
;------------------------------------------------------------------
; This software has been released under the terms of the GNU Public
; license. See http://www.gnu.org/copyleft/gpl.html for details.
;------------------------------------------------------------------
pro rmczero,array
   err=where(array eq complex(0,0),test)
   if test ne 0 then array(err)=complex(0.1,0.1)
return
end