program write_to_file

      write(*,*)'How many data entries to write?'
      read(*,*)n

      do i=1,n
        write(*,*)'Type in a real number, please.'
        read(*,*)a
        write(7,*)a
      end do

      write(*,*)'Finished.'
      write(*,*)"Numbers have been written in file 'fort.7'."
      
      end