program read_write_to_file_3
      character*20 fname
      write(*,*)'Your data file name (20 char):'
      read(*,*) fname
      write(*,*)'How many numbers to save?'
      read(*,*) n
      write(*,*)'Type in',n,'numbers now:'
      open(unit=10,file=fname) 
      write(10,*)n
      do i=1,n
        read(*,*) a
        write(10,*) a
      enddo
      close(10)
      write(*,*)'Now your data saved in:',fname
      write(*,*)'The first value is the number',n
      end