      program ff
      integer i

      do i=1,1000
         write(18,*) i*.1
      enddo
      end
