write file

program io2
    !illustrates  writing arrays to files
    implicit none
    real :: num
    integer :: i
        open(12,file='myoutput.txt') !12 burada C'deki file pointer yerine geciyor. 
    do i = 1,100
    num = i/3.0 
        write(12,*) num !12 burada C'deki file pointer yerine geciyor. 
    end do
    print *, 'finished'
    end program io2