Fortran 77: Read from file and write from file

Program Open_Read_Write

Open(unit=1, file= "input.txt" )

Open(unit=2, file= "output.dat",status="new" )

Do I=1,4

Read(1,*) j

Write(2,*) "j=", j

End Do

End Program Open_Read_Write