%N amphase %F $MIR/src/subs/amphase.for
%D Compute amplitude and phase.
%P pjt
%: complex-data, uv-data
%B
      subroutine amphase (data, amp, phase)
      implicit none

      complex data
      real amp, phase

  Compute amplitude and phase from one complex correlation

  Input:
    data       The complex data.
  Output:
    amp        The amplitude.
    phase      The phase (degrees).
