1 %======================================================================

     2 %                    I M A G N A N . M 

     3 %                    doc: Fri Jan  6 11:31:23 2012

     4 %                    dlm: Fri Jan  6 11:33:24 2012

     5 %                    (c) 2012 A.M. Thurnherr

     6 %                    uE-Info: 10 48 NIL 0 0 72 0 2 8 NIL ofnI

     7 %======================================================================

     8 

     9 % HISTORY:

    10 %   Jan 6, 2012: - created for version IX_8gamma

    11 

    12 function I = imagnan(C)

    13 	I = imag(C);

    14 	I(find(isnan(real(C)))) = nan;