;------------------------------------
pro ingal_edit,infile,ide1,ide2
;------------------------------------
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
;------------------------------------

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

file2=infile
str_replace,file2,ide1,ide2,max=1

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