%N readbrk %F $MIR/src/subs/calsetio.for
%D Read breakpoint data
%: calibration, i/o
%P pjt
%B
        SUBROUTINE readbrk(file)

        CHARACTER*(*) file

       ReadBkr reads the breakpoint data of a calibration set

   Inputs:
       file -- name of the calibration set
