%N writbrk %F $MIR/src/subs/calsetio.for
%D Write break point data
%: calibration, i/o
%P pjt
%B
        SUBROUTINE writbrk(file)

        CHARACTER*(*) file

       WriteBrk writes the breakpoint data to an already existing
       calibration data set

   Inputs:
       file -- name of the calibration set
