program bb
      real*8 ns(8)
      character*80 s80
      open(9,file='6SE')
      open(19,file='6SEN')
1     read(9,60,end=999,err=999)s80
60    format(a80)
      nd=0
      do 2 i=1,80
2     if(s80(i:i).eq.'.')nd=nd+1
      if(nd.gt.0)then
       read(s80,*,err=888)(ns(i),i=1,nd)
       write(19,190)(ns(i),i=1,nd)
190    format(f16.9,6f12.9)
      else
888    write(19,60)s80
      endif
      goto 1
999   close(9)
      close(19)
      stop
      end