%N writeset %F $MIR/src/subs/calsetio.for
%D Write out (timesorted) data to a calibration set
%: calibration, i/o
%P pjt
%B
        SUBROUTINE writeset( file , checksrc)

        CHARACTER file*(*)
        LOGICAL   checksrc

   Input:
       file    --  name of the dataset to which a calbration dataset
                   is written. It must not exist yet, or routine will
                   bomb out
       checksrc    logical (true/false) denoting is sourcename needs
                   to be checked for breakpoint settings
