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