pro kpno_header, indir=indir, outdir=outdir if not keyword_set(outdir) then outdir=indir cd,outdir file_mkdir,'Complete_Images' final_dir=outdir+path_sep()+'Complete_Images' cd, indir headerfile=file_search(indir,'Header_*') numheadfile=n_elements(headerfile) for i=0, (numheadfile-1) do begin cd, indir header=headfits(headerfile[i]) sxdelpar, header, 'DETNAME' sxaddpar, header, 'DETNAME', 'H1RG-22-SIPIN', '/The name of the detector' filestart=strpos(headerfile[i],'Header_') datafile=strmid(headerfile[i],filestart+7) data=readfits(datafile,h) cd, final_dir filename='Complete_'+datafile writefits,filename,data,header endfor end