program write_data


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

      write(*,*)'Type in one number, please.'
      read(*,*)a

      write(10,*)a

      write(*,*)'Youyr number',a,'has been written into '
     *,'my_data.dat'

      close(10)

      end