%N phase %F $MIR/src/subs/uvsubs.for
%D Extract phase in radians from complex number
%P mchw
%: complex-data, uv-data
%B
        real function phase(vis)

  Extracts the phase (radians) from a complex number.

  Input:
    vis        complex number
