pro spoofleach

	cd,'E:\H4RG-10-007\cold2\Leach\30July07_Egain
	im=file_search('*.fit')
	;keys=['NGROUPS','NREADS','NDROPS','MOLYTABL','DETTEMP','EXP_TIME','DETNAME']
	;vals=['2','1','0','150','150','2.6','H4RG-10-007']
	keys=['TIME']
	DateTime=systime()
	vals=[DateTime]
	;im=['DH4RG_DarkFrame_150K_33_0.fit']
	for i=0,n_elements(im)-1 do begin
		image = readfits(im(i),header)
		for j=0,n_elements(keys)-1 do begin
		    FXADDPAR, header, keys(j), vals(j)
	    endfor
	    writefits, im(i), image, header
	endfor

end