program write_to_user_named_file
      character*20 myfilename

      write(*,*)'Name your file, please:'
      read(*,*)myfilename

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

      open(unit=10,file=myfilename)

      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: ', myfilename 
      
      end