open (unit=3,file='junk.out',status='unknown')
       do i=1400,1750
          write (3,*) i,0.00
       end do
       close (unit=3)
       stop
       end