%N phiwrap %F $MIR/src/subs/calphase.for
%D Returns the number of 2pi wraps
%: calibration, phases
%P pjt
%B
        INTEGER FUNCTION phiwrap(phase)

        REAL phase

       function to return number of 2.PI wrap arounds

       Note: OBSOLETE, is only called by 'phaseamp'

       inputs:
           phase       -- angle to be checked
