%N readset %F $MIR/src/subs/calsetio.for
%D Read in data from a calibration set
%: calibration, i/o
%P pjt
%B
        SUBROUTINE readset( file )

        CHARACTER file*(*)

   Input:
       file --     the name of the cal.dataset to be opened

   The 'file' is assumed to be a calibration dataset, and is read
   in memory. It reads the gain correllations data and associated
   source names
   It is verbose in the sense that is outputs the names of the 
   sources read.
   In version 6.1 and later calibrator fluxes are baseline based and
   stored in a item 'cdata'. This may be a temporary fix to a more
   fundamental problem.
       
