%N phasedis %F $MIR/src/subs/calphase.for
%D Find consistent antenna phases
%: calibration, phases
%P pjt
%B
        SUBROUTINE phasedis( phase, wraps )

        REAL    phase(*)
        INTEGER wraps(*)

  Note: Not the most robust algorithm ever invented -- perhaps looping
        through multiple times would help
        This subroutine is OBSOLETE since it is used with 'phaseamp'

  Inputs:
       phase -- list of phases for each baseline

  Outputs:
       wraps -- list of 2pi wraps for each baseline
