pro close_basfit
   openr,1,'c:\working\basfit0618.in'
   head = strarr(4)
   data = fltarr(14,32)
   line = ''
   text = strarr(32)
   junk = fltarr(14)

   readf,1,head
   for i = 0,31 do begin
     readf,1,line
     text(i) = strmid(line,0,26)
     reads,strmid(line,26),junk
     data(*,i) = junk
   endfor
   close,1

   out = baslin_pclose(data)

   openw,2,'c:\temp\basfitpc.in'
   printf,2,head,format='(a)'
   for i = 0,31 do printf,2,text(i),out(*,i),format='(a26,7(f6.1,f5.0))'
   close,2
end