%N expi %F $MIR/src/subs/uvsubs.for
%D Extract complex exponent of input in radians
%P mchw
%: complex-data, uv-data, visibility
%B
      complex function expi(x)

  Return the complex exponent of input in radians.

  Input:
    x          real input (radians).
