; CNA_FLATCORR -- Flat field a NICMOS image. The science image
; is multiplied in-place by the (inverse) flat field image.
; Errors and DQ flags from the flat field are combined with
; the science data errors and flags. The input SAMP and TIME
; arrays are unchanged.

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

function cna_flatcorr, nic, flat, input

  ; Arguments:
  ;	nic	 i: NICMOS info structure
  ;	flat	 i: flat field image
  ;	input	io: image to be flat fielded

  ; Do the flat fielding in-place in input image data.
  ;input.sci.data.data = input.sci.data.data * $
  ;				 flat.sci.data.data

  temp = cna_amul(input,flat)

  ; Successful return.
  return, 0

end