 999   format(1X,I3,F6.1,6E13.7)
1000   format(1X,I4,F7.1,6F14.7)
      do k=1,96
         read(*,999)  i1,z1,z2,z3,z4,z5,z6,z7
         write(*,1000) i1,z1,z2,z3,z4,z5,z6,z7
      enddo
      end

