%N setsflag %F $MIR/src/subs/calsubs.for
%D Set flags along time axis according to selected sources
%: calibration, multi-source
%P pjt
%B
        SUBROUTINE setsflag (n, src)

        INTEGER    n
        CHARACTER  src(*)*(*)

  According to an array of names of sources selected, the 'Sflags'
  array in the common block /CALDATA/ is flagged true or false if
  that point is to be selected for fitting.
  Since the 'Sname' array of sources are upper case, the input array
  'src' is converted to upper case on output.

  Input:
       n    -- number of sources, if 0, all are selected
       src  -- array of sources
  Output:
       src  -- array of sources, but now converted to upper case
