outfile= 'superdark.2003jun30.g900.fits'
outfile2 = 'superdark.2003jun30.g831.fits'
header=headfits('superdark.2003jun06.g600.fits.gz')
   mwrfits, junk, outfile, header,/create ;dummy primary

for i=1,8 do begin &$
	header=headfits('superdark.2003jun06.g600.fits.gz',ext=i) &$
	mwrfits,fltarr(2048,4096),outfile,header &$
endfor

spawn,'gzip '+outfile
