%N antbas %F $MIR/src/subs/basant.for
%D Determine baseline from antenna numbers
%P pjt
%: calibration, uv-i/o, uv-data, utilities
%B
        double precision function antbas(i1,i2)

        implicit none
        integer i1,i2

  Determine the baseline number of a pair of antennas.

  Note: i1 <= i2.
  See also MAXANT in maxant.h and maxantc.h on limits on i2, although
  these limits are not enforced by ANTBAS.

  See BASANT for a thorough description of the encoding scheme
  used to determine baseline numbers.
