pro NewKabs

;This program takes the kabs in namlist1 and replaces them with the kabs from namlist2

namlist1='D:\idl\namlists\namlist_ir_vims.std_bruno_27july07'
namlist2='D:\idl\namlists\namlist_ir_lyn.int'

dir='D:\idl\namlists\'

close,/all
openr,1,namlist1
openr,2,namlist2
openw,3,dir+'namlist_combined.int'

line1=''
line2=''

while not eof(1) do begin

 while strpos(line1,"kabs=") eq -1 do begin
  printf,3,line1
  readf,1,line1
 endwhile

 while strpos(line2,"kabs=") eq -1 do readf,2,line2

 while strpos(line2,"wavl=") eq -1 do begin
  printf,3,line2
  readf,2,line2
 endwhile

 while strpos(line1,"wavl=") eq -1 do readf,1,line1

endwhile

close,/all
print,"Done"

end