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