      program assign
      implicit none
      INTEGER Y
      OPEN (Unit=3, FILE='data.input')
      Read (Unit=3, *) Y
      Print *, Y
      Close (Unit=3) 
      end 

