read file

program readdata
    implicit none
    !reads data from a file called mydata.txt
    real :: x,y,z
    open(5,file='mydata.txt') ! 5 burada C'deki file pointer yerine geciyor. 
        read(5,*) x,y,z ! 5 burada C'deki file pointer yerine geciyor. 
    print *,x,y,z
    end program  readdata