%N putsrc %F $MIR/src/subs/calsetio.for
%D Write out source stuff
%: calibration, i/o
%P pjt
%B
        SUBROUTINE putsrc( file )

        CHARACTER*(*) file

   putsrc re-writes the source-names and all associated values of an 
   already exisiting calibrator dataset. These are the SDATA item
   (calling caswrite) and the CDATA item (done here)
   This is a very dangerous operation, and the caller better know exactly 
   what he/she is doing. It's normally called by calmake only, which looks
   up fluxes of calibrators, and fills in plstuff(4,) for each
   source.
   Now it also writes out the baseline based calibrator fluxes -
   i.e. calbflux(,)

   Input:
       file    --  name of the calibration dataset. It must already exist.
