這是一個可以開啟並讀入你輸入檔名之檔案接著做任何處理小樣本,

中間要fortran做什麼就大家自己隨意了。

只要把這幾行語法串在中間就可以了。

--
character(16) :: filename, Ofilename
˙
˙ 在此之間就是你要做的事需要宣告哪些變數自己宣告
˙
print *, "Please enter a filename for 做什麼事你隨意"
print *, "Warning: the length of the filenam must be less than 16"
read(*,*) filename
print *, "Please enter a filename for output"
read(*,*) Ofilename
˙
˙ 在此之間就是你要做的事需要哪些語法自己寫 (如果沒有其他變數要處理中間都可
˙ 省略)
˙
open (unit=7,file=filename,status='old',action='read')
open (unit=8,file=Ofilename,status='new')
read(7,*,advance='yes',end=999)
˙
˙ 還是一樣在此之間就是你要做的事需要哪些語法自己寫
˙
close (7)
close (8)
999 end
--
這邊要講一件事情就是,

open (unit=7,file=filename,status='old',action='read')

這一行狀態用'OLD'就是因為你要讀入哪個檔案,同你在螢幕輸入的那一個,所以請別白

爛輸入的不存在的檔名。既然你要處理檔案,檔案當然必須存在對吧。

這只是簡單的樣本,當然也可以用邏輯變數再加上指定執行行指定到999,如此一來當檔

案不存在會直接結束程式執行就絕對不會出錯了。不過我沒時間玩了 囧" 還是先做我的

實驗正事要緊。

mongqiu 發表在 痞客邦 PIXNET 留言(0) 人氣()