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

   WritFlag re-writes the flags of an already existing calibration
   set

   Input:
       file  - file name of calibration dataset

        character*(*) file
