%N caflag %F $MIR/src/subs/calio.for
%D Flag data in a calibration set
%: calibration, i/o
%P pjt
%B
        SUBROUTINE CAflag(tno, i, Rflag)

        INTEGER tno, i
        INTEGER rflag(*)

    CAflag writes only the flagging information.

  Inputs:
       tno     -- calibration set
       i       -- data slot
       Rflag   -- flagging data
