PRO mk3adjust,filelist,keywd,new_value filelist=rd_tfile(filelist) sz=SIZE(filelist) FOR i=0,sz(1)-1 DO BEGIN ;{ curr_image=readfits(filelist(i),curr_hdu) temp=fxpar(curr_hdu,keywd) print,temp temp=temp+new_value print,temp fxaddpar,curr_hdu,keywd,temp writefits,filelist(i),curr_image,curr_hdu ENDFOR ;} END