%N rsplit %F $MIR/src/subs/calio.for
%D Read split variable from open dataset
%: calibration, i/o
%P pjt
%B
        subroutine rsplit( tno, split )

        integer tno
        logical split

   rsplit reads the split item variable from an open dataset
   The split variable is a logical, and is used in passfit/
   calapply to signify if the passband polynomial fits have
   been split in the middle. The number of 'windows' is twice
   the normal amount. Split is normally only used in mode 4
   for Hat Creek data.

   inputs:
       tno               -- handle of data set

   outputs:
       split             -- logical if split was set, and to what
                            if not present, .false. is returned
