在Fortran中，可以使用OPEN、READ、WRITE以及CLOSE等語句來實現文件的讀寫操作。下面是一個簡單的示例，演示了如何使用Fortran讀取和寫入文件：

program file_io
    implicit none
    
    integer :: i, n
    character(len=20) :: filename
    character(len=100) :: line
    
    ! 打開文件以供讀取
    print *, "請輸入要讀取的文件名："
    read *, filename
    open(10, file=trim(filename), status='old', action='read')
    
    ! 逐行讀取文件內容，并打印到屏幕上
    print *, "文件內容如下："
    do i = 1, 10
        read(10, '(A)') line
        print *, line
    end do
    
    ! 關閉文件
    close(10)
    
    ! 打開文件以供寫入
    print *, "請輸入要寫入的文件名："
    read *, filename
    open(20, file=trim(filename), status='replace', action='write')
    
    ! 向文件中寫入數據
    print *, "請輸入要寫入文件的整數個數："
    read *, n
    
    write(20, '(A)') "寫入的整數如下："
    do i = 1, n
        write(20, '(I4)') i
    end do
    
    ! 關閉文件
    close(20)
    
end program file_io

在這個示例中，用戶首先需要輸入要讀取的文件名，然后程序會打開該文件，并逐行讀取文件內容并打印到屏幕上。接下來，用戶需要輸入要寫入的文件名，并輸入要寫入文件的整數個數n。程序會打開該文件并向其中寫入從1到n的整數。最后，程序會關閉文件。請注意，這只是一個簡單的示例，實際使用時，您可能需要對文件打開、讀取和寫入操作進行錯誤處理。