program write_to_named_file

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

      open(unit=10,file='my_data.txt')

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

      close(10)

      write(*,*)'Finished.'
      write(*,*)"Numbers saved in file 'my_data.txt'."
      
      end