;------------------------------------
pro ingal_edit,infile,ide1,ide2,ingal=ingal
;------------------------------------
if(n_params() le 1) then begin
   print,'ingal_edit,infile,ide1,ide2'
   print,'1) copy ingal to a new ingal, replacing ide1 with ide2 in both'
   print,'                           the name and content of the new ingal'
   print,'2) open emacs to edit the new ingal'
   print,'example:'
   print,"ingal_edit,'NGC1097_36_bd.ingal','_bd','_bdf'"
   return
endif
;------------------------------------

outfile=infile
str_replace,outfile,ide1,ide2,max=1
if(keyword_set(ingal)) then str_replace,outfile,'outgal','ingal',max=1

job_edit2,infile,outfile,ide1=ide1,ide2=ide2,'asd','asd',/silent


cmd='emacs '+outfile+' &'
spawn, cmd
end