implicit real*8(a-h,o-z)
      double precision x(792,6)
      open(unit=5, file='sbout.out')
      open(unit=7, file='sbout.dat')
      do 10 i=1,792
        read(5,*) (x(i,j),j=1,6)
        write(7,801) (x(i,j),j=1,6)
 10   continue
 801  format(6(1X,F13.6))
      stop
      end