pro refmt 

openr,1,'files.new'
s = ''
fil = ''
wave = 1234.1234D0 
flux = 0.12345E+01 
while (not eof(1)) do begin
  readf,1,fil, format='(A12)'
  fil = strtrim(fil,2)
  print,'processing file '+fil
    ; remove blank lines
  ;  spawn,'mv '+fil+' '+fil+'.old'
  openr,2,fil+'.old'
  openw,3,fil
  while (not eof(2)) do begin
    readf,2,s
    if strlen(strtrim(s,2)) gt 0 then printf,3,s
  endwhile 
  close,2
  close,3
  ;  spawn,'mv '+fil+' '+fil+'.old'
  openr,2,fil+'.old'
  openw,3,fil
  while (not eof(2)) do begin
    readf,2,wave, flux
    if (wave ne 0.0d0) then $
    printf,3,wave,flux, format = '(F9.4,1x,E12.5)' 
    if eof(2) then goto, next1
  endwhile 
next1:
  close,2
  close,3
  print, fil+' done'
endwhile
close,1
return
end