; CNA_SATCHECK: Flag pixels as saturated in a MultiAccum group if they're
; flagged as such in the preceding group.

; Revision history:
; I. Barg 10-Jan-2000 Modified structure names (and tag names) to match 
;             "/iraf/stsdas/lib/hstio.h".

pro cna_satcheck, imset1, imset2

@calnica_common

  ind = where((imset2.dq.data.data and SATURATED) gt 0,count)
  if (count gt 0) then begin
    imset1.dq.data.data[ind] =  $
      imset1.dq.data.data[ind] or SATURATED
  endif

end